les form et leur formes... ;-)

Question

bonjours, bonjours,
je souhaiterai savoir comment faire pour ke (vous devez surement connaitre le bouton ">>> Avancées" pour les options) kan l'utilisateur clic sur un bouton le bas de la form souvre j'ai cherché dans tout le forum et les codes sources mais j'ai pas trouvé....Dommage

sinon Joyeux Noël...  ;) 

---------------------
Jack NUMBER
---------------------

ni69 · Answer

Tu peux te servir de ce code (ou x est la taille d'agrandissement) :
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Height := Form1.Height + x;
end;

@+
Bonne Prog'
Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !  ;)

ni69 · Answer

Je complète un peu mon code : var ouvert : Boolean; procedure TForm1.FormCreate(Sender: TObject); begin Button1.Caption := 'Ouvrir>>>'; ouvert := False; end; procedure TForm1.Button1Click(Sender: TObject); begin if ouvert then begin Form1.Height := Form1.Height - x; Button1.Caption := 'Ouvrir >>>'; end else begin Form1.Height := Form1.Height + x; Button1.Caption := '<<< Fermer'; end; ouvert := not ouvert; end; @+ Bonne Prog' Nico N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient ! ;)

cs_Kenavo · Answer

Salut, 

Je rajouterais que lors de la construction de la form, il convient de mettre la propriété VertScrollBar.Visible à false, sinon, tu n'arriveras pas à planquer correctement les contrôles du bas de la form.

Ken@vo
____________________
Code, Code, Codec !

ni69 · Answer

Bien vu Kenavo ! Je n'y avais pas pensé  ;) 
La plupart du temps, je mets mes form en ToolWindow  :) 

@+
Bonne Prog'
Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !  ;)

Les form et leur formes... ;-)

4 réponses

Votre réponse

Discussions similaires