Changer FormStyle en runtime

Version imprimable

21/12/2006, 12h44
franckgar

Changer FormStyle en runtime

Slt,
Je cherche à modifier la propriété FormStyle d'une form en cours de run mais ça ne marche pas.
Dans l'aide de Delphi on peut lire "Note:It is not advisable to change FormStyle at runtime.".... mais existe t il une solution à ce problème ?

Merci d'avance
Franck
21/12/2006, 13h29
Lung

Citation:

Envoyé par franckgar

Je cherche à modifier la propriété FormStyle d'une form en cours de run mais ça ne marche pas.

Et pourquoi veux-tu la modifier ?
Qu'est ce que tu cherches a faire au juste ?

;)
21/12/2006, 14h42
franckgar

J'ai une fenêtre que j'affiche par défaut en MDIChild, c'est à dire en fenêtre volante. J'ai donc définit pour ma fenêtre FormStyle = fsMDIChild.

Je dois maintenant implementer une representation différente de cette fenêtre : elle doit venir se docker dans une autre fenêtre. Le problème c'est
que le dock ne se passe vraiment pas bien quand la propriéré FormStyle est définit à fsMDIChild. Je voudrais donc changer FormStyle à fsNormal pour corriger ce problème mais je n'arrive pas à le modifier en run-time.
21/12/2006, 15h08
Yurck

Bonjour,

Même dans le formcreate ?
Ou en surchargeant le create de ta fenêtre et en positionnant ton formstyle avant le inherited create ?

Parcontre après la cration de ta fenêtre c'est sur ce n'est pas possible avec la VCL.

a+
21/12/2006, 15h40
franckgar

j'ai effectivement essayé de redefinir le constructeur pour définir le formstyle avant d'appeler inherited, mais le problème reste entier.
Idem dans le formcreate.
21/12/2006, 15h45
Yurck

En effet ta fiche est définie dans le DFM donc le readcomponent doit remettre le formstyle à la valeur du DFM. C'est donc juste après cette méthide et avant le createwindows que tu dois agir.

Donc rdéfinit le readcomponent et après le inherited positionne ta valeur.

a+
22/12/2006, 09h27
franckgar

ok, je vais regarder dans cette direction.
Merci

Franck

bonjour

essaye voir

sur le form create de la forme ancetre avant le inherited ATTENTION cela risque de declencher l'evt show

Code:

1
2
 
    formstyle := fsmdichild ;

redefinis les messages

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
25
26
 
procedure WMChildActivate(var Message: TWMChildActivate); message WM_CHILDACTIVATE;
procedure WMActivate(var Message: TWMActivate); message WM_ACTIVATE;
procedure WMSize(var Message: TWMSize); message WM_SIZE;
 
 
procedure TForm_Modele.WMSize(var Message: TWMSize);
begin
  inherited ;
  if (not (formstyle = fsmdichild)) and (not (csDesigning in ComponentState)) then
    case Message.SizeType of
      SIZEICONIC: application.minimize;
      SIZE_MAXIMIZED: begin
                      end ;
    end;
end;
 
procedure TForm_Modele.WMChildActivate(var Message: TWMChildActivate);
begin
  inherited ;
end ;
 
procedure TForm_Modele.WMActivate(var Message: TWMActivate);
begin
  inherited ;
end;

Modifie le form close

Code:

1
2
3
4
5
6
7
 
procedure TForm_Modele.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  if (formstyle = FsMdiChild) and (action <> caNone) then
    Action := caFree;
end;