How to get the pixel color in a canvas on the current mouse position
Title: How to get the pixel color in a canvas on the current mouse position procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Form1.Color := Image1.Canvas.Pixels[x, y]; end;