Hallo profmaster!
Der CLXToolbar ist zwar auch nicht schlecht. Aber Du kannst es auch ganz einfach so machen:
Delphi-Quellcode:
//Die Tags habe ich beim Stöbern in den anderen Rubriken gefunden. Werd mal testen, ob das auch
//klappt
procedure TMainForm.MouseDown(...);
begin
if (X>=(Sender as TToolBar).Left)) and (X<=(Sender as TToolBar).Left+8) then
DragFlag := True;
end;
procedure TMainForm.MouseMove(...);
begin
if DragFlag then if Toolbar.Visible then ToolBar.Hide else ToolBar.Show;
if not ToolBar.Visible then ToolWindow.Show else ToolWindow.Hide;
end;
Das Toolwindow mußt Du natürlich voher erzeugt haben und dafür gesorgt haben, das die Steuerelemente passend auf dem Fenster erscheinen.
Ich hoffe, das funzt, (wie man hier sagt)
Delphifan2004