Crear un DbGrid en una TTabSheet

[GerTorresM]

Como tal vez o fui claro en la pregunta, me permito enviar la totalidad del código (no es muy largo por fortuna), y para mayor información estoy trabajando en Delphi 6 Enterprise.

el código es el siguiente

unit UFormulario;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QComCtrls,DB, ComCtrls, QDBGrids;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
PCInformacion : TPageControl;
DTPFecha : TDateTimePicker;
Hoja1, Hoja2: TTabSheet;
DataSource : TDataSource;
DBGDatos: TDBGrid;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
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 := Hoja1; // aqui es donde sale el error mencionado en la pregunta
end;
Hoja2:= TTabSheet.Create(PCInformacion);
with Hoja2 do
begin
PageControl:= PCInformacion;
Caption:= 'Hola Mundo en la Hoja 2';
end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
DTPFecha.Destroy;
Hoja1.Destroy;
Hoja2.Destroy;
PCInformacion.Destroy;
end;
end.

Gracías de antemano por su tiempo y colaboración

[ariefez]

Pues no le veo utilidad a las unidades QComCtrls, QDBGrids, o almenos a mi no me las reconoce , en vez de eso use ComCtrls, DBGrids y corre normal, te pego el codigo sin esas unidades. una cosa mas para liberar, se usa la rutina Free o FreeAndNil... un consejo al escribir tu mensaje resalta tu codigo con el boton Resaltar sintaxis delphi y quedara mas legible, suerte que existe Jedi Code Format, sino, no seria legible tu codigo.

Código Delphi [-]
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, DB, DBGrids;

type
  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2:      TForm2;
  PCInformacion: TPageControl;
  DTPFecha:   TDateTimePicker;
  Hoja1, Hoja2: TTabSheet;
  DataSource: TDataSource;
  DBGDatos:   TDBGrid;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
  PCInformacion := TPageControl.Create(Self);
  with PCInformacion do
  begin
    Parent := Form2;
    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 := Hoja1; // aqui es donde sale el error mencionado en la pregunta
  end;
  Hoja2 := TTabSheet.Create(PCInformacion);
  with Hoja2 do
  begin
    PageControl := PCInformacion;
    Caption     := 'Hola Mundo en la Hoja 2';
  end;
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
  DTPFecha.Free;
  Hoja1.Free;
  Hoja2.Free;
  PCInformacion.Free;
end;

end.

Una cosa mas al crear los controles, debes darles las coordenadas y dimensiones sino no los vaz a ver o van estar desordenados

[GerTorresM]

Les agradezco a todos su colaboración, me agrada muchisimo poder contar con gente con ustedes y con un sitio tan especilizado y organizado como el club.


Gracías