if abfrage bei mouse_event??

[Wadim]

hi,

ich will per eine if befehl abfragen ob die rechte maustaste gedrückt ist aber das klapt irgendwie nicht

hab schon versucht mit:

Delphi-Quellcode:

if mouse_event (mouseeventf_rightdown,0,0,0,0) then 
  begin
    irgendwas
  end;

geht aber nicht, kann mir da jemand irgendwie helfen??

[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;

[Wadim]

Zitat von 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;

big THX

mfg wadim