Klasse - Formular per hand?

[thomasdrewermann]

Hi,
wie kann ein Formular ohne die Visuelle Programmierung erstellen, also prakisch ohne vorher die Komponenten auf das Formular zu ziehen sondern diese erst im construktor des noch nicht visuell erstellten Formulars?

Wie sieht ein einfaches Beispiel aus? Ist das dann schon NONVCL?

Ziel ist es eine Klasse zu programmieren die auf einem Formular basiert und ein Memo auf sich trägt.

MFG
Thomas

[Niko]

Wenn du die neue Klasse von TForm ableitest dürfte es eigentlich kein Problem sein im (überschriebenen) Konstruktor beliebige Steuerelemente zu erstellen. Beispiel hab ich aber leider auf die Schnelle keines.

NonVCL-Programmierung ist das allerdings dann noch nicht, da du weiterhin die Objekte (z. B. TForm, TMemo, ...) verwendest, die die WinApi-Funktionen kapseln. Bei der NonVCL-Programmierung werden nur die Grundbefehle von Pascal und direkte Aufrufe von WinAPI-Funktionen (wie CreateWindowEx zum Erzeugen von Fenstern) genutzt.

Dies wird übrigens auch in den hervorragenden API-Tutorials von Luckie erklärt.

[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.

[thomasdrewermann]

Hi,
irgendwie kapiere ich nicht wo die Methode "CreateNew" herkommt, wurde die von TForm vererbt?

Nach dem ich das Formular mit der Deklaration in das Programm eingebunden haben und mit "CreateNew" erstelle kommt auch ein Formular, das ist allerdings leer

MFg
Thomas

[Niko]

CreateNew wird von TCustomForm vererbt.

Dass das Memo nicht erscheint dürfte daran liegen, dass es in Create erzeugt wird, aber CreateNew aufgerufen wird. Man müsste also CreateNew überschreiben.

[jbg]

Stimmt. Anstatt Create muss man CreateNew nutzen.

Ich habe es oben ausgebessert.

[thomasdrewermann]

Hi,
was ist dennd er Unterschied zwischen Create und CreateNew?

MFG
Thomas

[jbg]

Create läd die Formulardaten aus den .dfm Dateien. CreateNew hingegen überspringt diesen Schritt. Wenn du nun eine Klasse von TForm ableitest und dies nicht mit Hilfe des Formulardesigners (Delphi) machst, so hast du keine .dfm-Datei dafür. Also würde ein Aufruf von Create zu einem Fehler führen. Das kannst du auch ohne weiteres ausprobieren.

[thomasdrewermann]

Damit sind all meine Fragen aus dem Weg geräumt.

Bis zum nächsten mal

DANKE an alle

MFG
Thomas