Buttonbeschriftungen auflisten

[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