hey das scheint so zu gehen... (hätte ichs ma vorher ausprobiert)
hab doch noch mal ne frage
also ich hab jetzt folgendes
Code:
function DesktopColor(const X, Y: Integer): TColor;
var
c: TCanvas;
begin
c := TCanvas.Create;
try
c.Handle := GetWindowDC(GetDesktopWindow);
Result := GetPixel(c.Handle, X, Y);
finally
c.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Pos: TPoint;
begin
GetCursorPos(Pos);
Panel1.Color := DesktopColor(Pos.X, Pos.Y);
end;
kann ich den farbwert irgendwie speichern so das das panel beim start des programmes wieder genau die farbe hat die ich vorher eingelesen habe?