BorlandTalk.com

Andy Hill · Guest

Why does the following code give EResNotFound
exception?

type
TPlugIn= class(TForm)
end;

procedure TForm1.Button1Click(Sender: TObject);
var
PlugIn: TPlugIn;
begin
PlugIn:=TPlugIn.Create(Self);
PlugIn.Show;
end;

Alexander Bauer · Guest

Hi Andy,

If I remember right I had the same problem once (long time ago). If you
create a Form, it alway need a DFM to read its properties, controls and
stuff. I overode the constructor of my TForm descentant like below to create
at simple, empty form without a DFM resource.

fOwner := aOwner;
Visible := false;
fForm := TForm(GetParentForm(TControl(aOwner))); // The owner is a
component of an other form. I used this to get the font and stuff of this
owner-form as defaults - see below.
GlobalNameSpace.BeginWrite;
try
CreateNew (aOwner);
BorderIcons := [];
BorderStyle := TFormBorderStyle(0);
ClientHeight := 100;
ClientWidth := 200;
Color := clBtnFace;
finally
GlobalNameSpace.EndWrite;
end;
OnKeyPress := KeyExit;
Font := fForm.Font;
PrintScale := fForm.PrintScale;
Scaled := fForm.Scaled;
OldCreateOrder := false;
PixelsPerInch := 120;
KeyPreview := true;
Width := 199; // No need to scale Size - is setted dynamically anyway
Height := 68;
Ctl3D := true;

I hope this can help you.

Regards,
Alexander Bauer

"Andy Hill" <zennews (AT) cairnwebnospam (DOT) com> schrieb im Newsbeitrag
news:3f828977$0$10970$fa0fcedb (AT) lovejoy (DOT) zen.co.uk...