Also bei mir funktioniert
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
hDesk : HWND;
hdcDesktop : HDC;
begin
hDesk := GetDesktopWindow;
hdcDesktop := GetWindowDC(hDesk);
Form1.Color := GetPixel(hdcDesktop, 81, 961);
end;
wunderbar.
Nur ich glaube es liegt wirklich daran das wenn Controls[i].Top = 0... Dann kann die y Koordinate die du suchst 500 sein. Du musst es wirklich umrechnen.
Gruß
Neutral General
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."