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;