UFormLoaded.pas
Unit UFormLoaded:
interface
var
MainFormLoaded : boolean = false;
FrmDeuxLoaded : boolean = false;
FrmTroisLoaded : boolean = false;
implementation
end.
MainForm :
implementation
uses UFormLoaded;
procedure TMainForm.Create(Sender: TObject);
begin
MainFormLoaded := true;
end;
FormDeux :
implementation
uses UFormLoaded;
procedure TFormDeux.Create(Sender: TObject);
begin
FormDeuxLoaded := true;
end;
FormTrois :
implementation
uses UFormLoaded;
procedure TFormTrois.Create(Sender: TObject);
begin
FormTroisLoaded := true;
end;
________________________________________________________
besoin de câbles audio, vidèo, informatique pas cher ?