Discussion :

[WebPac]

Bonjour à tous,
j'ai fait (enfin me suis inspiré en vrai) le code pour Redimenssionner à droite et en bas.

Puis avec mes petits neurones j'ai fait pour redimensionner à gauche et en haut mais lorsque qu'on le fait, il redessinne le panel entre les deux commandes donc ça fait pas très joli.
Voici mon petit code :

Code :

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

1
2
3
4
5
6
7
8
9
10
   if (BordGauche) and ((Width - x) > Constraints.MinWidth) then
    begin
      Width := Width - x;
      Left := Left + x;
    end;
 
    if (BordHaut) and ((Height - y) > Constraints.MinHeight) then
    begin
      Height := Height - y;
      Top := top + y;

Comment faire pour lui dire ne de pas rafficher tant qu'on ne lui dit pas ?

Merci

PS : si vous savez aussi pour qu'on ne voit que le cadre et non l'objet ce serait sympa.
Merci

[Benjamin GAGNEUX]

Salut,

Je pense que tu peux utiliser LockWindowUpdate :

Code :

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

1
2
3
4
5
6
 
LockWindowUpdate(MaForm.Handle); // On empêche la mise a jour graphique de MaForm
 
//Le traitement ...
 
LockWindowUpdate(0); // On libère MaForm, elle se redessine

A+

[Pierre Castelain]

Ou alors utilise la propriété BoundsRect qui permet de spécifier les 4 valeurs en un seul appel.

[WebPac]

Re,

Avec LockWindowUpdate, cela fige tout lors du redimensionnement alors que je voudrais soit voir le care soit la fenêtre bouger pour mieux voir le rendu de la chose. Comme sous windows.

BoundsRect est en lecture seule donc je peux récupérer les coordonnées de chaque coin différement mais je ne peux pas les modifier.

Merci de m'avoir aidé mais si vous avez d'autres idées je suis preneur .

[Benjamin GAGNEUX]

Et en utilisant SetBounds(ALeft,ATop,AWidth,AHeight:Integer);
ca devrait marcher...

[Pierre Castelain]

Comment ça BoundsRect est en lecture seule ? Sur quel contrôle ?

[WebPac]

Désolé si j'ai pas répondu mais je suis autre chose pour l'instant, dès que j'y reviens je vous tiens au courant si ça marche ou non.

Merci.

[WebPac]

Parfait SetBounds marche très bien merci beaucoup.

Pierre Castelain : peut être que c'est moi qui n'est pas su me servir de BoundsRect.
J'ai essayé sur un TAdvancedPanel et je n'ai pas réussi à modifier la taille.