nova propriedade em TFrame
07/04/2004
0
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
Posts
22/05/2020
Carlos Custodio
23/05/2020
Emerson Nascimento
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.
Clique aqui para fazer login e interagir na Comunidade :)