Последние записи

made in programmersforum 6

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

12th
Апр

Как при нажатии на button создавать новый edit

Posted by Chas under Заметки

vasek123

unit Unit1;
interface
uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type

  TForm1 = class(TForm)

    Edit1: TEdit;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  Form1: TForm1;

  Ed: TEdit;

  Index, A: Integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);

begin

  Index:= Index+ 1;

  Ed:= TEdit.Create(Self);

  Ed.Parent:= Form1;

  Ed.Name:= 'Edit'+ IntToStr(1+ Index);

  Ed.Text:= 'Edit'+ IntToStr(1+ Index);

  Ed.Top:= Ed.Top+ A;

  Ed.Left:= 8;

  Ed.Width:= 121;

  Ed.Height:= 21;

  Button1.Top:= Button1.Top+ 30;

  A:= A+ 30;

end;
procedure TForm1.FormCreate(Sender: TObject);

begin

  Index:= 0;

  A:= 36;

end;
end.