попробовал сделать еще так:
сначала кнопка установления координат и нахождения цвета в этих точках и записывания в эдиты:
Код:
procedure TForm1.Button5Click(Sender: TObject);
begin
showmessage (' Наведите курсор на ... и нажмите Enter');
GetCursorPos (mish);
edit8.text:=inttostr(mish.X);
edit9.Text:=inttostr(mish.Y);
Edit12.Text:=IntToStr(GetPixel(GetDC(0), mish.X, mish.Y));
end;
получаются некоторые значения:
1068, 621 и 2963691
Еще сделал кнопку:
Код:
procedure TForm1.Button8Click(Sender: TObject);
begin
showmessage (inttostr(GetPixel(GetDC(0),strtoint(edit8.text),strtoint(edit9.text))));
end;
Которая теоретически должна показывать тоже, что и в эдите12, но показывает другое:2502596 причем куда бы не навел, кроме той области с кнопкой, там в той области показывает 2963691, даже если цвета там совсем разные..