Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Flocke,
6. Mär 2006
Ja -räusper- genau so ... hatte ich doch auch geschrieben, oder? ;)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Flocke,
6. Mär 2006
Du musst ja nur das TabSheet suchen, dass sich auf ActiveMDIChild bezieht:
for c := 0 to tMDIChildTabSheet.PageCount - 1 do
if TMDIChildTabSheet(tMDIChildTabSheet.Pages).MDIChild = ActiveMDIChild then
tMDIChildTabSheet.ActivePageIndex := c;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Flocke,
3. Mär 2006
Du kannst anhand der Caption suchen (Tabsheet.Caption = MDIChild.Caption).
Besser: definiere deine eigene TMDIChildTabSheet-Klasse mit
type
TMDIChildTabSheet = class(TTabSheet)
private
FMDIChild: TForm;
public
property MDIChild: TForm read FMDIChild write FMDIChild;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Flocke,
2. Mär 2006
Du kannst alternativ auch testen, ob das Fenster bald zerstört werden wird:
for c:=0 to MDIChildCount -1 do
if not (csDestroying in MDIChildren.ComponentState) then
with tTabSheet.Create(Self) do
begin
PageControl := PageControl1;
caption := MDIChildren.caption;
end;