mouse over

Hvad med OnMouseMove på en Button... Fyrer kun når musen befinder sig over knappen?


procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  MessageDlg('Test på pos ' + IntToStr(X) + ',' + IntToStr(Y), mtInformation, [mbOK], 0);
end;

Hvad så med OnMouseOut ... ? eller sådan noget?

Så skal du ind og lege med messages. Window sender en mouseout event.