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

[evg_m]

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

  Ed:= TEdit.Create(Self);
  Ed.Parent:= Form1;
  ed.Top:=999999;//self.Height;
  ed.Align:=altop;
  ed.text:=inttostr(ed.top div ed.height);

[alman12]

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

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

да там сразу создается 10 edit

[alman12]

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

  Ed:= TEdit.Create(Self);
  Ed.Parent:= Form1;
  ed.Top:=999999;//self.Height;
  ed.Align:=altop;
  ed.text:=inttostr(ed.top div ed.height);

а как сделать чтобы не было altop

[evg_m]

а как сделать чтобы не было altop

убрать эту строчку, НО как-то ВЫЧИСЛИТЬ и ЗАДАТЬ положение (top left) для создаваемого Tedit.
Учитывая при этом положение тех, что были созданы ранее (при предыдущем создании!).

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

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

да там сразу создается 10 edit

так измените код, чтоб не создавал.

[-=Virus=-]

Вот создание edit по одному

var
  Form1: TForm1;
  Ed: TEdit;
  i:Integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  i:=i+1;
  Ed:= TEdit.Create(Self);
  Ed.Parent:= Form1;
  Ed.Top:=20*i;
  ed.text:='Edit'+IntToStr(i);
  Ed.Name:='Edit'+IntToStr(i);

end;

[alman12]

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

Вот создание edit по одному

var
  Form1: TForm1;
  Ed: TEdit;
  i:Integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  i:=i+1;
  Ed:= TEdit.Create(Self);
  Ed.Parent:= Form1;
  Ed.Top:=20*i;
  ed.text:='Edit'+IntToStr(i);
  Ed.Name:='Edit'+IntToStr(i);

end;

отлично спасибо брат

[eval]

Ed: TEdit;

зачем это?

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

а это?
ну и на закуску

Ed.Parent:= Form1;

некрасиво

[-=Virus=-]

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

зачем это?
а это?

Разве не понятно?

[eval]

оно нафик ненадо, вот что понятно