У меня есть Form1. На ней лежит кнопка Button1. Как можно сделать что бы при запущенной программе, при нажатии на кнопку Button1, создавался обьект Edit1, Edit2 и т.д. - c определенными координатами по X, Y (но так что бы они скажем выстраивались в строку или в столбец); или Label1, Label2 и т.д.

Не где не встречал на такой вопрос ответа. Если можно то приведите попадробнее код. Это важно для меня, что бы разобраться. - Для вас я надеюсь, кто с этим работал не составит труда..
Заранее спасибо!

Пример если можно приведите

По вопросу:

Код

var  y: integer=100; procedure TForm1.Button1Click(Sender: TObject); begin  with TEdit.Create(Form1) do begin    Top:=y; Left:=Button1.Left;    ParentWindow:=Self.Handle;    y:=y+Height+4;  end; end;

Это сообщение отредактировал(а) Alex - 4.2.2005, 12:49

Модератор: все сообщения не относящиеся к вопросу удалены.

И для Label как ?

User
DRKB, FAQ, поиск, help, etc.
Динамическое создание объектов. Создание объектов run-time или что то в этом роде.
Ну хватит уже лениться то.

Код

........ with TLabel.Create(Form1) do begin ........

Код

procedure TForm1.Button1Click(Sender: TObject); var EditList: array[1..5] of TLabeledEdit;    caps: array[1..5] of string;    i: integer;    t: integer; begin caps[1] := 'First'; caps[2] := 'Second'; caps[3] := 'Third'; caps[4] := 'Fourth'; caps[5] := 'Fifth'; t := 30; for i:=1 to 5 do begin   EditList[i] := TLabeledEdit.Create(Self);   with EditList[i] do begin     Top := t;     Left := 10;     EditLabel.Caption := caps[i];     Parent := Self;     t := Top + Height+30;   end; end; end;

Не забудь в uses добавить ExtCtrls.

а почему бы просто не поставить сразу пару эдитов и их visible:=false а по нажатию кнопки visible:=true;

А ссылки можно поподробнее где такое искать?

http://forum.vingrad.ru/index.php?act=modu...faq§ion=627

User
А где спасибо? Помогло хоть?

А сохранить созданные динамически компонент можно? и как?
Отвечаю на вопрос: Я хочу програмно создавать в таблице новый столбец, и автоматически, в окне добавления/редактирования полей, хочу добавлять компонент. А количество столбцов, сами понимаите может быть разное.
Добавлено @ 15:47
Спасибо....

Что значит сохранить? Они никуда не убегают.
Если ты имеешь ввиду, что хочешь обращаться к ним по имени, то тут нескольно способов:

• Массив элементов типа TEdit
• Использовать TList
• При создании задавать едиту имя с номером, а потом обращаться к нему через FindComponent
• Нарисовать компонентов про запас и программно регулировать свойство visible.

Рекомендую второй вариант. Хотя первый проще. А 4-й для балбесов

Цитата(User @ 4.2.2005, 15:46)

А сохранить созданные динамически компонент можно? и как?

Цитата(Snowy @ 4.2.2005, 16:04)

Что значит сохранить? Они никуда не убегают.

После закрытия и открытия формы динамические компаненты исчезают, может он про это спрашивает?

Вот простой код с использованием Tlist.
Если делать по честному, то нужно создавать объект типа TEditList=class(TList). Но это дольше и сложнее писать. Зато легко и удобно пользоваться.

Код

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls; type  TForm1 = class(TForm)    procedure FormCreate(Sender: TObject);    procedure FormDestroy(Sender: TObject);    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure Button3Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1;  TEds:  TList; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin  TEds:=TList.Create;  with TButton.Create(Form1) do begin    ParentWindow:=Form1.Handle;    Left:=0; Top:=0;    OnClick:=Button1Click;    Caption:='Add';  end;  with TButton.Create(Form1) do begin    ParentWindow:=Form1.Handle;    Left:=72; Top:=0;    OnClick:=Button2Click;    Caption:='Delete';  end;  with TButton.Create(Form1) do begin    ParentWindow:=Form1.Handle;    Left:=144; Top:=0;    OnClick:=Button3Click;    Caption:='Clear';  end; end; procedure TForm1.FormDestroy(Sender: TObject); begin  TEds.Free; end; procedure TForm1.Button1Click(Sender: TObject); var  i: integer;  e: TEdit; begin  i:=TEds.Add(TEdit.Create(Form1));  with TEdit(TEds[i]) do begin    ParentWindow:=Form1.Handle;    left:=8; Top:=i*20+30;    Name:='Edit'+IntToStr(i+1);    Text:=IntToStr(i+1)+'-й Edit';  end; end; procedure TForm1.Button2Click(Sender: TObject); var  i: integer; begin  i:=TEds.Count;  if i>0 then begin    TEdit(TEds[i-1]).Free;    TEds.Delete(i-1);  end; end; procedure TForm1.Button3Click(Sender: TObject); var  i: integer; begin  for i:=0 to TEds.Count-1 do    TEdit(TEds[i]).Free;  TEds.Clear; end;

Добавлено @ 16:52
Да, забыл добавить - не кидай ничего на форму - все само создастся.

~FoX~
А зачем закрывть форму? Достаточно TForm.Hide

Создали мы компонент, а как потом обратится к его свойствам, например узнать текст который ввел пользователь в созданный компанент?

Задай ему имя и обращайся по имени, как обычно.
Задай уникальный Tag, затем ищи по Tag`у и проверяй текст.
И еще много-много вариантов... 

VICTAR, проблема в том что я пытаюсь так сделать. 


Но так как объект не создан, я не могу написать что то типо

Он говорит  что индификатор edit1 неизвестен.

Пытаюсь создать label

Но в строчке    ParentWindow:=self.Handle; ошибка


Что это?

Добавлено @ 14:51 
VICTAR, спасибо.

Добавлено @ 14:53 
А как обрабатывать процедуры созданных компанентов?

СРОЧНО!!! В магазин за книгой по Delphi!!!

замени

на

У меня книг миллион, но не в одной не про динамические компаненты.
Всем спасибо.