Bot�es

Question

Como eu fa�o para trocra o capition de uma bot�o quando o usuario tirar o mouse da area do bot�o ?
:roll: obs.: n�o � o evendo onMouseMove que eu estou falando, esse muda quando o usuario �entra� com o mouse na area do bot�o!
Obrigado ae!
Abra�o peop !

Beppe · Answer

Ele deveria processar as mensagens WM_MOUSELEAVE, mas ele n�o faz isso. Entretanto voc� pode simular o evento.

o No evento OnMouseMove do bot�o, voc� seta uma vari�vel booleana global(pode ser um campo private do form), para True.
o No evento OnMouseMove do form, voc� checa esta vari�vel.

Veja como fica:

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  NoBotao := True;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if NoBotao then
  begin
    ShowMessage(�O mouse deixou o bot�o!�);
    NoBotao := False;
  end;
end;

Ataliba