| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

procedure [D6, XP]

md ©   (2006-10-26 09:12:00) 

Добрый день!
У меня не работает процедура 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.

---

md   (2006-10-26 09:17:00) [1]

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

---

mfender   (2006-10-26 09:14:00) [2]

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

Button1.OnClick := Button1Click;

---

Наверх