Главная страница
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.053 c
15-1173287735
svr
2007-03-07 20:15
2007.04.01
Как восстановить файл? Срочно надо поднять винду!


4-1163520543
savva
2006-11-14 19:09
2007.04.01
реализация Callback вызова из DLL: не выходит каменный цветочек..


15-1173185865
Сергей М.
2007-03-06 15:57
2007.04.01
FastReport 3.x, шаблон отчета по форме "Книга продаж"


2-1173747390
Ref
2007-03-13 03:56
2007.04.01
Защита от копирования


1-1171046462
shr
2007-02-09 21:41
2007.04.01
есть ли мат. функции, работающие с Очень большими числами?