Pegando a cor de onde o mouse está
Esta é uma dica bastante usada, pois serve para que você possa saber qual é a cor de algum objeto, ou da parte de uma imagem. Deste modo seu mouse irá funcinar como aquele "conta gotas" que tem na maioria dos programas editores de imagem. Neste exemplo nós iremos colocar a cor no fundo do nosso formulário, mas lembre-se que pode fazer o que quizer com o valor recebido, até mesmo guarda-lo em uma variável.
Primeiramente crie um novo projeto. Insira somente um componente Timage no seu formulário. Agora no evento OnMouseMove insira o código abaixo:
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Form1.Color := Image1.Canvas.Pixels[x, y];
end;
Agora é só salvar e rodar a aplicação para ver como funciona esta dica.
Feito por Marco Antonio
