Mausstatus unter D5?

WEBSTER · 03.11.2000

Salute,

wie kann ich den Mausstatus unter D5 abfragen? Z.B. crDefault, o.Ä.

Mit einer einfachen
if Screen.Cursor = crHandPoint then....
geht es leider nicht. Vielleicht mache ich auch etwas falsch. Bitte um Hilfe

Danke....

WEBSTER

------------------
Wer etwas anders macht, aber nicht besser,
der sollte besser was anderes machen.

Deep Space · 16.11.2000

Hi

Also der Methode OnMouseMove wird ein Parameter übergeben mit dem sich unter anderen der Mausstatus abfragen lässt.

Eine weitere Möglichkeit ist die API-Funktion GetAsyncKeyState zu benutzen.

D.S.

O Love · 17.11.2000

Hi WEBSTER,

möchtest Du den Mausstatus abfragen (Taste gedrückt, Ctrl od. Shift dazu) oder den gerade aktuellen Mauscursor haben?

Wenn Letzteres, dann probiere mal den Code:

Code:

procedure TfmMainForm.Timer1Timer(Sender: TObject);
var
  APoint	: TPoint;
  AControl	: TControl;
begin
  // Mausposition auf dem Bildschirm holen
  GetCursorPos (APoint);
  // Umrechnen in Client-Koordinaten
  APoint	:= ScreenToClient (APoint);
  // Aktuelles Control an der Position holen, auch deaktivierte und WinControls
  AControl	:= ControlAtPos (APoint, True, True);
  // Rausspringen, wenn kein Control gefunden
  if (not Assigned (AControl)) then
    Exit;
  // Hat unser Control den Handcursor?
  if (AControl.Cursor = crHandPoint) then
    MessageBeep (0);
end;

O Love

------------------
"I will not abide disobedience!"

WEBSTER · 19.11.2000

Merci....

WEBSTER

------------------
Wer etwas anders macht, aber nicht besser,
der sollte besser was anderes machen.

Mausstatus unter D5?

WEBSTER

Deep Space

O Love

WEBSTER

Mausstatus unter D5?

ANGEBOTE & SPONSOREN

Neueste Beiträge

Statistik des Forums