GetPixel() funktioniert irgendwie nicht :(

[TStringlist]

event. ist der von dir mittels 'GetDC' organisierte 'device context' in dem Falle nicht mehr gültig? Versuche es doch auch mal mit 'CreateDC', z.B. so wie in der folgenden kurz-Proc:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var DC : HDC;
    AColor : array[1..4] of byte;
begin
  DC:=CreateDC('DISPLAY',NIL,NIL,NIL);
  DWord(AColor) := GetPixel(DC,Mouse.CursorPos.X,Mouse.CursorPos.Y);
  DeleteDC(DC);
  Label1.Caption := 'R: ' + IntToStr(AColor[1]) + ';   ' +
                    'G: ' + IntToStr(AColor[2]) + ';   ' +
                    'B: ' + IntToStr(AColor[3]);
end;