Ressource nicht gefunden

[xZise]

Hallo ihr!

Ich habe ein Problem mit einer dynamisch erstellten Form. Und zwar meldet er mir immer, sobald ich inherited im Create aufrufe, dass die Ressource nicht gefunden werden konnte:

Zitat:

---------------------------
Dialogtest
---------------------------
Ressource TMessageBox nicht gefunden.
---------------------------
OK
---------------------------

Nun woran liegt dies? Und wie behebe ich das Problem?

MfG
xZise

[mkinzler]

Der Konstruktor der TForm-Klasse versucht die persistenten Werte aus der Ressource zu laden

[xZise]

Naja, aber als ich fürher das mit "TForm.Create" etc. gemacht hatte, ging das... Was müsste ich also ändern? Besonders welche Ressource braucht er da?

Also ich hatte vorher keine Klasse und das alles in der Methode erledigt. Dies sah dann ungefähr so aus:

Delphi-Quellcode:

var
  frm : TForm;
  btn : TButton;
  ...
begin
  frm := TForm.Create(AOwner);
  btn := TButton.Create;
  try
    frm....;
    btn.Parent := frm;
    btn....;
    Result := frm.ShowModal;
  finally
    frm.Free;
  end;
end;

MfG
xZise

[xZise]

So ich bin es wieder!

Also im Anhang meine "verbesserte" Variante die auch läuft, obwohl sie so gut wie identisch ist (statt die Klasse als Form einfach eine extra Form).

MfG
xZise

[xZise]

Hat den keiner eine Erklärung dafür, warum es funktioniert ohne Ableitung von TForm?

MfG
xZise

[Bernhard Geyer]

Zitat:

Zitat von xZise

Hat den keiner eine Erklärung dafür, warum es funktioniert ohne Ableitung von TForm?

Ich denke das "Problem" liegt im Konstruktor von TForm begraben

Delphi-Quellcode:

constructor TCustomForm.Create(AOwner: TComponent);
begin
  ...
    if (ClassType <> TForm) and not (csDesigning in ComponentState) then
    begin
      Include(FFormState, fsCreating);
      try
        if not InitInheritedComponent(Self, TForm) then
          raise EResNotFound.CreateFmt(SResNotFound, [ClassName]);
      finally
        Exclude(FFormState, fsCreating);
      end;
  ...
end;

Wenn Klassentyp <> TForm versuche Ressource (dfm in Exe) in InitInheritedComponent zu laden.

[xZise]

Aachso das wollte Markus wahrscheinlich sagen?

Naja wie kann ich das verhindern? Nur darüber nie ein eigene TForm Klasse zu benutzen?

MfG
xZise

[xZise]

*Push*

[Apollonius]

Genau dafür ist CreateNew da.

[xZise]

Ah danke!

Damit funktioniert es nun wunderbar (naja in der Unit ist noch ein Bug, aber ansonsten ist alles in Ordnung!)

MfG
xZise