Buenas tardes,
Foro,
Una pregunta estoy tratando de hacer un Pagecontrol con "n" cantidad de Tabsheet (dinamico), esta parte ya lo puede hacer pero lo que no he podido hacer es asignarle a cada tabsheet un dbgrid tambien es dinamico.
Este el el codigo:
Código Delphi
[-]
with sk_Empresas do begin
First;
while not Eof do begin
with TTabSheet.Create(self) do begin
Contador := Contador + 1;
PageControl := PageControlIngresos;
Caption := FieldByName('D_Empresa_Corta').AsString;
Name := FieldByName('K_Empresa').AsString;
Obj := TwwDBGrid.Create(Self);
Obj.Name := 'Gr'+Name;
PageControl.InsertControl(Obj);
Obj.Enabled := True;
Obj.Visible := True;
Obj.Align := alClient;
end;
Next;
end;
El problema es que si me crea los dbGrid pero no en cada tabsheet creado.
Que me falta ???