Buttonklick erkennen

[mirage228]

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;

Vielleicht hilft dir das irgendwie weiter...

mfG
mirage228