nova propriedade em TFrame

07/04/2004

0

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

Responder

Posts

22/05/2020

Carlos Custodio

Eu tenho essa mesma dúvida, alguém sabe se é possível?
Responder

23/05/2020

Emerson Nascimento

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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar