Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c