Главная страница
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.021 c
1-20073
mtn1909
2003-06-23 13:09
2003.07.07
avi


14-20247
Bland
2003-06-19 21:44
2003.07.07
Инстолятор на delphi


14-20269
Hatchy
2003-06-20 10:34
2003.07.07
Компонент для DElphi


14-20297
Всеволод Соловьёв
2003-06-20 17:02
2003.07.07
Дети пишут богу :)


1-20125
Артем К
2003-06-25 03:19
2003.07.07
Где мона достать компаненту нестандартного StringGrida?