Hallo,
ich habe folgenden Code um das Window
Handle vom Control unter der Maus herauszufinden:
(calc.exe als Beispiel)
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var
ahwnd: HWND;
aPoint: Tpoint;
begin
ahwnd := FindWindow('CalcFrame','Rechner');
aPoint := Mouse.CursorPos;
Windows.ScreenToClient(ahwnd,aPoint);
Label1.Caption := 'X: '+IntToStr(aPoint.X);
Label2.Caption := 'Y: '+IntToStr(aPoint.Y);
aHwnd := ChildWindowFromPoint(ahwnd,aPoint);
Edit1.Text := IntToStr(aHwnd);
end;
Allerdings bekomme ich nur das Window von einem Panel tiefer, aber nicht die
Handle vom Button selbst.
Hier sieht man's:
http://www.abload.de/img/failzgajj.jpg
Was mache ich falsch?
Danke schonmal.