procedure TestFenetreExiste; var H : THandle; begin H := FindWindow(nil,'Nom de la fenêtre'); if H = 0 then ShowMessage('Existe pas') else ShowMessage('Existe'); end;
if LaTFormATester=nil then ShowMessage('Non active') else ShowMessage('En mémoire');
Il faut donc que je réétudie la procédure de création de la fiche principale qui est assez complexe. Il y a peut-être un ordre de création qui trazine dans une procédure.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionIf not Traitefiche1 and (Tform1<>nil) then (Tform1.Create(Application).show else if not Traitefiche2 and (Tform2<>nil) then (Tform2.Create(Application).show