Delphi Buttonklick erkennen

Thema durchsuchen

Ansicht

Themen-Optionen

Buttonklick erkennen

Ein Thema von devnull · begonnen am 3. Nov 2003 · letzter Beitrag vom 4. Nov 2003

Vorheriger Beitrag

Nächster Beitrag

mirage228

Registriert seit: 23. Mär 2003
Ort: Münster
3.750 Beiträge

Delphi 2010 Professional

Re: Buttonklick erkennen

3. Nov 2003, 20:19

zusammenfalten · markieren

Delphi-Quellcode:

			function GetObjectAtCursor: String;

{

  Liefert VCL-Klassennamen an

  der aktuellen Mausposition!

  Für Debugzwecke

}

var

  Pos: TPoint;

  Obj: TObject;

begin

  GetCursorPos(Pos);

  Obj := FindVCLWindow(Pos) as TObject;

  if Obj <> NIL then

    Result := Obj.ClassName else // du könntest nach TComponent casten und so an den Namen der Komponente rankommen!

    Result := 'Unknown Object at Cursor Position';

end;