class function, constructor oder function - guter Stil

[himitsu]

Zitat von dataspider:

Ich habe nämlich das Problem mit verdeckten modalen Fenstern (Z-Order) noch nicht 100%ig im Griff.

drum übetgib mal deinem Fenster einen passenden Parent ... dieses bewirkt Wunder

Delphi-Quellcode:

class function TfrmBase.CreateAndShowModal(AParent: TComponent; var AParam: Integer): Boolean;
Var
  f: TfrmBase;
begin
  f := Create(nil);
  try
    f.Parent := AParent;
    f.Init;
    Result := f.ShowModal = mrOK;
    if Result then
      AParam := f.GetParam;
  finally
    f.Free;
  end;
end;

class function TfrmBase.CreateAndShowModal(AParent: TComponent; out AParam: Integer): Boolean;
begin
  with Create(nil) as TfrmBase do
    try
      Parent := AParent;
      Init;
      Result := ShowModal = mrOK;
      if Result then AParam := GetParam;
    finally
      Free;
    end;
end;

Gruß Frank