ладно а подругому

[AGA]

ладно а подругому как проверить было ли нажатие на компонент LABEL например

[zetrix]

var on_label_pressed:boolean;
...
procedure TForm1.Label1Click(Sender: TObject);
begin
is_on_label_pressed:=true;
end;


Потом где-нибудь в таймере проверять if on_label_pressed then ...