Problem mit Liste der geöffneten MDI-Child-Fenster

[uwewo]

Ich kann das jetzt schlecht nachstellen, aber kannst Du den Index des
zu aktivierende Fenster nicht über seinen Namen bestimen.

[hincapie]

Zitat:

Zitat von uwewo

Ich kann das jetzt schlecht nachstellen, aber kannst Du den Index des
zu aktivierende Fenster nicht über seinen Namen bestimen.

Ja, aber wie komme ich an den Namen, wenn ich die TabSheets doch erst zur Laufzeit erstellen lasse und daher den Namen vorher gar nicht kenne? :gruebel:

[Flocke]

Du kannst anhand der Caption suchen (Tabsheet.Caption = MDIChild.Caption).

Besser: definiere deine eigene TMDIChildTabSheet-Klasse mit

Delphi-Quellcode:

type
  TMDIChildTabSheet = class(TTabSheet)
  private
    FMDIChild: TForm;
  public
    property MDIChild: TForm read FMDIChild write FMDIChild;
  end;

Die Tabsheets erzeugst du dann so:

Delphi-Quellcode:

for c:=0 to MDIChildCount -1 do
  if not (csDestroying in MDIChildren[c].ComponentState) then
    with tMDIChildTabSheet.Create(Self) do
    begin
      PageControl := PageControl1;
      caption := MDIChildren[c].caption;
      MDIChild := MDIChildren[c];
    end;

Und dann kannst du es einfach mit

Delphi-Quellcode:

procedure TFrameForm.PageControl1Change(Sender: TObject);
begin
  TMDIChildTabSheet(PageControl1.ActivePage).MDIChild.BringToFront;
end;

nach vorne holen.

[hincapie]

@ flocke: Super, funktioniert soweit ganz klasse, danke!! :thumb:

Jetzt habe ich aber noch ein Problem:
Wenn ich nun mit einem Mausklick ein Childfenster aktiviere, sollte auch der entsprechende TabSheet markiert werden.
D.h. irgendwas in der Richtung:

Delphi-Quellcode:

  PageControl1.ActivePage := ActiveMDIChild.Caption;

Funktioniert so natürlich nicht, aber so ähnlich müßte es doch sein, oder?
Und wo müßte die Zuweisung erfolgen, im onActivate des ChildFormulars? :?: :gruebel:

[Flocke]

Du musst ja nur das TabSheet suchen, dass sich auf ActiveMDIChild bezieht:

Delphi-Quellcode:

for c := 0 to tMDIChildTabSheet.PageCount - 1 do
  if TMDIChildTabSheet(tMDIChildTabSheet.Pages[c]).MDIChild = ActiveMDIChild then
    tMDIChildTabSheet.ActivePageIndex := c;

[hincapie]

Hallo flocke:
meinst Du etwa so: :wink:

Delphi-Quellcode:

  for c := 0 to MDIChildCount - 1 do
  if TMDIChildTabSheet(PageControl1.Pages[c]).MDIChild = ActiveMDIChild   then
    PageControl1.ActivePageIndex := c;

Im OnActivate des ChildFensters eingebunden funzt es!! :thumb: :thumb:
Vielen Dank nochmal!! :wink:

[Flocke]

Zitat:

Zitat von hincapie

Hallo flocke:
meinst Du etwa so: :wink:

Ja -räusper- genau so ... hatte ich doch auch geschrieben, oder? ;)