bewegbare Toolbar und Menue

[markbolten]

Hallo,

ich programmiere in Delphi 7 eine eigene MDI-Anwendung und habe folgende Fragen:

wie erstelle ich ein bewegbares Menue bzw. Toolbar (wie bei delphi7). Ich will dies
mit den vorhandenen Komponenten TToolbar und TMainmenue realisieren. Bitte mit
Anleitung.

Danke im voraus

cu

[arbu man]

Nim noch die TCoolBar dazu und schau schau dir die Eigenschaft TToolBar.Menu an.

mfg, Björn

[BullsEye]

´Weiß net ob du's noch suchst aber :

Delphi-Quellcode:

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   TWincontrol(sender).perform(WM_LBUTTONUP, 0, 0);
   TWincontrol(sender).Perform(WM_SysCommand,SC_MOVE+2,2);
end;