On Tue, Feb 3, 2009 at 11:16 AM, Graeme Geldenhuys
<[email protected]> wrote:
>
> How do I create such multiple instances?
The following seems to work.... Anybody see any issues with this?
========================
procedure DisplayLearners;
var
frm: TLearnerListForm;
begin
frm := TLearnerListForm.Create(Application);
{ very basic unique name and should probably be improved}
frm.Name := frm.Name + IntToStr(Screen.FormCount + 1);
frm.Show;
end;
========================
Also, TLearnerListForm's CloseAction is set to caFree in the OnClose
event handler.
Regards,
- Graeme -
_______________________________________________
fpGUI - a cross-platform Free Pascal GUI toolkit
http://opensoft.homeip.net/fpgui/
_______________________________________________
Lazarus mailing list
[email protected]
http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
