MDI Client form visible=false bleibt nicht

[Bummi]

Delphi-Quellcode:

unit MDI_Auch_Fuer_Modal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls;

type
  TMDIForm_Auch_Fuer_Modal = class(TForm)
    Button1: TButton;
  private
    { Private-Deklarationen }
  protected
    procedure DoCreate; override;
  public
    { Public-Deklarationen }
    Constructor Create(Aowner:TComponent;aFormStyle:TFormStyle);overload;
  end;

var
  MDIForm_Auch_Fuer_Modal: TMDIForm_Auch_Fuer_Modal;

implementation

{$R *.dfm}

{ TForm2 }

constructor TMDIForm_Auch_Fuer_Modal.Create(Aowner: TComponent; aFormStyle: TFormStyle);
begin
   inherited Create(Aowner);
   Formstyle := aFormStyle;
end;

procedure TMDIForm_Auch_Fuer_Modal.DoCreate;
begin
  inherited;
  if Formstyle <> fsMDIChild then visible := false;
end;


{
Aufrufbeispiele

procedure TForm1.ShowAsMDIClick(Sender: TObject);
begin
  TMDIForm_Auch_Fuer_Modal.Create(self);
end;

procedure TForm1.ShowModalClick(Sender: TObject);
begin
  with  TMDIForm_Auch_Fuer_Modal.Create(self,fsNormal) do
    begin
      Showmodal;
      Free;
    end;
end;


}

end.