![]() |
![]() |
666999 23.04.2004 - 13:17 |
при запущенной проге создаю кнопку: TButton.Create как к этой созданной кнопке привязать событие onclick ??? спасибо. |
wishmaster 1 - 23.04.2004 - 13:27 |
Что-то типа: procedure TForm1.FormShow(Sender: TObject); var MyBTN: TButton; begin MyBTN:=TButton.Create(Form1); MyBTN.Parent:=Form1; MyBTN.OnClick:=CLK; end; procedure TForm1.CLK(Sender: TObject); begin showmessage('!'); end; |
Наф 2 - 23.04.2004 - 13:33 |
Чтение...вот польза http://www.delphikingdom.com/asp/viewitem.asp?catalogid=342 |