Instance unique des fenetres.

Version imprimable

02/01/2007, 00h39
TryExceptEnd

Instance unique des fenetres.

Comment faire dans une application MDI, pour ne lancer qu'une seule fois une fenetre fille et la relancer si elle est déja lancé, avec un code qui serait simple et efficace.(s'il vous plait)

merçi.
02/01/2007, 10h26
abdelghani_k
tu essaie ce code :
Code:

1 2 3 4 5 6 7 if Form1=nil then begin Form1:=TForm1.Create(Application); Form1.Show; end else Form1.WindowState:=wsNormal
Attention, si dans OnClose de la fenêtre fille tu utilise Release, il faut ajouter

Code:

Form1:=nil;

pour que l'application puisse la recréer à partir du test : if Form1=nil then.

Voici le code de Onclose :
Code:

1 2 3 4 5 procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Release; Form1:=nil end;
02/01/2007, 10h35
TryExceptEnd

Merçi abdelghani_k,
Il n'y aurait pas un code ou une méthode plus orientée objet ?
Du genre utilisation de classes ?
Merçi de votre aide.
02/01/2007, 10h49
abdelghani_k

consultes ce lien, il peut vous être util :
http://www.swissdelphicenter.ch/torr...ode.php?id=221

et à la place de l'instruction :

Code:

Form1.WindowState:=wsNormal

tu peut faire :

Code:

SendMessage(Form1.Handle, WM_SYSCOMMAND, SC_RESTORE, 0);
02/01/2007, 11h00
TryExceptEnd

Ok, je vais voir.
Si quelqu'un d'autre a une autre idée, elle sera la bienvenu !
02/01/2007, 15h23
Yurck

Bonjour,

Tu crées une fonction OuvertureFiche en lui passant en paramètre la classe de ta fenetre puis tu parcours les fenetre de l'appli en utilisant "Screen.Forms". Si dans cette liste ta class est présente alors tu l'affiches sinon tu la crées.

a+
03/01/2007, 12h53
TryExceptEnd

Je crois avoir vu quelque part une méthode trés simple (si je me souviens bien) utilisant des classes, mais j'arrive pas a la retrouver.
Peut-être que quelqu'un pourrait-il m'en indiquer l'emplacement ?
Merçi.

Bonjour,

de volée sans compilateur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
procedure TForm_Mere.OuvertureFiche(Class_Fiche: TFormClass);
var
  Num_Fiche : integer;
  trouve_Fiche : Boolean;
begin
  trouve_Fiche := false;
  Num_Fiche    := 0;
  while (Not trouve_Fiche) and (Num_Fiche<Screen.FormCount) do
  begin
    if (Screen.Forms[Num_Fiche] is Class_Fiche) then
    begin
       if Not (csDestroying in Screen.Forms[Num_Fiche].ComponentState) then
      Screen.Forms[Num_Fiche].Show;
       trouve_Fiche := true;
       break; 
    end;
    Inc(Num_Fiche);
  end;
 
  if Not trouve_Fiche then
    with Class_Fiche.Create(Self) do
       show;
end;

voilà qui devrait répondre à ton besoin.

a+

03/01/2007, 21h09
TryExceptEnd

Citation:

Si c'est pas le youki, alors c'est qui hein, c'est qui ?

n'est-il pas ?

Merçi de vos efforts Yurck.