yvemoreau
Messages postés308Date d'inscriptionmardi 11 juin 2002StatutMembreDernière intervention26 septembre 2008 12 janv. 2004 à 20:25
menu/voir/unit/Project...
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};//la fiche du log
{$R *.res}
var form2:TForm2;
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Form2:=TForm2.Create(application);
Form2.ShowModal;
//ici tant que form2 n'est pas fermer on attend ...
Form2.Free;
Application.Run;
end.
la fiche 2 est maintenant "disponible" plutôt que "creer automatiquement" menu/project/options.../fiches/...
tu testes si la condition est valide dans
Form2.FormClose;
begin
if (edit1.Text<>'MotDePasse')then application.Terminate
else Close;
end;