Einzelnen Beitrag anzeigen

Blup

Registriert seit: 7. Aug 2008
Ort: Brandenburg
1.477 Beiträge
 
Delphi 12 Athens
 
#6

AW: Bereits geöffnetes Fenster nach showmodal wieder aktivieren

  Alt 12. Mai 2023, 08:28
So dürfte eigentlich nichts dagegen sprechen:
Delphi-Quellcode:
function ShowModalForm(AClass: TFormClass): Integer;
begin
  var lForm := TFormClass.Create(nil);
  try
    Result := lForm.ShowModal;
  finally
    lForm.Free;
  end;
end;

procedure ShowForm(AClass: TFormClass);
begin
  {Formular bereits erzeugt und sichtbar ?}
  for var n := 0 to Application.ComponentCount - 1 do
  begin
    if Application.Components[n].ClassType = AClass then
    begin
      var lForm := Application.Components[n] as TFormClass;
      if not lForm.Visible then
        lForm.Show;
      lForm.BringToFront;
      Exit;
    end;
  end;
  {erzeugen und anzeigen}
  TFormClass.Create(Application).Show;
end;
  Mit Zitat antworten Zitat