Capturando cambios de altura en un Panel

[[Lepe]]

Más o menos esto:

Código Delphi [-]
TMiPanel = class (TPanel)
  private
    FHeight :integer;
    procedure SetHeight(value:integer);
  protected
    procedure DoResizeControls;
  published
    property Height: integer read FHeight write SetHeight;
end;

procedure TMiPanel.SetHeight(value:integer);
begin
  if FHeight <> Value then // si la altura es distinta de la que tiene ahora mismo.
  begin
     FHeight:= Value;
     DoResizeControls;
     Invalidate; //hacemos que se repinte el panel.
  end;
end;

Cada vez que el usuario modifique la altura, bien por el inspector de objetos, o bien por código en ejecución, se ejecutará el procedimiento SetHeight, que a su vez llama al encargado de redimiensionar los controles que tiene dentro.


Saludos

[chrids506]

Muchas gracias eso era lo que ocupaba, solo una pregunta que es este procedimiento?

Código Delphi [-]
procedure DoResizeControls;

[[Lepe]]

En principio, sería el procedimiento que se encarga de redimensionar los controles que haya dentro de "TMiPanel".

Normalmente, cuando se hace un componente, se hace de esa forma, es decir, se crea un procedimiento protegido que realiza la acción principal. Si alguien tiene que derivar de TMiPanel para añadir una nueva funcionalidad, solamente debe sobreescribir ese método y listo.

En realidad, debería estar declarado como:

Código Delphi [-]
procedure DoResizeControls;virtual;

Para que pueda ser sobreescrito (override en delphi) por los programadores que deriven de TMiPanel. En realidad es algo más complejo, por eso no añadí información. Dale una visual a las directivas virtual, dynamic, override de la ayuda.

Tratándose de un panel, quizás te sirva el evento OnCanResize, OnResize, etc.

Saludos

[chrids506]

Muchisimas gracias por tu tiempo, la verdad es que me has respondido mi duda

Saludos,
Chrids