Ir al contenido



Foto

[TRUCO DELPHI] Define el ancho de todos los hijos de un TPanel.


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 28 noviembre 2016 - 03:04

[TRUCO DELPHI] Define el ancho de todos los hijos de un TPanel.


delphi
  1. procedure SetChildWidths(Panel : TPanel);
  2. Var
  3. i : Integer;
  4. Width : Integer;
  5. Begin
  6. Width :=
  7. (Panel.Width -
  8. (Panel.BorderWidth * 2) -
  9. (Panel.BevelWidth * 4)) div Panel.ControlCount;
  10.  
  11. For i := 0 To Panel.ControlCount - 1 Do
  12. Begin
  13. Panel.Controls[i].Width := Width;
  14. End;
  15. End;

Saludos!


  • 1