If für Linksklick

[wallwriht]

Hi,

Ich suche eine If Abfrage für einen Linksklick.
Bitte nicht mit on Mousedown oder on Mouseclick kommen, weil ich das in einer onmousemove procedure brauche.


mfg

wallwriht

[Die Muhkuh]

OnMouseDown oder OnMouseClick oder OnMouseUp ;-)

Zitat:

Bitte nicht mit on Mousedown oder on Mouseclick kommen, weil ich das in einer onmousemove procedure brauche.

Das riecht nach einem sehr starken Designfehler.

[BUG]

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ssLeft in Shift then {-- insert code here --};
end;

So kannst du prüfen ob die linke Maustaste gedrückt ist.

[blauweiss]

Hallo,

falls es wirklich in einer If Abfrage passieren soll:
Ich verwende für die Abfrage des Mausstatus u.a. diese Funktion:

Delphi-Quellcode:

function MouseLeftButtonIsDown: boolean;
begin
  Result := (GetKeyState(VK_LBUTTON) < 0);
end; // MouseLeftButtonIsDown

Gruß,
blauweiss