Instanzierte Formulare ermitteln

[coderi]

Hallo zusammen,

folgendes Problem :
ich rufe 3 mal die procedur auf:

procedure Tdmbspiel.showformular(caption:String);
begin
frmNormal := TfrmNormal.Create(Self,caption);
frmNormal.Show;
end;

Jetzt habe ich 3 mal das gleiche formular mit dem gleichen formularnamen, unterschiedlichen captions.

Hintergrund: Ich pflege stammdaten, welche immer die gleiche struktur haben, will aber nur ein
formular dafür haben.

Wie kann ich nun verhindern, dass ein formular mit der gleichen caption nicht zweimal aufgeht?

Nochmal: Ich möchte nicht showmodal haben, showmodal würde nur zum einmaligen öffnen des formulares führen. Ich brauch das ding parallel, aber nur einmal pro bereich offen.

'Caption1' = offen; 'Caption2' = offen. beim erneuten aufruf von create(self,'caption2') soll nix passieren.


ich hoffe ich habe ausführlich erklärt auf was ich hinausmöchte. Ich habe also ein instanziertes formular und möchte quasi das formular, wenn es mit den bedinungen schon offen ist, nicht nochmal öffnen können.


danke vorab für infos und hilfe
coderi

[DelphiBandit]

Vielleicht hilft Dir dieser Schnipsel - ist bei uns zum Schauen, ob es Modal irgendwo auf ist:

Delphi-Quellcode:

for I := 0 to Screen.FormCount - 1 do
  if (ansiUpperCase(Screen.Forms[I].Caption) = ansiUpperCase(UeCaption)) then
  begin
    ..Nicht mehr öffnen, nach vorne holen
  end;

[shmia]

Folgende Procedure prüft, ob ein Formular schon offen ist und erzeugt es ggf. neu:

Delphi-Quellcode:

function FindOrCreateForm(FormClass: TFormClass; var Reference):Boolean;
var
   i : Integer;
begin
   for i := Screen.CustomFormCount-1 downto 0 do
   begin
      if Screen.CustomForms[i].ClassType = FormClass then
      begin
         TCustomForm(Reference) := Screen.CustomForms[i];
         Result := True;  // gefunden
         Exit;
      end;
   end;
   Application.CreateForm(FormClass, Reference);
   Result := False; // neu erzeugt
end;

[arc]

Zitat von coderi:

procedure Tdmbspiel.showformular(caption:String);
begin
frmNormal := TfrmNormal.Create(Self,caption);
frmNormal.Show;
end;

ich hoffe ich habe ausführlich erklärt auf was ich hinausmöchte. Ich habe also ein instanziertes formular und möchte quasi das formular, wenn es mit den bedinungen schon offen ist, nicht nochmal öffnen können.

Das klingt für mich nach einem hausgemachten Design Problem. frmNormal wird duch erneuten Aufruf dieser Routine überschrieben, besser wäre es diesen Zeiger zu speichern - dann hast du später noch Zugriff auf dein Form. Du könntest so z.B. die erzeugten Formulare in einer TList speichern. Dann könntest du beim nächsten mal nachschauen, ob es bereits existiert. Wenn es statisch sein soll, kannst du dir auch einfach 3 Variablen anlegen und prüfen ob sie nil sind (natürlich die Forms dann mit FreeAndNil() zerstören).

Folgender Schnipsel erzeugt das Form wenn es nicht existiert und löscht es, wenn es existiert. Kannst du ja entsprechend abändern.

Delphi-Quellcode:

if frmNormal = nil then
begin
  frmNormal := TfrmNormal.Create(Self,caption);
  frmNormal.Show;
end
else
begin
  frmNormal.Hide;
  FreeAndNil(frmNormal);
end;

[Blup]

Formulare sollten nicht mit Free oder FreeAndNil() freigegeben werden, sondern mit Release.
Grund steht in der Delphi-Hilfe zu Release.