Drag&Drop mit TMenuItem

[extrem]

Zitat von _frank_:

dadurch, dass du weder die Drag&Drop-Events noch MouseDown/Up/Move hast, wird das nicht so möglich sein.

Hi

Den onDrag Event könnte man allerdings mit Hilfe der Nachricht WM_MENUDRAG abfangen.

Delphi-Quellcode:

  private
    procedure WMMENUDRAG(var Msg: TMessage);message WM_MENUDRAG;
 
...

procedure TForm1.WMMENUDRAG(var Msg: TMessage);
begin
  Caption:= MainMenu1.FindItem(Msg.LParam,fkHandle).Items[Msg.WParam].Caption;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  MenuInfo: TMenuInfo;
begin
  MenuInfo.cbSize:= SizeOf(TMenuInfo);
  MenuInfo.fMask:= MIM_STYLE;
  MenuInfo.dwStyle:= MNS_DRAGDROP;
  SetMenuInfo(MainMenu1.Handle, MenuInfo);
end;