Как прописать условный оператор кликанья на кнопку?

[mauar]

Как прописать условный оператор кликанья на кнопку?

Так делаю, не выходит

 if Button1.Click then
....

 if Button1 = Click then  // и так не выходит :-)
....

[__STDC__]

оО зачем? onClick не катит?

[DomiNick]

Хм... Это что Вы такое хотите сделать-то..?

[mauar]

__STDC__
Нет, надо именно так

DomiNick
Ну вот хочеться такое сделать )) Может подскажите решения?

[Cкулаб]

Зачем из мухи делать самолет?

procedure TForm1.Button1Click(Sender: TObject);
begin
...
end;

Если вы начинающий, то вкладка events радом с propirties объекта... Удачи!

[mauar]

Cкулаб
Я знаю прекрассно где находятся свойства и события компонентов прекрассно и вкладку эту знаю.
Надо прописать условия кликанья на кнопку, без описания события процедуры OnClick.
....

Хорошо, допустим, а если описать собственную процедуру кликанья на кнопку?

[__STDC__]

можно так как-нибудь

procedure TForm1.FormCreate(Sender: TObject);
begin
button2.OnClick := button1.onClick;
end;

[mauar]

Сообщение от __STDC__

можно так как-нибудь

procedure TForm1.FormCreate(Sender: TObject);
begin
button2.OnClick := button1.onClick;
end;

Нет, мне нужно сделать отлов нажатия кнопки, если кнопка нажата то сделать то то, может while или repeat попробовать? Без обработчика OnClick

[__STDC__]

хм.. для этого и существуют обработчики событий.. делайте как сказал Скулаб... не понимаю проблемы

[mauar]

Сообщение от __STDC__

хм.. для этого и существуют обработчики событий.. делайте как сказал Скулаб... не понимаю проблемы

Ну вообще получается нужно как бы собственную процедуру обработки кликанья на кнопку надо сделать. Но только не OnClick, она не подходит.

...

Хорошо, по другому а если ладно пусть будет OnClic т.е.

procedure TForm1.Button1Click(Sender: TObject);
begin
...
end;

А уже на неё сделать указатель или задать как тип, или переменную типа Var MyClick : TButtonclick и вызвать её программно или прописать в том же условном операторе?