Discussion :

[Mihalis]

Bonjour,
voici mon problème, j'ouvre une application mdiform que je rends invisible, je crée une form de login sur le oncreate du mainform, qui en fonction du login ou non rend visible mon application principale. je n'arrive pas a fermer la form de login sans que toute l'application ne ferme, alors je l'ai cachée (pas très propre, je crois que mon problème vient de là).

Dès que je veux ouvrir une mdichild il me dit qu'aucune mdi n'est active. a mon avis la fenetre de login doit garder la main ...

voici mon code


DPR :
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
application.run;


procedure TMainForm.FormCreate(Sender: TObject);
begin
mainform.Visible:=false;
application.createform(tpntdemarrage,pntdemarrage);
end;

form de login

mainform.Visible:=true;
mainform.show;
mainform.Update;

auriez-vous une idée pour fermer cette fenêtre (fsnormal) sans que toute l'appli ne se ferme ?

merci d'avance

[anapurna]

salut

le truc serait plutot de gerer le mots de passe avant de lancer ton application

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
DPR :
 
////////////////////////////////////////////////////////////////////////////////
procedure DlgIdentification();
var
  PassWordDlg : TPassWordDlg;
  PasswordResult : Integer;
begin
  PassWordDlg := TPassWordDlg.Create(nil);
  PasswordResult  := PassWordDlg.ShowModal;
  if (PasswordResult = mrAbort) then
    Halt(1)
  else
    if (PasswordResult <> mrOK) then
      Application.Terminate;
  PassWordDlg.Free;
end;
 
  Application.Initialize;
  DlgIdentification();
  Application.CreateForm(TMainForm, MainForm);
  application.run;
end;

@+ Phil

[Mihalis]

voila comment j'ai procédé

pcq je voulais garder une fenêtre de login spéciale

DPR normal

dans le create de la mainform
pntdemarrage:=TPntdemarrage.create(application);
pntdemarrage.show;
pntdemarrage.Update;

dans la fenetre de demarrage je mets mon appli en enabled false, ma fenetre de demarrage en stay on top

une fois le login ok
enabled a true
et
pntdemarrage.Hide;
pntdemarrage.Free;

Merci pour ton aide qd même mais qd j'ai une idée ...