Aktuellen Mauszeiger Abfragen..

[Mavarik]

Hallo Zusammen!

Gibt es den keine Möglichkeit den aktuellen Mauszeiger abzufragen...

Und zwar nicht das Icon sondern das ID...

Ich möchte einfach nur wissen: Aktueller Mauszeiger ist z.b. : crHandPoint

Von mir aus auch das Windows ID : IDC_HAND

Nochmal nicht sowas..:

Delphi-Quellcode:

  procedure DrawCursor(ScreenShotBitmap : TBitmap);
  var
    r: TRect;
    CI: TCursorInfo;
    Icon: TIcon;
    II: TIconInfo;
  begin
    CI.cbSize := SizeOf(CI);
    if GetCursorInfo(CI) then
      if CI.Flags = CURSOR_SHOWING then
      begin
        r := ScreenShotBitmap.Canvas.ClipRect;
        Icon := TIcon.Create;
        try
          Icon.Handle := CopyIcon(CI.hCursor);
          if GetIconInfo(Icon.Handle, II) then
          begin
            ScreenShotBitmap.Canvas.Draw(
                  ci.ptScreenPos.x - Integer(II.xHotspot) - r.Left,
                  ci.ptScreenPos.y - Integer(II.yHotspot) - r.Top,
                  Icon
                  );
          end;
        finally
          Icon.Free;
        end;
      end;
   end;

Mavarik :wall:

[turboPASCAL]

Naja, eine Art GetCursorID gibt es ja nicht und der Cursor selbst ist ja nur eine Graphic.
Die Cursor ID wird ja nicht im System beim setzen eines Cursors (SetCursor();) gespeichert. (glaub ich mal)
Man müsste nun das akt. Cursorbild mit allen anderen Cursorbildern vergleichen um heraus zu finden welcher gerade gesetzt ist.

[Luckie]

Einfach im MSDN unter SetCursor geguckt und das gefunden: GetCursor. ;)

[Hawkeye219]

Hallo,

GetCursor liefert ein Cursor-Handle, nicht die gewünschte Cursor-ID. Die von Delphi verwendete ID lässt sich aber relativ leicht aus dem Handle bestimmen:

Delphi-Quellcode:

// uses Windows, Forms

function GetActiveCursor: TCursor;
var
  CursorHandle: HCURSOR;
begin
  CursorHandle := GetCursor;

  for Result := crSizeAll to Screen.CursorCount do
    if (Screen.Cursors[Result] = CursorHandle) then
      Exit;

  Result := crDefault;
end;

Unschön ist natürlich die feste Untergrenze für die Schleife, aber mir ist kein "offizieller" Weg bekannt, diese Grenze zu ermitteln.

Gruß Hawkeye

[Luckie]

Zitat:

Zitat von Hawkeye219

GetCursor liefert ein Cursor-Handle, nicht die gewünschte Cursor-ID.

War ja auch nur als Ansatz gedacht.

[Reinhard Kern]

Hallo,

eine allgemeine Lösung kann es garnicht geben, weil ja jedes Programm den Cursor mit einer eigenen Bitmap programmieren kann, und viele tun das auch, einschliesslich Delphi (crHourGlass ist nicht Windows IDC_WAIT). Standardlösungen wie oben können höchstens die ID von Windows-eigenen Cursoren bestimmen, aber so muss der Cursor momentan ja nicht aussehen.

Die Information wird in CreateCursor verarbeitet, aber dazu gibt es keinen Weg zurück.

Gruss Reinhard

[himitsu]

Zitat:

Zitat von Reinhard Kern

(crHourGlass ist nicht Windows IDC_WAIT)

Bei mir schon. :gruebel:

crSQLWait sieht aber wie was Eigenes aus.

Zitat:

Zitat von Hawkeye219

GetCursor liefert ein Cursor-Handle, nicht die gewünschte Cursor-ID.

Hat mal wer probiert was passiert, wenn man sich zu den bekannten Cursor-IDs ein Handle besorgt und dieses mit diesem Handle vergleicht?

[toms]

GetIconInfo liefert doch diese Angabe.

[Mavarik]

Zitat:

Zitat von himitsu

Hat mal wer probiert was passiert, wenn man sich zu den bekannten Cursor-IDs ein Handle besorgt und dieses mit diesem Handle vergleicht?

Ja das war auch mein Ansatz...

Das Problem ist das die Funktion GetIconInfo nur dann funktioniert wenn die Maus auch dargestellt wird...

Als mit der Schleife über alle ID'S klappt es nicht, weil sich dafür die Maus auch noch bewegt haben muss..

Zitat:

Zitat von Hawkeye219

GetCursor liefert ein Cursor-Handle, nicht die gewünschte Cursor-ID. Die von Delphi verwendete ID lässt sich aber relativ leicht aus dem Handle bestimmen:

Delphi-Quellcode:

// uses Windows, Forms

function GetActiveCursor: TCursor;
var
  CursorHandle: HCURSOR;
begin
  CursorHandle := GetCursor;

  for Result := crSizeAll to Screen.CursorCount do
    if (Screen.Cursors[Result] = CursorHandle) then
      Exit;

  Result := crDefault;
end;

Das funktioniert leider auch nicht... Zum start ist Cursorcount = 0. Mal abgesehen davon, dass ein Setcursor den wert erhöht, auch wenn der Cursor
schon vorhanden ist... Bedeutet das mit jedem Setcursor die Liste immer größer wird...

Zitat:

Zitat von toms

GetIconInfo liefert doch diese Angabe.

s.o. Wie gesagt nur ein Handle nicht das ID...

Vielleicht gibt es eine Funktion die den Windows Status ausgibt, damit man selber den Cursor setzen kann?

Mavarik

[Mavarik]

Zitat:

Zitat von Mavarik (Beitrag 981333)

Vielleicht gibt es eine Funktion die den Windows Status ausgibt, damit man selber den Cursor setzen kann?

Push!

Hat keiner ne Idee wie man rauskriegt, dass Windows gerade die Maus auf resize oder so umgeschaltet hat?

Mavarik :coder: