[cadil]

Как записать клик по Label?
Что-то примерно

Код:

 if Label4.Click = True then

, но правильно!
Спасибо!

[Black Raider]

нажать на форме на label в object inspector'e выбрать вкладку events (события) 2 раза нажать на onClick сформируется шаблон процедуры для клик по Label
в нем и пиши то что должно произойти по клику на Label

[cadil]

Сообщение от Black Raider

нажать на форме на label в object inspector'e выбрать вкладку events (события) 2 раза нажать на onClick сформируется шаблон процедуры для клик по Label
в нем и пиши то что должно произойти по клику на Label

Я не спрашивал как записать процедуру

Код:

procedure TForm6.Label4Click(Sender: TObject);

- тут вопросов нет.
Проблема в том, чтобы записать условие: "если клик по Label4 выполнен, то ..." Дело в том, что среди свойств и функций компонента Label свойства Click - нет.
Впрочем, эту проблему я уже обошел ...

[Black Raider]

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

Я не спрашивал как записать процедуру

Код:

procedure TForm6.Label4Click(Sender: TObject);

- тут вопросов нет.
Проблема в том, чтобы записать условие: "если клик по Label4 выполнен, то ..." Дело в том, что среди свойств и функций компонента Label свойства Click - нет.
Впрочем, эту проблему я уже обошел ...

что значит если клик по Label4? свойства нет есть событие. onClick.
если событие только на этот компонент то и проверять не зачем ибо оно будет возникать только для этого компонента.
если у вас на все label стоит одно и тоже событие то обрабатывайте входящий параметр Sender например так:

Код:

if (sender as TComponent).Name='Label3' then чегото делаем.
if (sender as TComponent).Name='Label4' then чегото делаем.

[cadil]

Сообщение от Black Raider

...то обрабатывайте входящий параметр Sender например так:

Код:

if (sender as TComponent).Name='Label3' then чегото делаем.
if (sender as TComponent).Name='Label4' then чегото делаем.

Спасибо! Буду работать в этом направлении.

[Bars1992]

Или ище легче бирешь пишешь событие по клику на лейбе

PHP код:

procedure TForm1.Label1Click(Sender: TObject);
begin
Flag:=true;//флаг глобальная переменная
end; 


а потом в коде пишеш

PHP код:

if flag then ........