Evento sobre o ponteiro do mouse

Question

Fala pessoal,Eu fiz uma imagem como bot�o ou seja eu fiz imagem como se fosse bot�o, ent�o eu quero saber como que faz quando o ponteiro do mouse passa por cima da imagem ai muda a outra imagem que qu...

Marcosrocha · Answer

Em um ImageList coloque 3 imagens (Normal, Over, Down (nomes fict�cios)) ai nos eventos:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Image1.Picture := nil;
  ImageList1.GetBitmap(2, Image1.Picture.Bitmap);
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Image1.Picture := nil;
  ImageList1.GetBitmap(1, Image1.Picture.Bitmap);
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Image1.Picture := nil;
  ImageList1.GetBitmap(0, Image1.Picture.Bitmap);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Image1.Picture := nil;
  ImageList1.GetBitmap(0, Image1.Picture.Bitmap); // para que o botao fique normal quando tirar o mouse do Image1
end;

Zullcore · Answer

Valeu cara.Aprendi isso.Mas eu tenho um pequeno problema.Essa parte:[code:1:094486575f]procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin   Image1.Picture := nil;   ImageList1.GetBitmap(0, Image1.Picture.Bitmap); // para que o botao fique normal quando tirar o mouse do Image1 end;[/code:1:094486575f]Quando meu ponteiro do mouse passa na �rea Form, a Image1 ficam piscando. Como resolve isso?...

Zullcore · Answer

Eu estive pensando motificar o theme (skin) na parte do bot�o, sem usar o programa VCL.� poss�vel?...

F�rum Evento sobre o ponteiro do mouse #348302