nova propriedade em TFrame

07/04/2004

6

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;


Responder

Posts

Eu tenho essa mesma dúvida, alguém sabe se é possível?
Responder
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.
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar