как сделать при нажатие на кнопку создался новая edit ?

[alman12]

как сделать при нажатие на кнопку создался новая edit ?
помогите

[vasek123]

Пользуемся поиском, google еще ни кому юзать не запрещали.

А вообще, это, самое наипростейшее:

var
  Form1: TForm1;
  Ed: TEdit;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Ed:= TEdit.Create(Self);
  Ed.Parent:= Form1;
  Ed.Width:= 100;
  Ed.Height:= 500;
  Ed.Top:= 20;
  Ed.Height:= 100;
  Ed.Text:= 'Привет';
end;

end.

[alman12]

Сообщение от vasek123

Пользуемся поиском, google еще ни кому юзать не запрещали.

А вообще, это, самое наипростейшее:

var
  Form1: TForm1;
  Ed: TEdit;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Ed:= TEdit.Create(Self);
  Ed.Parent:= Form1;
  Ed.Width:= 100;
  Ed.Height:= 500;
  Ed.Top:= 20;
  Ed.Height:= 100;
  Ed.Text:= 'Привет';
end;

end.

здес создается толка один раз , я хочу что при нажатие создался еще

[Аватар]

Сколько кликнешь столько и создастся, одна на одной. Вывод - Left и Top разный присваивать

[alman12]

Сообщение от Аватар

Сколько кликнешь столько и создастся, одна на одной. Вывод - Left и Top разный присваивать

нет толка один раз создается с этим кодом и все

[Пепел Феникса]

Сообщение от alman12

нет толка один раз создается с этим кодом и все

если вы создаете в одном и том же то вы просто не увидите иных эдитов, ибо они будут друг друга перекрывать.

[alman12]

Сообщение от Аватар

Сколько кликнешь столько и создастся, одна на одной. Вывод - Left и Top разный присваивать

я имею виду что когда нажимаешь на кнопку создался под первым edit1 edit2 и edit3 edit4

[-=Virus=-]

Например так:

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
  for i := 1 to 10 do
  begin
   Ed:= TEdit.Create(Self);
   Ed.Parent:= Form1;
   Ed.Width:= 100;
   Ed.Height:= 20;
   Ed.Top:= 20 * i;
   Ed.Text:= 'Edit' + IntToStr(i);
   Ed.Name:= 'Edit' + IntToStr(i);
  end;
end;

[alman12]

Сообщение от -=Virus=-

Например так:

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
  for i := 1 to 10 do
  begin
   Ed:= TEdit.Create(Self);
   Ed.Parent:= Form1;
   Ed.Width:= 100;
   Ed.Height:= 20;
   Ed.Top:= 20 * i;
   Ed.Text:= 'Привет!;';
  end;
end;

здес сразу создается 10 edit я хочу что создался по одному

[-=Virus=-]

Сообщение от alman12

здес сразу создается 10 edit я хочу что создался по одному

А в чём проблема создавать по одному?