Bei MDI Form bestimmte Fenster nur 1x öffnen

[Taladan]

Ich nutzte ein MDI. Nu möchte ich aber bestimmte Fenster nur einmal starten, da hier Daten geändert werden, auf die das Programm zu greift. Wie kann ich verhindern, das bestimmte Fenster doppelt geöffnet werden?

[hw24]

Ich mach das so:

Delphi-Quellcode:

procedure MDIOpenForm(FormClass: TFormClass; var Reference;
   bBringToFront: boolean = True);
begin
  if TObject(Reference) = nil then
  begin
    Application.CreateForm(FormClass, Reference);
  end
  else
  begin
    if bBringToFront then
    begin
      if TForm(Reference).WindowState = wsMinimized then
        TForm(Reference).WindowState := wsNormal
      else
        TForm(Reference).BringToFront;
    end;
  end;
end;

Alle Aufrufe der MDI Forms erfolgen über diese Procedure. Etwa so:

Delphi-Quellcode:

MDIOpenForm(TfrmAdressen, frmAdressen);

Die MDI Fenster werden dann entweder erzeugt oder, wenn sie schon existieren, in den Vordergrund geholt.

[Taladan]

Leider kann man Konstruktoren in .Net nicht mit variablen öffnen. Warum auch immer.

[Faxman]

Das ist das Beste was ich bisher hier im Forum zum Thema MDI Child Fenster mehrfach öffnen verhindern gefunden habe.
Super!
Danke für das Teil Code :bounce2: :hello:

[Deep-Sea]

Zitat:

Zitat von Faxman

Das ist das Beste was ich bisher hier im Forum zum Thema MDI Child Fenster mehrfach öffnen verhindern gefunden habe.
Super!
Danke für das Teil Code :bounce2: :hello:

Stellte das irgendwie ein Problem dar? ^^

PS: Zwei Jahre später :mrgreen: ...

[Faxman]

na, wenn man gerade auf der suche ist!
alle anderen gefundenen snipplets funktionieren nicht sauber und sind auch nicht so schön strukturiert.
von wann das teil ist, ist doch wohl egal.
man darf sich ja noch bedanken, oder ist das unerwünscht :gruebel:

[Deep-Sea]

Och denke nicht, dass das unerwünscht ist.
Du kannst es auch ganz ohne die Standard-Referenzvariable machen, die Delphi bei Forms immer anlegt - mit Hilfe von FindComponent und FindClass *da mal ein Projekt hatte* Aber eig. ist MDI ya "veraltet", Tabs sind aktuell ...

[Faxman]

Zitat:

Zitat von Deep-Sea

Och denke nicht, dass das unerwünscht ist.
Du kannst es auch ganz ohne die Standard-Referenzvariable machen, die Delphi bei Forms immer anlegt - mit Hilfe von FindComponent und FindClass *da mal ein Projekt hatte* Aber eig. ist MDI ya "veraltet", Tabs sind aktuell ...

Hallo Deep-Sea,

könntest du das mal veröffentichen?
ich habe hier mit diesem code noch ein problem.
wenn das mdi-childform geschlossen wurde, kann ich es nicht mehr öffnen (abstrakt error).
Sieht so aus als würde das childform nicht sauber released trotz action:=cafree beim fromclose.
oder hast du eine idee?!?!? :roll:

greets

[Faxman]

Lösung meines Problems
Ist wohl nur eine von vielen, oder.
hier auch noch das original falls der link oben nicht funktionieren sollte:

in main form:

ChildForm:=TChildForm.Create(Self);
ChildForm.Tag:=LongWord(@ChildForm);

in child form:

implementation

procedure TChildForm.FormDestroy(Sender: TObject);
begin
LongWord(Ptr(Tag)^):=0;
end;

LongWord(Ptr(Tag)^):=0; kann man auch gleich in form close einfügen dannach noch action:=cafree und schon tuts! :firejump: :firejump:

have fun

[Deep-Sea]

Zitat:

Zitat von Faxman

könntest du das mal veröffentichen?

Schon ^^ hoffentlich wird das was ...

Delphi-Quellcode:

procedure TMeineForm.ShowMDIForm(AFormName: String; AClose: Boolean);
var
  Form: TForm;
begin       
  Form := FindComponent(AFormName) as TForm;
  If Assigned(Form) then
  begin
    If AClose then Form.Free else Form.Show;
  end else begin
    If not AClose then Form := TFormClass(FindClass('T' + AFormName)).Create(Self);
  end;
end;

Bevor es jemand anderes merkt: Hier wird gerade nicht geprüft ob die gefundene Komponente wirklich vom Typ TForm ist ... wäre ggf. noch zu verbessern ^^

Außerdem: Die Forms die man erzeugen will, müssen alle noch mit RegisterClasses registriert werden.

Bastelt vlt. mit rum, weiß nicht ob das jetzt alles war was nötig ist ^^ ...