Delphi dicas

Pegando a cor de onde o mouse está

{E só inserir um componente Timage com uma imagem carregada no seu form. E no evento OnMouseMove insirir o código abaixo: }



procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

        Form1.color:=Image1.canvas.pixels[x,y];

end;

por : Victor Roberto