Discussion :

[sp2308]

Bonjour

Je debute et souhaiterais realiser une petite appli qui ressemeblerait, par son ergonomie, à delphi 7 c est à dire un form en haut toujours present à l ecran qui reprendrait le menu et des foms qui s afficheraient en dessous.

ça je n ai pas de pb à le faire , le form 'menu' est en permanence a l ecran mais quand je redimensionne un autre form affiché avec FormX.show, celui ci occupe la totalité de l ecran, passant sous le form principal rendant son redimensionnement impossible alors que je souhaiterais que sa partie supperieure se mette en 'buttee' sur la partie inferieure du form principal comme le fait l editeur de code dans delphi 7, quand on le redimensionne....

merci pour votre aide

[Gilbert Geyer]

Salut,

Suffit de mettre un WindowState:=wsNormal; dans les procédures OnResize de tes FormX pour neutraliser la prise en compte d'un click sur le le bouton Maximize et d'ajuster le Top des FormX pour les placer en butée selon le principe suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TFormX.FormResize(Sender: TObject);
begin
     ...  
     if (WindowState=wsMaximized) or (Top<Hauteur-de-la+form-'menu'-permanente-du-haut) then
     begin WindowState:=wsNormal;
             Top:=Hauteur-de-la+form-'menu'-permanente-du-haut;
     end;
     ...
end;

A+

[sp2308]

ok merci pke j ai cherché un peu tout et rien et suis arrivé à rien.