Klasse - Formular per hand?

[jbg]

Zitat von thomasdrewermann:

Ist das dann schon NONVCL?

Nur wenn du auf die VCL verzichtest, dewegen auch "No VCL".

Delphi-Quellcode:

type
  TMyForm = class(TForm)
  private
    FMemo: TMemo;
  public
    constructor CreateNew(AOwner: TComponent; Dummy: Integer = 0); override;
    property Memo: TMemo read FMemo;
  end;

constructor TMyForm.CreateNew(AOwner: TComponent; Dummy: Integer); override;
begin
  inherited;
  FMemo := TMemo.Create(Self);
  FMemo.Parent := Self;
end;

...
procedure CreateMyForm(Lines: TStrings);
var Form: TMyForm;
begin
  Form := TMyForm.CreateNew(Application);
  try
    Form.Memo.Lines.Assign(Lines);
    Form.ShowModal;
  finally
    Form.Free;
  end;
end;

Das TMyForm.CreateNew() ist notwendig da bei TMyForm.Create eine Resource TMYFORM gesucht wird, die nicht vorhanden ist und somit zu einer Exception führen würde.