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

[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.

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

как в коде называется все edit в форме

Ты название или же текст в компоненте имеешь в виду?

Иди учиться!!! Это же, даже, первоклассники, наверное, знают:

Свойство Name- имя компонента, свойство Text- текст.

[northener]

Ed.Parent:= Form1;

Зачем еще раз повторять тот же вредоносный код? Или раз уж Борланд в своё время подложил нам мину замедленного действия в виде глобальной переменной типа FormN в шаблоне модуля формы, то нужно её подвинуть ещё чуть-чуть поближе к дороге, по которой все ходят?

[alman12]

как в коде называется все edit в форме

[alman12]

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

как в коде называется все edit в форме

а как вычислит все edit ?

[Stilet]

а как вычислит все edit ?

for i:=0 to Controlscount do
 if controls[i] is TEdit then  TEdit(Controls[i]).Чего-то там