F�rum Aba n�o aparece - Delphi 7 #131342

30/03/2010

Ol�. Criei um componente em uma nova aba, pra fim de aprendizado, mas a aba n�o aparece. Mesmo se instalar o componente em uma aba existente, ele n�o aparece. Durante a instala��o n�o h� nenhuma mensagem de erro, e o componente e aba aparencem no "Configure Palette". Alguem pode me ajudar ? Obrigado.

Marcos

Curtir t�pico

+ 0

Responder

Posts

31/03/2010

Marcos

ser� que � algo errado com o c�digo? � s� um label com duas propriedades integer e uma boolean a mais.

 
unit Qlabel4;
interface
uses
  SysUtils, Classes, QControls, QStdCtrls;
type
  tlabel4 = class(TLabel)
  private
    { Private declarations }
    FGx:Integer;
    FGy:Integer;
    FCarry:Boolean;
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOWner: TComponent); override;
    destructor Destroy;override;
 
  published
    { Published declarations }
    property Gx:Integer read FGx write FGx;
    property Gy:Integer read FGy write FGy;
    property Carry: Boolean read FCarry write FCarry;
  end;
procedure Register;
implementation
procedure Register;
begin
  RegisterComponents('MyPalete', [tlabel4]);
end;
{ tlabel4 }
constructor tlabel4.Create(AOWner: TComponent);
begin
  inherited;
end;
destructor tlabel4.Destroy;
begin
  inherited;
end;
end.

Obrigado.

Responder

Gostei + 0

01/04/2010

Marcos

Responder

Gostei + 0

20/04/2010

Wesley Batista

Ol� amigo, voc� criou um package? Sen�o criou, crie um file/new/package, adicione esta tua unit no mesmo, depois salve.
Ao salvar o projeto, clique com o Bot�o direito em cima do mesmo no project manager, e " Install " , seu componente ser� instalado normalmente.

Espero te ajudado

Um abra�o

Wesley Batista
e-mail : wesley@tdstecnologia.com.br
site : www.tdstecnologiarj.com.br

Responder

Gostei + 0

20/04/2010

Wilson Junior

No Delphi 7 n�o � obrigat�rio criar um Package para instalar um componente. Pois se n�o possuir um package, ele j� inclui no dclusr.dpk automaticamente.

Espero ter colaborado.

Responder

Gostei + 0

24/04/2010

Vtrx

Experimenta assim; unit Qlabel4;
interface
uses
SysUtils, Classes, QControls, QStdCtrls;
type
tlabel4 = class(TLabel)
private
    { Private declarations }
    FGx:Integer;
    FGy:Integer;
    FCarry:Boolean;
protected
    { Protected declarations }
public
    { Public declarations }
    constructor Create(AOWner: TComponent); override;
    destructor Destroy;override;

published
    { Published declarations }
    property Gx:Integer read FGx write FGx;
    property Gy:Integer read FGy write FGy;
    property Carry: Boolean read FCarry write FCarry;
end;
procedure Register;
implementation constructor tlabel4.Create(AOWner: TComponent);
begin
inherited;
end;
destructor tlabel4.Destroy;
begin
inherited;
end;
procedure Register;
begin
RegisterComponents('MyPalete', [tlabel4]);
end;
end.

Responder

Gostei + 0

25/04/2010

Marcos

Obrigado pela dica, mas ainda n�o funcionou. Quando compilo a Unit do novo componente, a aba aparece. Mas quando vou testar o componente, abro um novo formul�rio e a aba some, e depois n�o aparece mais.

Responder

Gostei + 0

26/04/2010

Vtrx

Fiz uma simula��o aqui e tive v�rios problemas. Acho que est� relacionado a forma como voce montou o componente,tem muita refer�ncia a palavras reservadas. Crie um projeto e inclua unit Qlabel4. Rode e ver� um erro.

Responder

Gostei + 0

26/04/2010

Marcos

Fiz o seguinte: {$R *.dfm}
USES
Qlabel4 ; //como n�o aprece a aba, tentando criar em runtime.... procedure TForm1.Button1Click(Sender: TObject);
var
MM:TLabel4;
begin
MM:=TLabel4.Create(self);
MM.Parent:=self; //aqui d� erro...
MM.Caption:='Ol� Mundo!';
end; end. Ent�o d� o seguinte erro: [Error] Unit1.pas(33): Incompatible types: 'TWidgetControl' and 'TForm1' [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Responder

Gostei + 0

13/08/2010

Robert Cortez

Caro Marcos, o problema do seu componente � o seguinte: Na cl�usula uses voc� esta usando QStdCtrls e QControls e o correto seria StdCtrls e Controls, sem os "Q". Ocorre que, as classes QtdCtrls e QControls, s�o classes CLX, ou seja, seu componente � instaldo com sucesso e da a impress�o que ele n�o aparece na aba, mas se voc� abrir um novo projeto CLX ver� que o componente aparecer� normalmente na paleta de componente. Retirando os "Q", o delphi usar� as classes da VCL, tornando o componente vis�vel na aba para projetos VCL e invis�vel para projetos CLX. Espero ter ajudado. Robert Cortez Publicus Inform�tica

Responder

Gostei + 0

13/08/2010

Marcos

Obrigado. J� estava quase desistindo de criar componentes. Agora deu certo. Isso vai me ajudar 1000%. Valew meso!!

Responder

Gostei + 0