AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Klasse - Formular per hand?

Ein Thema von thomasdrewermann · begonnen am 24. Jun 2003 · letzter Beitrag vom 24. Jun 2003
Antwort Antwort
jbg

Registriert seit: 12. Jun 2002
3.485 Beiträge
 
Delphi 10.1 Berlin Professional
 
#1

Re: Klasse - Formular per hand?

  Alt 24. Jun 2003, 18:40
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.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:56 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz