Hi all...
I used to use this trick to get a panel as container for a form on Delphi (7).
This trick works very well on Delphi. The trick is about displaying a form
(TForm) inside a panel (TPanel) as the form container. It's like TFrame but we
can attach any regular forms instead of a frame and we can attach any forms on
runtime.
The code is like this...
procedure TParentForm.AttachForm(AChildFormClass: TCustomFormClass);
begin
// FChildForm is a private TCustomForm of TParentForm
FreeAndNil(FChildForm);
// assign other form to FChildForm and attach it to a panel
FChildForm := AChildFormClass.Create(nil);
FChildForm.Top := 1;
FChildForm.Left := 1;
FChildForm.BorderStyle := bsNone;
FChildForm.Parent := PanelContainer;
FChildForm.Show;
end;
But the code seems not work on Lazarus (I use 0.9.14.1). No errors is raised,
but the panel is empty (the child form failed to attach).
Is there any explanation about this? Thanks.
Regards,
-Bee-
has Bee.ography at
http://beeography.wordpress.com
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
