nova propriedade em TFrame

Delphi

07/04/2004

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;


Djjunior

Djjunior

Curtidas 0

Respostas

Carlos Custodio

Carlos Custodio

07/04/2004

Eu tenho essa mesma dúvida, alguém sabe se é possível?
GOSTEI 0
Emerson Nascimento

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 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
POSTAR