nova propriedade em TFrame
Olá seguinte estou precisando adicionar algumas propriedades novas em um Frame que eu quero utilizar como biblioteca nos programas aqui da empresa. Eu já criei toda a estrutura, tá tudo funcionado blz, só tem um erro ! as propriedades não estão aparendo no Object Inspector !!! Gostaria de uma ajuda ai de vc pra poder resolver isso bl. Abaixo segue um exemplo de uma delas. Desde já muito obrigado.
ps. Ontem eu tinha postado esta mesma pergunta, mas não sei pq ela simplesmente SUMIU !!!!!!! Gostaria até de uma possição dos moderadores/administradores sobre o que aconteceu.
unit ufraPadListagem;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, CheckLst, Funcoes, DB, DBTables;
type
TfraPadListagem = class(TFrame)
grbTipoUtilizacao: TGroupBox;
clbListagem: TCheckListBox;
spdLimpaAtuais: TSpeedButton;
spdChecaAtuais: TSpeedButton;
qryLista: TQuery;
procedure spdChecaAtuaisClick(Sender: TObject);
private
{ Private declarations }
FfraObrigatorio: boolean;
FCkTodos: Boolean;
procedure SetfraObrigatorio(const Value: boolean);
procedure SetfraCkTodos(const Value: Boolean);
procedure MudaCor;
public
{ Public declarations }
function Check(GeraErro: boolean) : boolean;
published
property fraObrigatorio : boolean read FfraObrigatorio write SetfraObrigatorio;
property fraCkTodos : Boolean read FCkTodos write SetfraCkTodos stored True default True;
end;
procedure Register;
implementation
{$R *.dfm}
{ TfraPadListagem }
procedure Register;
begin
RegisterNoIcon([TfraPadPesqBanco]);
RegisterCustomModule(TfraPadPesqBanco, TBaseCustomModule); //TBaseCustomModule
end;
ps. Ontem eu tinha postado esta mesma pergunta, mas não sei pq ela simplesmente SUMIU !!!!!!! Gostaria até de uma possição dos moderadores/administradores sobre o que aconteceu.
unit ufraPadListagem;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, CheckLst, Funcoes, DB, DBTables;
type
TfraPadListagem = class(TFrame)
grbTipoUtilizacao: TGroupBox;
clbListagem: TCheckListBox;
spdLimpaAtuais: TSpeedButton;
spdChecaAtuais: TSpeedButton;
qryLista: TQuery;
procedure spdChecaAtuaisClick(Sender: TObject);
private
{ Private declarations }
FfraObrigatorio: boolean;
FCkTodos: Boolean;
procedure SetfraObrigatorio(const Value: boolean);
procedure SetfraCkTodos(const Value: Boolean);
procedure MudaCor;
public
{ Public declarations }
function Check(GeraErro: boolean) : boolean;
published
property fraObrigatorio : boolean read FfraObrigatorio write SetfraObrigatorio;
property fraCkTodos : Boolean read FCkTodos write SetfraCkTodos stored True default True;
end;
procedure Register;
implementation
{$R *.dfm}
{ TfraPadListagem }
procedure Register;
begin
RegisterNoIcon([TfraPadPesqBanco]);
RegisterCustomModule(TfraPadPesqBanco, TBaseCustomModule); //TBaseCustomModule
end;
Djjunior
Curtidas 0
Respostas
Carlos Custodio
07/04/2004
Eu tenho essa mesma dúvida, alguém sabe se é possível?
GOSTEI 0
Emerson Nascimento
07/04/2004
retire a procedure Register da unit onde foi declarado o TFrame personalizado.
você terá uma unit com a implementação da classe e outra com o registro da classe.
unit com a implementação do TFrame:
unit para registrar a classe:
você terá uma unit com a implementação da classe e outra com o registro da classe.
unit com a implementação do TFrame:
unit ufraPadListagem; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, CheckLst, Funcoes, DB, DBTables; type TfraPadListagem = class(TFrame) grbTipoUtilizacao: TGroupBox; clbListagem: TCheckListBox; spdLimpaAtuais: TSpeedButton; spdChecaAtuais: TSpeedButton; qryLista: TQuery; procedure spdChecaAtuaisClick(Sender: TObject); private { Private declarations } FfraObrigatorio: boolean; FCkTodos: Boolean; procedure SetfraObrigatorio(const Value: boolean); procedure SetfraCkTodos(const Value: Boolean); procedure MudaCor; public { Public declarations } function Check(GeraErro: boolean) : boolean; published property fraObrigatorio : boolean read FfraObrigatorio write SetfraObrigatorio; property fraCkTodos : Boolean read FCkTodos write SetfraCkTodos stored True default True; end; implementation {$R *.dfm} { TfraPadListagem } //[implementação de TfraPadListagem] end.
unit para registrar a classe:
unit ufraPadListagemReg; interface procedure Register; implementation uses ufraPadListagem, System.Classes; procedure Register; begin RegisterComponents('User', [TfraPadListagem]); end; end.
GOSTEI 0