Buttonbeschriftungen auflisten

[Zacherl]

Hallo,

hat jemand eine Idee, wie man Buttonbeschriftungen, über denen sich der Cursor befindet auflisten kann?

[SirThornberry]

mit WindowFromPoint einfach das Handle des darunterliegenden Controls holen und dann GetClassName aufrufen um zu prüfen ob es ein button ist. Wenn es ein Button ist mit GetWindowText die Caption holen (oder mit SendMessage und wm_getText)

[mirage228]

Hi,

meinst du so etwas?

Delphi-Quellcode:

// Edit:
uses TypInfo;

function GetCaptionAtCursor: String;
var
  Pos : TPoint;
  Ctrl: TWinControl;
begin
  GetCursorPos(Pos);
  Ctrl := FindVCLWindow(Pos);
  if (Ctrl <> nil) and (IsPublishedProp(Ctrl, 'Caption')) then
    Result := GetStrProp(Ctrl, 'Caption') else
  Result := '';
end;

Edit: Mist, merke gerade, dass er das in "Windows API" gepostet hat - Dann musst du SirT's Tipp befolgen...

mfG
mirage228

[SirThornberry]

@mirage228: funktioniert das nur innerhalb der eigenen Anwendung? Ich denk schon da über Processgrenzen sonst schlecht alle Properties abgefragt werden können.

[mirage228]

Zitat von SirThornberry:

@mirage228: funktioniert das nur innerhalb der eigenen Anwendung? Ich denk schon da über Processgrenzen sonst schlecht alle Properties abgefragt werden können.

Ja, das funktioniert nur innerhalb der eigenen Anwendung. Und auch nur, falls man die VCL verwendet.

mfG
mirage228

[SirThornberry]

Das sollte global funktionieren (aus vorhandenen sourcen zusammengesucht und ungetestet)

Delphi-Quellcode:

var text: PChar;
    tmpint: Integer;
    CursorPos: TPoint;
    Lhwnd: Cardinal;
begin
  GetCursorPos(CursorPos);
  Lhwnd := WindowFromPoint(CursorPos);

  tmpint := SendMessage(Lhwnd, WM_GETTEXTLENGTH, 0, 0) + 1;
  getmem(text, tmpint);
  SendMessage(Lhwnd, WM_GETTEXT, tmpint, Integer(Text));
  Edit1.Text := String(text);
  freemem(text);

Bei diesem Beispiel fehlt noch die Prüfung auf den Klassennamen wenn man nur auf Buttons reagieren möchte.
Diesen erhält man ganze einfach so:

Delphi-Quellcode:

var Classenname: Array[0..255] of Char;
begin
  GetClassName(LHwnd, Classenname, 255);
  Edit2.Text := String(Classenname);