In meinem Projekt erstelle ich bis jetzt 3 Forms dynamisch:
Delphi-Quellcode:
type TAScreen = class(TForm)
protected
procedure SelfCreate(Sender:TObject);
end;
type TBScreen = class(TForm)
end;
type TWdWindow = class(TForm) // Nur Basisklasse für TWdWinBlueWay
private
FWWID: Word;
protected
function WWIDCreate:Word;virtual;
procedure WWIDFree;virtual;
public
property WWID:Word read FWWID;
constructor Create(AOwner: TComponent);override;
destructor Destroy;override;
end;
type TWdWinBlueWay = class(TWdWindow)
protected
FTitlebarHeight: Word;
procedure Paint;override;
published
constructor Create(AOwner: TComponent);override;
end;
Ich erstelle sie mit Application.CreateForm() bzw. dem Konstruktor Create().
Nun das Problem:
Wenn ich das Programm starte, erscheint für jedes der Forms eine Fehlermeldung EResNotFound.
Den meisten ist wahrscheinlich schon beim Durchlesen des obrigen Quellcodes die Methode TAScreen.SelfCreate() aufgefallen.
Es sei gleich gesagt: Sie ist nur dazu da, mit TAScreen.OnCreate() verbunden zu werden.
[EDIT/]
Ich habe
dies in der Suche gefunden.
Aber das hat mein Problem auch nicht gelöst.