ActiveDelphi

[Ernane]

Amigos estou com um problemão:

1 - Criei um Componente TDBMyPanel = class(TPanel) com algumas funcionalidades tudo ok.

Agora necessito apresentar dentro desse DBMyPanel um TDBText a fim de mostrar meus campos do tipo autoincremento onde estou errando pois o painel aparece e o DBText não.

unit DBMyPanel;

interface

uses
Windows, SysUtils, Classes, Controls, ExtCtrls, Messages, Graphics, DB, DBCtrls;

type

TDBMeuPanel = class(TPanel)
private
FMeuDBText: TDBText;
protected
public
destructor Destroy; override;
constructor Create(AOwner: TComponent); override;
published
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('MyPaleta', TDBMeuPanel);
end;

{ TDBMeuPanel }

constructor TDBMeuPanel .Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FMeuDBText := TDBText.Create(Self);
FMeuDBText.Left := 1;
FMeuDBText.Top := 1;
end;

destructor TDBPanelText.Destroy;
begin
FMeuDBText.free;
inherited Destroy;
end;

end.

[gilsonnrodrigues]

faltou o em negrito.

FMeuDBText := TDBText.Create(Self);
FMeuDBText.Parent := Self;

[Ernane]

Coloquei Companheiro Gilson mesmo assim ainda nao esta aparecendo e tb não mostra o DataSource e men o DataField do TDBText.

[gilsonnrodrigues]

então ta aparecendo sim. não ta aparecendo é pq ele ta sem conteudo.

vc quer q apareca o datasource e o datafield onde?

por acaso Tpanel tem essas properties?

vc herdou de TDBtext ou de TPanel ?

entendeu?


mas tente assim:

[Ernane]

Pocha Gilson, funcionou era isso que eu queria companheiro e tao facil levei uma pisa danada, tentei de varia formas mais não tinha funcionado, acho que sei quase de cor tuda unit do DBCtrls, e aproveitando me diz uma coisa se eu herdar uma variavel de TIBTable consigo da mesma forma trazer as tabelas do meu TIBDataBase.

[gilsonnrodrigues]

sim