Hallo DPler
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
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