[Lazarus] creating multiple non-modal form instances

[Graeme Geldenhuys]

On Tue, Feb 3, 2009 at 11:16 AM, Graeme Geldenhuys
<graemeg.lists at gmail.com> 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/