Toolbar Drag'n Drop in CLX Anwendung

[profmaster]

Hallo Experten!

In einer VCL Anwendung klappt Drag/Drop super, aber wenn ich eine CLX Anwendung erstellen will, weigert sich Delphi beharrlich, den Toolbar als ToolWindow anzuzeigen. Gibt es da Abhilfe? Hab grad die Pro erhalten und will nun mein erstes Prog. schreiben.

profmaster grüßt Euch

[Progcoder]

Hallo profmaster!

Was quälst Du Dich? Schau Dir mal die Kompo CLXToolBar an. Die macht alles, was Du brauchst.

Viel Erfolg

Progcoder

[Progcoder]

Hallo, ich noch mal. Hab vergessen Dir den Link zu posten. Hier ist er:

http://<img src="styles/elise/misc/i...clxtoolbar</a>

Viel Erfolg

Progcoder

[delphifan2004]

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