Главная страница
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.016 c
3-20004
Солер
2003-06-11 13:58
2003.07.07
Помогите с запросом


14-20231
Sirus
2003-06-17 06:57
2003.07.07
Как защитить базу???


14-20280
Дмитрий К.К.
2003-06-20 06:09
2003.07.07
Именинники 20 июня


4-20353
vic_vm
2003-05-06 15:57
2003.07.07
Ошибка Error creating window device context


14-20307
Andryk
2003-06-20 11:30
2003.07.07
Почему в России как всегда