Herausfinden ob Maus gedrückt

[igel457]

Hallo,
ich programmiere gerade ein kleines Spiel mit UnDelphiX.

Da das ganze ein Strategiespiel ist möchte ich, das ich weiß mit ob ich nun auf eine Einheit geklickt habe.
Ich möchte dies nicht mit DXDraw1.OnClick lösen.

Sondern eher so:

Delphi-Quellcode:

procedure TSelSprite.DoCollision(Sprite:TSprite;var done:boolean);
var mousedown:boolean;
begin
  mousedown := //Jetzt weiß ich nicht weiter
  if (sprite is TMouseCursor) and (mousedown) then
    selected := true
end;

Danke für die Antworten!

[Delphi-Freak]

Da gibts die Funktion GetKeyState, der dann VK_LBUTTON bzw. VK_RBUTTON angeben und die gibt dann einen SmallInt-Wert zurück. Schau dir davon mal in einem Testprogramm die Ergebnisse an. Bei jedem 2. Drücken kommen immer die gleichen Werte heraus. Genau weiß ich das leider nicht mehr...

LG

[igel457]

Jup!

Das geht. Probleme hab ich aber keine.
Ich mach das jetzt so:

Delphi-Quellcode:

procedure TSelSprite.DoCollision(Sprite:TSprite;var done:boolean);
var mousedown:boolean;
begin
  mousedown := getkeystate(VK_LBUTTON)<0;
  if (sprite is TMouseCursor) and (mousedown) then
    selected := true
end;

Danke!

[Delphi-Freak]

Gut!

LG, ich