живу в линупсе, просто надо отловить нажатие кнопки мыши по таймеру.
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
var
Button: TMouseButton;
begin
if Button=mbright then ..;
if Button=mbleft then ..;
end;
ругается на Button который does not seem to be initialized (кажется, не инициализирован) но оба if отрабатывают каждый раз при проходе по таймеру.
в примерах по интернету всё происходит в событиях нажатия на кнопку, при этом если кнопку не отжимать - процедура какбы залипает?
как замутить повтор прохода по процедуре я совсем не понял.