Código
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
// Retornar a cor
Caption := ColorToString(Image1.Canvas.Pixels[X,Y]);
{ Retornar o número da cor }
Caption := Caption + ' - '+IntToStr(ColorToRGB(Image1.Canvas.Pixels[X,Y]));
end; //Esta dica foi testada com uma imagem de formato BMP
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009