Comment savoir quand mon contrôle change de taille?

Question

Je construis un contrôle personnalisé, et j'en ai besoin pour pouvoir répondre quand il sera redimensionné. J'ai besoin des anciennes dimensions et des nouvelles dimensions disponibles pour faire des calculs.

Malheureusement, les méthodes SetWidth et SetHeight sont privées à TControl, non protégées, et donc je ne peux pas les contourner. Y a-t-il un autre moyen de savoir que mon contrôle est sur le point d'être redimensionné et que l'ancienne taille et la nouvelle taille sont disponibles?

Answer 1

Substituez la méthode publique SetBounds. Il passe dans la nouvelle taille, et vous pouvez utiliser les propriétés Largeur et Hauteur pour obtenir la largeur/hauteur actuelle.

procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override; 

Answer 2

Une solution alternative consisterait simplement à utiliser l'événement OnResize de TControl. Cela n'est pas nécessairement publié dans certains contrôles, mais si ce n'est pas le cas, vous pouvez toujours attacher un gestionnaire dans le code.

MyControl.OnResize := MyResizeEvent; 

Bien que cela ne vous permettra d'obtenir la nouvelle taille, si vous avez gardé le oldsize dans un ensemble de variables, alors vous pouvez faire ce que vous souhaitez.

function Myform.MyResizeEvent(Sender: TObject) ; 
var 

begin 

    DoSomethingOnResize(OldHeight, OldWidth, (Sender as TControl).Height,(Sender as TControl).Width); 
    OldHeight := (Sender as TControl).Height; 
    OldWidth := (Sender as TControl).Width; 

end;