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

Вниз

procedure   Найти похожие ветки 

← →
md   (2006-10-26 09:12) [0]

Добрый день!
У меня не работает процедура Button1Click. Подскажите, что я нитак сделал!
Вот общий вид моего юнита:

unit2

interface

uses
 ...
type
 TMyClass = class(TObject)
   Button1: TButton;
   Procedure Button1Click(Sender: TObject);
 Public
   Constructor Create(AOwner: TComponent);
end;

implementation

Constructor TMyClass.Create(AOwner: TComponent);
begin
 Button1:= TButton.Create(AOwner);
 ...
end;

Procedure TMyClass.Button1Click(Sender: TObject);
begin
 ...
end;
end.

---

← →
mfender ©   (2006-10-26 09:14) [1]

Нужно обработчик клика назначить кнопке

Button1.OnClick := Button1Click;

---

← →
md   (2006-10-26 09:17) [2]

Спасибо! Заработало!

---

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

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

Наверх

Память: 0.46 MB
Время: 0.045 c