Delphi Can

merhaba değerli arkadaşlarım,hocalarım,abilerim bi konuda yardım isticektim

delphide slipt butonu üstüne geldiğimde otomatik oalrak açmasını istiyorum yardımlarınızı bekliyorum

https://h.eksiup.com/1EDZAb.png

resimde tıklayınca açkıyor ama onmausemove olayına ne yazacağımı bulamadım

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  p: TPoint;
begin
  if GetCursorPos(p) then
    Button1.DropDownMenu.Popup(p.X, p.Y);
end;

arsl01

SimaWB