Вниз
Скачать: CL | DM;

Как присвоить OnClick свою процедуру?   Найти похожие ветки 

← →
ShotGuN ©   (2005-09-18 13:19) [0]

Я создал свою процедурку On_Click(Sender: TObject);

написал Button1.OnClick := On_Click;

Выдается ошибка...

Знаю, что можно сделать... но не могу найти как... кто-нибудь может помочь?


← →
MBo ©   (2005-09-18 13:24) [1]

Обработчик события должен иметь тип Procedure(...) of object
т.е. быть методом какого-то класса, а не простой процедурой


← →
ShotGuN ©   (2005-09-18 13:30) [2]

Синтаксис поподробней можно описать? плз...


← →
ShotGuN ©   (2005-09-18 13:32) [3]

OnClick: TNotifyEvent


← →
MBo ©   (2005-09-18 13:44) [4]

Ну посмотри, что делается, когда ты кладешь на форму кнопку и делаешь обработчик клика: Появляется метод формы Button1Click, а не регулярная процедура.
Стоит зайти на www.delphikingdom.ru и в разделе  Hello, World  прочитать статью  "Жизнь и смерть в режиме RunTime"


← →
Anatoly Podgoretsky ©   (2005-09-18 13:45) [5]

Синтаксис правильный.


← →
Antonn ©   (2005-09-18 14:20) [6]

ShotGuN ©   (18.09.05 13:19)
Я создал свою процедурку On_Click(Sender: TObject);

написал Button1.OnClick := On_Click;


может нужно не просто процедурку?
procedure TForm1.On_Click(Sender: TObject);
begin
//
end;
Button1.OnClick := On_Click;


> Выдается ошибка...

какая?


← →
Курсант   (2005-09-18 14:39) [7]

Надо так:

Button1.OnClick := On_Click(Sender);


← →
MBo ©   (2005-09-18 14:45) [8]

>Курсант   (18.09.05 14:39) [7]
не надо так.


← →
Anatoly Podgoretsky ©   (2005-09-18 14:51) [9]

Курсант   (18.09.05 14:39) [7]
On_Click не является функцией.


← →
umbra ©   (2005-09-20 17:41) [10]

Чтобы такое присвоение сработало, надо чтобы твоя процедура быля членом класса


TForm1 = class(TForm)
Button1: TButton;
private
procedure On_Click(Sender: TObject);

{......................................................................................................
где-то дальше}

Button1.OnClick = On_Click;



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

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



Память: 0.47 MB
Время: 0.028 c
1-1127714397
EarlVadim
2005-09-26 09:59
2005.10.16
Помогите с кодом GetFileVersionInfo.... (+)


14-1127370348
leonidus
2005-09-22 10:25
2005.10.16
Ссылки на уроки по администрированию Win2000/2003 Server


3-1125772095
Eagle Owl
2005-09-03 22:28
2005.10.16
Подключение к MySQL при помощи ADO + MyODBC


14-1127322382
Валёк
2005-09-21 21:06
2005.10.16
Величины


5-1102862014
Hyboid
2004-12-12 17:33
2005.10.16
Кнопка в Edit




   Наверх