移动TMenuItems会丢失OnClick事件。

在TMenuItem的OnAdvancedDrawItem事件中绘制TGraphicControl，并将OnClick事件绑定到该控件上。这样无论移动TMenuItem，该控件始终保留OnClick事件。

代码示例：

procedure TForm1.MenuItemAdvancedDrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState); var GCtrl: TGraphicControl; begin GCtrl := TGraphicControl.Create(Sender as TMenuItem); GCtrl.Parent := Sender as TMenuItem; GCtrl.Left := ARect.Left; GCtrl.Top := ARect.Top; GCtrl.Width := ARect.Width; GCtrl.Height := ARect.Height; GCtrl.OnClick := MenuItemClick; GCtrl.Canvas.Font.Assign(ACanvas.Font); GCtrl.Canvas.Brush.Color := clBtnFace; GCtrl.Canvas.FillRect(ClientRect); GCtrl.Canvas.TextOut(0, 0, Sender.Caption); end;

procedure TForm1.MenuItemClick(Sender: TObject); begin ShowMessage(TMenuItem(Sender).Caption); end;