[Тимофей Петрович]

в виндах куча вариантов, тут линупс.
в обработчике *MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); сделал цикл:

Код:

  while Button in [mbleft,mbright] do
    begin
      if Button=mbright then ButtonXY:=1;
      if Button=mbleft  then ButtonXY:=2;
      Timer4.Enabled:=true;
      Application.ProcessMessages;
    end;
  ButtonXY:=0;
  Timer4.Enabled:=false;

пока не нажму клавишу всё норма, как только нажал - цикл залипает и из цикла не выходит, пока не нажму другую клавишу. таймер при этом работает нормально. трабл в условия цикла, непойму почему Button in [mbleft,mbright] не снимается при отжатии кнопки.

просто при нажатии кнопки по процедуре MouseDown происходит один проход.