Discussion :

[qi130]

Bonjour à tous.

J'ai un bouton que l'utilisateur peut redimensionner via un popup qui ouvre un dialogue par ShowModal, le Handle du bouton est transmis:

Code :

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

1
2
Hdessin:=(PopupMenu1.PopupComponent as TButton).Handle;
 if OKBottomDlg1.ShowModal=mrOk then begin...

le dialogue ouvert contient 2 SpinEdits, et je souhaite que le bouton d'origine se redimensionne "en live" lorsque les spin changent:

Code :

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

1
2
3
4
5
procedure TOKBottomDlg1.SpinEdit1Change(Sender: TObject);
begin
     SendMessage(Hdessin,WM_SIZE,SpinEdit1.Value,SpinEdit2.Value);
     SendMessage(Hdessin,WM_PAINT,0,0);
end;

Et bien sûr, ça ne marche pas... (sinon je posterais pas hein )

Que manque t'il ?

[MD Software]

Fait ça :

Code :

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

1
2
(PopupMenu1.PopupComponent as TButton).Height := SpinEdit1.Value;
(PopupMenu1.PopupComponent as TButton).Width := SpinEdit2.Value;

[qi130]

Je le fais déjà au retour du showmodal...mais ça ne marche que dans ce cas.

Je cherche à redimensionner en live depuis le dialogue ouvert, d'où l'utilisation des messages.

[MD Software]

Je cherche à redimensionner en live depuis le dialogue ouvert,

Je vois pas en quoi ma solution pose problème

[qi130]

Ben, sauf à référencer la form appelante dans le dialog, le popupMenu1 n'est pas connu...

[MD Software]

Ben, sauf à référencer la form appelante dans le dialog, le popupMenu1 n'est pas connu...

mais ?!? Tu récupère l'handle du bouton. Au lieu de récupérer cet handle, récupère la bouton directement.
Ton code :

Code :

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

1
2
3
4
5
6
7
Hdessin:=(PopupMenu1.PopupComponent as TButton).Handle;
....
procedure TOKBottomDlg1.SpinEdit1Change(Sender: TObject);
begin
     SendMessage(Hdessin,WM_SIZE,SpinEdit1.Value,SpinEdit2.Value);
     SendMessage(Hdessin,WM_PAINT,0,0);
end;

Remplace par :

Code :

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

1
2
3
4
5
6
7
MonBouton:=(PopupMenu1.PopupComponent as TButton);
....
procedure TOKBottomDlg1.SpinEdit1Change(Sender: TObject);
begin
     MonBouton.Height:=....;
     MonBouton.Width:=....;
end;

[qi130]

Grand merci