MDI über TabControl steuern.

[yankee]

Ich schreibe einen Editor und will mehrere Dokumente damit öffnen können. Ich habe mir das Ursprünglich so vorgestellt, dass ich ein MDIchield maximiert starte (wie geht das eigentlich?) und jenachdem auf welches Tab man klickt, das mdi-dings im Vordergrund geholt wird.

Ich fasse meine Fragen nochmal zusammen:
wie hole ich ein bestimmtes MDIchild in den Vordergrund?
Wie maximiere ich ein MDIchild?

Und ich meine demletzt mal sowas in der Freewareabteilung gesehen zu haben, weswegen das 1. gehen muss und 2. jemand weiß wie's geht!
Achso: ich habe mich bereits der Suchenfunktion bedient und diesen Thread gefunden: der andere Thread Nur leider kamen die Diskutierenden zu keinem brauchbaren Ergebnis.

[alcaeus]

Also, mein Vorschlag ist nicht eine MDI-App zu erstellen, sondern ein ganz normales Form. Das was du sonst auf dem MID-Child hast gibst du in ein Frame, und das ganze kannst du dann von mir aus 10000 mal erstellen. Die Tabsheets auf dem Pagecontrol kannste auch zur Laufzeit erstellen... ich denke mir das so:

Delphi-Quellcode:

NewTab := TTabSheet.Create(Self);
NewTab.Parent := PageControl1;
ChildFrame := TChildFrame.Create(Self);
ChildFrame.Parent := NewTab;

Etwa in diese Richtung könnte es funktionieren...

[yankee]

Ich habe das mal so ähnlich gemacht. Nur habe ich die SynEdits direkt (also ohne Frame) auf das Tab gedingst. Naja, das Problem bleibt, wenn ich eine Datei lade oder speichere, ist das ganze zu Ende, denn ich weiß nicht woher / wohin.

[alcaeus]

Datei öffnen: Neues Tab erstellen
Datei Speichern: Aktuelles Tab mit PageControl.ActivePage oder PageControl.ActivePageIndex abfragen...
War das dein Problem oder hab ich das falsch verstanden?

[yankee]

ja, soweit bi ich auch gekommen. ICh habe mir sogar eine Funktion geschrieben, die den Namen des aktuellen SynEdit zurückgibt. Aber das:
getActiveSyn.lines.loadfromfile geht nicht, sondern nur das:
if getActiveSyn ='synedit1' then synedit1.lines.loadfromfile;
if getActiveSyn ='synedit2' then synedit2.lines.loadfromfile;
if getActiveSyn ='synedit3' then synedit3.lines.loadfromfile;
Und das hat zwei Nachteile:
1. Ist der Quelltext ziemlich lang und unoptimiert
2. Ist die Anzahl an Edits jenachdem stark begrentzt.

Und mal abgesehene davon kann es doch eigentlich nicht so schwer sein, ein MDIchild gezielt in den Vordergrund zu bringen.

[alcaeus]

Hast du das mit FindComponent gelöst? Könntest du bitte mal den Code der Funktion getActiveSyn posten?

[mirage228]

Hi,

Ich würde es so ähnlich machen.

Delphi-Quellcode:

function ActiveSynEdit: TSynEdit;
var
  Index: Integer;
begin
  Index := PageControl.ActivePageIndex;
  if Index > -1 then
    Result := PageControl.Pages[Index].FindComponent(Format('SynEdit%d', [Index])) as TSynEdit else
  Result := nil;
end;

Zwar nicht optimal, aber es sollte laufen.
Musst noch schauen, wie du deine SynEdits erstellt und bennant hast.

mfG
mirage228

[yankee]

Der Quelltext sieht interessant aus. Für meine Zwecke jedenfalls optimiert genug.
Nur mit dem Befehl FindComponent habe ich mich noch nie auseinader gestezt. Ich weiß gerade mal von der Existenz davon. Könntest du mir den mal erklären? Oder mir 'nen Link posten? Google brachte leider nichts brauchbares...

[mirage228]

Hi,

in der DP wirst du fündig: ;)
FindComponent

mfG
mirage228