Как определить цвет пикселя по курсором? - Delphi

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
Color : TColor;
R,G,B : byte;

begin

Color := Form1.Canvas.Pixels[X, Y];

R := GetRValue(Color);
G := GetGValue(Color);

B := GetBValue(Color);

Form1.Caption:= IntToStr(R) + IntToStr(G) + IntToStr(B);

If Form1.Caption='24621219' Then

Form1.Hint:='Цвет найден'

else Form1.Hint:='';

end;

Возврат к списку

обучись профессии будущего

Хочешь стать успешным разработчиком
приложений? Тогда добро пожаловать к нам.