Discussion :

[dim07]

Bonjour,
Je souhaiterais ouvrir une fenêtre dans un panel ou un autre composant.
J'ai essayé le code suivant mais il lève une exception (Impossible de focaliser une fenêtre désactivée ou invisible) :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TFrm.EdExit(Sender: TObject);
var
  z : TFrm2;
begin
  inherited;
  z := TFrm2.Create(Application);
  z.show;
  z.parent := LpPanel7;
end;

Quelqu'un a t-il déjà rencontré ce besoin?

[Cl@udius]

Salut

Je verrai plus l'utilisation d'une Frame dans ton cas et non d'une fiche.
Les frames sont d'ailleurs faites en partie pour ça.

@+ Claudius

[ShaiLeTroll]

Cela fonctionne très bien, mais avec une petite subtilité, je préfère ça de loin au frame (on peu ainsi bouger plus rapidement au runtime...)

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TFrm.EdExit(Sender: TObject);
var
  z : TFrm2;
begin
  inherited;
  z := TFrm2.Create(Application);
  z.BorderStyle := bsNone;
  z.parent := LpPanel7;
  z.show;  
end;

[dim07]

Le code s'exécute entièrement mais la fenêtre ne s'affiche pas malgrès les tentatives suivantes :

Code :

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

1
2
3
4
5
 
  LpPanel1.Repaint;
  LpPanel1.Refresh;
  self.Repaint;
  self.refresh;

[Cl@udius]

Re

En reprenant le code de Shai, demande simplement un alignement.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TFrm.EdExit(Sender: TObject);
var
  z : TFrm2;
begin
  inherited;
  z := TFrm2.Create(Application);
  z.BorderStyle := bsNone;
  z.parent := LpPanel7;
  z.Align := alClient;
  z.show;  
end;

@+

[dim07]

Ca fonctionne nickel.
Merci à tous les deux.

[ShaiLeTroll]

Yep, j'avais oublié le alClient que je fais aussi systématiquement ...