Ver Mensaje Individual
  #1  
Antiguo 26-04-2016
cristian22 cristian22 is offline
Miembro
NULL
 
Registrado: jun 2014
Posts: 18
Reputación: 0
cristian22 Va por buen camino
Ayuda con creacion de botones dinamicos

hola buenas tarde tengo un pequeño prolema espero que puedan guiarme
resulta que tengo que crear varios botones en tiempo de ejecucion atravez de un boton que lo denomino como "Crear" y esto se tienen que mostrar en forma de una matriz la cual utilizo 2 Tedit,uno para indicar el numero fila y otro de columnas
El prolema es que cuando escribo el cogido tengo prolema en la ubicacion . Los botones se crean de forma vertical y no logro formar la matriz aqui les dejo el codigo que tengo

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);

var
j,i, iTop:Integer;
  B: TButton;
begin
n:=edit1.Text;
m:=edit1.text    ;
     iTop:=100;
     For i:=1 to n Do
     begin
     for j := 1 to m do
     Begin
          v[i,j]:=TButton.Create(Self);
          v[i,j].Parent:=Self;
          v[i,j].Left :=j+20;
          v[i,j].Top  :=iTop;
          Inc(iTop, v[i,j].Height+10);
    End;
 end;

desde ya muchas gracias
Responder Con Cita