Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.07;
Скачать: CL | DM;

Вниз

Динамически созданю обект MyButton:TButton...   Найти похожие ветки 

 
levova   (2003-06-25 15:09) [0]

Как терерь создать процедуру MyButtonClick?


 
ZEE ©   (2003-06-25 15:15) [1]

procedure MyButtonClick(Sender:TObject);
begin
// делаем что-то при клике
end;
...
//создаем кнопку
var MyButton:TButton;
...
MyButton:=TButton.Create(Form1);
MyButton.Parent:=Form1;
...
MyButton.OnClick:=MyButtonClick;
...


 
levova   (2003-06-25 15:22) [2]

Нужно ли это:

type
TForm1 = class(TForm)
procedure MyButtonClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;


 
ZEE ©   (2003-06-25 15:27) [3]

да
кстати по этому поводу:
procedure TForm1.MyButtonClick(Sender:TObject);
begin
// делаем что-то при клике
end;

зы: хотя я обычно добавляю в паблик, но вроде и так сойдет :)



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

Текущий архив: 2003.07.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
3-20016
mikeee
2003-06-15 17:16
2003.07.07
Как узнать DBGrid.Columns


14-20205
Barlok
2003-06-21 11:03
2003.07.07
Перевод в градусы синуса?


14-20272
race1
2003-06-18 15:54
2003.07.07
lan


3-19953
rosl
2003-06-10 09:31
2003.07.07
запрос в sql


1-20120
kalishenko
2003-06-24 19:50
2003.07.07
Как определить выходные дни?