Ver Mensaje Individual
  #1  
Antiguo 21-07-2007
Avatar de GerTorresM
GerTorresM GerTorresM is offline
Miembro
 
Registrado: nov 2005
Ubicación: Tunja - Boyacá
Posts: 210
Reputación: 19
GerTorresM Va por buen camino
Unhappy Crear un DbGrid en una TTabSheet

Estoy intentando crear un DBGrid dentro una pestaña de un PageControl, para lo cual estoy empleando el siguiente código

Código Delphi [-]
 
PCInformacion:= TPageControl.Create(Self);
with PCInformacion do
begin
  Parent:= Form1; 
  Align:= AlClient;
end;
Hoja1:=TTabSheet.Create(PCInformacion);
with Hoja1 do
begin
  PageControl:= PCInformacion;
  Caption:= 'Hola Mundo';
  DTPFecha:= TDateTimePicker.Create(Self); 
  DBGDatos:= TDBGrid.Create(Self);
  DataSource:= TDataSource.Create(Self);
  DTPFecha.Parent:= Hoja1;
  DBGDatos.Parent:= Pagecontrol.Activepage;
end;

pero al intentar correr la apliación me envía el siguiente mensaje

Incompatibles types TWidgetControl And TTabSheet, al comentariar la línea donde fijo de parent del DBGrid, corre, pero no me dibuja el compnente, no se como puede remediar el error o cual sintaxis a emplear

Última edición por dec fecha: 21-07-2007 a las 02:01:19.
Responder Con Cita