if abfrage bei mouse_event??

[NicoDE]

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Caption := '';
  if (GetKeyState(VK_LBUTTON) < 0) then
    Caption := 'LMT ';
  if (GetKeyState(VK_MBUTTON) < 0) then
    Caption := Caption + 'MMT ';
  if (GetKeyState(VK_RBUTTON) < 0) then
    Caption := Caption + 'RMT ';
end;