Работа с динамическими компонентами

← →
Елена (2006-03-10 09:44) [0]

Подскажите, мастера -
Я создаю динамически Кнопку на форме, и мне необходимо, что бы при нажатии на эту кнопку, делалось опеределенное действие (к примеру, диалог), т.е вызывать процедуру этой кнопки.
Как это сделать? Если у кого нить есть пример..

← →
Руслан © (2006-03-10 09:47) [1]

Вроде не мастер, но отвечу)
когда создаешь кнопку, так и пропишешь в коде
button1.onclick:=Myclick

← →
MBo © (2006-03-10 09:50) [2]

http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=342

← →
msguns © (2006-03-10 09:58) [3]

Обработчик MyClick должен быть определен в том классе (форме), который является собственником созданной кнопки.

Вот так будет работать:

type
TForm1 = class(TForm)
Button1: TButton;
...
procedure Button1Click(Semder: TObject);
...

implementation

procedure TForm1.Button1Click(Semder: TObject);
begin
... // тело обработчика
end;

procedure TForm1.CreateMyButton;
var
bt: TButton;
begin
bt := TButton.Create(Self);
with bt do
begin
Parent :=
Left :=
Top :=
Width :=
Caption :=
OnClick := Button1Click;
end;
end;

← →
Sergey Masloff (2006-03-10 10:23) [4]

msguns © (10.03.06 09:58) [3]
>Обработчик MyClick должен быть определен в том классе (форме), который >является собственником созданной кнопки.
Да нет - в любом классе

← →
Елена (2006-03-10 10:25) [5]

а если так - у меня на форме зодается Н-ое кол-во едитов. Как узнать, какое из них в данный момент имеет фокус?

← →
Жуков Олег (2006-03-10 10:35) [6]

if ActiveControl <> nil then if ActiveControl is TCustomEdit then ShowMessage("Это текст в активном Edit""е: " + (ActiveControl as TCustomEdit).Text);

← →
Sergey Masloff (2006-03-10 10:37) [7]

ActiveControl property (TCustomForm)

← →
Sergey Masloff (2006-03-10 10:37) [8]

Ну естественно проверять является ли этот контрол Edit-ом

TForm.ActiveElement.
Или параметр Sender обработчика события поля редактирования.

PS. Задавайте вопросы конкретно.

← →
Sergey Masloff (2006-03-10 10:45) [10]

Жуков Олег (10.03.06 10:35) [6]
Не видел когда писал :-)

> Да нет - в любом классе

Просто методом должна быть.

Работа с динамическими компонентами Найти похожие ветки