mouse cursorunun bulunduğu yerdeki rengi alma

[Lord_Ares]

mouse kursorunun bulunduğu 5x5 pixel yerdeki rengi nasıl alırım ve karşılaştırırım.
bu kodum duzgun çalışmıyor. siyah bir form oluşturdum içine iki tane edit koydum renklerini beyaz, ve mavi yaptım
uzerlerine geldiğinde siyah olan yerde çalışması gerekir ama arasıra çalışıyor.



procedure TForm1.Button2Click(Sender: TObject);
var
point:TPoint; // kursor'un bulundugu yer
pikselrengi:TColor;
ScreenDC: HDC;
begin
getcursorpos(point); // kursor'un bulundugu yerin kordinatlarini oku
if (form1.Canvas.Pixels[point.x,point.y]=clBlack) then
begin
ShowMessage('siyah');
end else ShowMessage('değil');
end;

acaba şöylemi kullanmalıyım
//pikselrengi:=GetPixel(ScreenDC, point.x, point.y);
showmessage(pikselrengi);

burdaki komutta da donen değer Tpoint bunu showmesage ile gosteremiyorum

[conari]

Yeni konuşuldu.
viewtopic.php?f=2&t=26060