Script works only in the first time.

EresInformatica · May 2004

Hi.

Adding a MDI form with fsGlobalUnit.AddForm(Form_Sample) works only in the first time. When i close the form and free-it by:

procedure TForm_Sample.OnClose(Sender: TObject; var Action: TCloseAction);
begin
Form_Sample := nil; // so i can test if itself is nil and recreate-it.
Action := caFree; // free the mdi form, the window must be closed.
end;

When i try to create the same form Form_Sample, the script doesn??t works anymore. I??m using the following code in the script:

begin
Form_Sample.Label2.Caption := 'Test';
end.

In the OnCreate event of the form, i??m adding itself by AddForm(Self).

Is that correct ? Please, i need help. Many days ago i??m trying to do that.

Thanks a lot.

AlexTZ · May 2004

You can add form by fsGlobalUnit.AddForm only one time.

EresInformatica · May 2004

Calling AddForm just one time works only in the first. When i create the form again (WITHOUT use AddForm), the script gives me a Access Violation Exception. How to proceed ? I need to recreate the forms many times, with the same name.

AlexTZ · May 2004

You can't destroy the form added by AddForm, then rectreate it and try to access.
I'll try to fix it in the next release.

EresInformatica · May 2004

To resolve the problem while you don??t fix the 'bug', i??m using that:

procedure TMDIForm1.OnCreate(Sender: TObject);
begin
 Â with fsGlobalUnit do
 Â begin
 Â  Â AddedBy := Self;
 Â  Â AddForm(Self);
 Â  Â AddedBy := nil;
 Â end;
end;

procedure TMDIForm1.OnClose(Sender: TObject; Action: TCloseAction);
begin
 Â fsGlobalUnit.Remove(Self);
 Â fsGlobalUnit.RemoveItens(Self); // will remove only objects created by itself.
end;

Well, it??s working fine, is there any problem to do that ? limitations or memory
problems ?

Thanks a lot.

Script works only in the first time.

Comments

Leave a Comment