Главная страница
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.013 c
14-20203
Agent[007]
2003-06-14 09:14
2003.07.07
DelphiX


3-19983
Rust
2003-06-13 12:22
2003.07.07
БД


7-20329
login13
2003-04-25 15:45
2003.07.07
Работа с разрешением монитора


3-20012
Status_I
2003-06-15 00:00
2003.07.07
Все те же даты


1-20099
antoniz
2003-06-24 12:04
2003.07.07
В поле таблицы БД сохранен файл Excel можно ли открыть его в Exce