Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.04.01;
Скачать: CL | DM;

Вниз

Описание процедуры   Найти похожие ветки 

 
Oleg_teacher ©   (2007-03-07 09:20) [0]

Ситуация: динамически создаю Батон1.
Надо собитию ОнКлик Батону1 присвоить свою процедуру  
ХХХ
Button1.onclick:=XXX ///
Подскажите как описать процедуру ХХХ


 
Сергей М. ©   (2007-03-07 09:23) [1]

type
 TSomeClass = class(...)
 ..
   procedure DoOnClick(Sender: TObject);
 ..
 end;

..

procedure TSomeClass.DoOnClick(Sender: TObject);
begin
..
end;

..

Button1.onclick := SomeInstanceOfTSomeClass.DoOnClick;


 
Oleg_teacher ©   (2007-03-07 09:38) [2]


> Button1.onclick := SomeInstanceOfTSomeClass.DoOnClick;
>

Чучуть не полнл SomeInstanceOfTSomeClass. можна на примере. Извини за простые вопрсы но так уж получилось


 
S@shka ©   (2007-03-07 09:50) [3]

Button1.onclick := DoOnClick;
)")


 
Oleg_teacher ©   (2007-03-07 09:56) [4]


> Button1.onclick := DoOnClick;

Если так просто то выдает сообщение андекларейт  DoOnClick;


 
boa_kaa ©   (2007-03-07 10:05) [5]


> Oleg_teacher ©   (07.03.07 09:56) [4]
> > Button1.onclick := DoOnClick;
> Если так просто то выдает сообщение андекларейт  DoOnClick;

А объявить его религия не позволяет?


 
Oleg_teacher ©   (2007-03-07 10:07) [6]

Так я вроде и обявил
type
TSomeClass = class(Tbutton)
  procedure DoOnClick(Sender: TObject);
end;


 
boa_kaa ©   (2007-03-07 10:12) [7]

В [1] все написано


 
Oleg_teacher ©   (2007-03-07 10:13) [8]


> boa_kaa ©   (07.03.07 10:12) [7]
>
> В [1] все написано
>

Так я и говорю посмотри [2]


 
S@shka ©   (2007-03-07 10:13) [9]


> Так я вроде и обявил
> type
> TSomeClass = class(Tbutton)
>   procedure DoOnClick(Sender: TObject);
> end;


О... майн гот......

 В форме своей объявляй  

TForm1 = class (TForm)
....
...
     Button1 : TButton;
     procedure DoOnClick(Sender: TObject);
end;

и например
 
procedure TForm1.FormCreate ();
begin
  Button1 := TButton.Create(self);
  ...
  Button1.OnClick := DoOnClick;
end;


 
Oleg_teacher ©   (2007-03-07 10:19) [10]


> S@shka ©   (07.03.07 10:13) [9]

Спасибо. Очень помог не обижайсь я только учусь учусь учусь!!!


 
S@shka ©   (2007-03-07 10:25) [11]


> Oleg_teacher


Да без обид )))



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

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

Наверх




Память: 0.49 MB
Время: 0.074 c
2-1173183324
Интересующийся
2007-03-06 15:15
2007.04.01
Простой вопрос пр справку


2-1173581119
eXPell
2007-03-11 05:45
2007.04.01
Опять картинки...


6-1161096245
ГореПрограммер
2006-10-17 18:44
2007.04.01
Модуль работы с IP сетями.


3-1168210408
Lamer666
2007-01-08 01:53
2007.04.01
Подскажите можно ли из DBGrid-а узнать какую таблицу он отражает?


2-1173855331
forward
2007-03-14 09:55
2007.04.01
Файл в расшареной папке