Вниз
Скачать: CL | DM;

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

← →
Елена   (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-ом


← →
Плохиш ©   (2006-03-10 10:38) [9]

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

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


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

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


← →
Ega23 ©   (2006-03-10 10:58) [11]


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


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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.026 c
3-1138877901
Alex_1234
2006-02-02 13:58
2006.03.26
Группировка по временным интервалам...


2-1142065880
AlexeyT
2006-03-11 11:31
2006.03.26
Число отображаемых строк в TMemo


11-1123319382
azsd
2005-08-06 13:09
2006.03.26
Options of KolToolbar have fix style when mirror form create


2-1141896299
Der Nechk@ssoff
2006-03-09 12:24
2006.03.26
рисование кнопки


6-1134651981
(CHALING 32)S K i N E R
2005-12-15 16:06
2006.03.26
Голосовой чат!




   Наверх