TMdiTabs

[r2c2]

Hallo DPler :hi:
Wer kennt sie nicht: Die hübschen Kartenreiter("Tabs") bei Opera, FireFox und neuerdings IE7? Das so genannte "TabbedBrowsing" ist aber nicht nur beim Surfen praktisch. Auch für MDI-Programme, wie Code-Editoren eignet sich dieses Feature hervorragend. TMdiTabs, eine von TPageControl abgeleitete Komponente, erleichtert die Implemenierung dieses Features.

Kurz was zur Vorgeschichte
Im Informatikunterricht hab ich als Referat meine Einadressmaschinensimmulation vorgestellt. Da ich auch n bisschen Code zeigen wollte und auf den Rechnern kein Delphi installiert ist, hab ich mir n Viewer gebastelt. TMdiTabs ist nun eine Art "Auskopplung"(= parktisches Nebenprodukt) aus diesem Viewer...

Benutzung
Um MdiTabs zu nutzen, geht man wie folgt vor:

• MDIChild von TTabedMDIChild ableiten
  
  
  Delphi-Quellcode:

    TMDIChild = class(TTabedMdiChild)

• TMdiTabs auf das Hauptformular ziehen
• Beim Erstellen der MDI-Fenster diese bei MdiTabs regsitrieren:
  
  Delphi-Quellcode:

  var
    Child: TMDIChild;
  begin
    Child := TMDIChild.Create(Application);
    Child.TabName := ExtractFileName(Name); // Anzeigename festlegen
    MdiTabs.AddChild(Child); // Child regsitrieren

Alles weitere erledigt die Komponente.

Features

• Automatische Verwaltung der MDI-Children
• Verschieben der Tabs per Drag'n'Drop
• Automatische Tab-Hints

ToDo
Wenn ich Zeit und Lust hab implemeniert ich vllt noch farbige Tabs und Close-Buttons...

Link
http://r2c2.weingut-rehn.de/code6_TMdiTabs.htm

Download
http://r2c2.weingut-rehn.de/forum/viewtopic.php?t=82

Anwendungsbeispiel
http://r2c2.weingut-rehn.de/prog6_PasViewer.htm

rfc

Christian