Testing, if form exists/fr
From Free Pascal wiki
Jump to navigationJump to search
│
Deutsch (de) │
English (en) │
français (fr) │
Parfois, une fiche peut être lancée depuis plusieurs endroits dans un programme. Si elle existe déjà, il suffit de la placer en avant-plan, sinon elle doit être créée.
La façon la plus simple est celle-ci :
if (MyForm = nil) then Application.CreateForm(TMyForm, MyForm);
MyForm.Show;
Utiliser CloseAction := caFree;
dans l'événement OnClose de la fiche.
procedure TMyForm.Formclose(Sender: Tobject; var Closeaction: Tcloseaction);
begin
CloseAction := caFree;
MyForm := nil;
End;
Cette méthode provient des discussions dans le forum.