Динамика

← →
Dot (2004-11-27 21:41) [0]

Мастера. Такая проблема. Я создаю компоненты динамически. Однако я же не могу в обработчике событий каждого из динамически созданных компонентов сслылаться друг на друга.
Грубо говоря если я создал TEdit и TButton динамически то при нажатии на кнопку я не смогу допустим присвоить Edit1.Text:="ss" вот в чем дело. Как это исправить?

← →
begin...end © (2004-11-27 21:42) [1]

> Dot (27.11.04 21:41)

> если я создал TEdit и TButton динамически то при нажатии
> на кнопку я не смогу допустим присвоить Edit1.Text:="ss"

Сможете.

← →
jack128 © (2004-11-27 21:44) [2]

это почему??

var
Edit1: TEdit = nil;

Edit1 := TEdit.Create(nil);

procedure TForm1.Button1Click(Sender: TObject)
begin
if Assigned(Edit1) then
Edit1.Text := "ss"
end;

var MyEdit: TEdit; MyButton: TButton; procedure TMyForm.ButtonClick(Sender: TObject); begin MyEdit.Text := "ss" end; begin MyEdit := TEdit.Create(MyForm); MyEdit.Parent := MyForm; MyButton := TButton.Create(MyForm); MyButton.Parent := MyForm; MyButton.OnClick := ButtonClick end.

Динамика Найти похожие ветки