Einzelnen Beitrag anzeigen

Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#4

AW: gesucht: Komponente des Objektexplorers von MsSql

  Alt 28. Dez 2014, 10:09
Versuch doch mal folgendes:

Ein PageControl auf die Form klatschen und TPageControl.DockSite auf True .
Dann irgendwo einen Button, der beim Klick dann das hier ausführt:
Delphi-Quellcode:
procedure TForm1.Button1Click( Sender: TObject );
var
  LPanel: TPanel;
begin
  LPanel := TPanel.Create( Self );
  LPanel.ShowCaption := False;
  LPanel.Caption := 'Test';
  LPanel.DragKind := TDragKind.dkDock;
  LPanel.DragMode := TDragMode.dmAutomatic;

  // Damit kann man rumspielen und ein eigenes DockForm unterjubeln
  LPanel.FloatingDockSiteClass := TCustomDockForm;

  // direkt ans PageControl docken
  // LPanel.ManualDock( PageControl1, nil, alClient );

  // Irgendwohin frei schwebend klatschen lassen
  LPanel.ManualFloat( Self.ClientRect );
end;
Die Form die dann erscheint verschieb mal in Richtung des PageControls. Irgendwann dockt die dann dort an
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat