(Resolvido) Herança Visual

[Manoel Zancheta]

Olá!

Existe algum tipo de herança visual sem ser a herança de um form todo? Por exemplo, ter um repositório de componentes pré configurados e herdá-los conforme a necessidade?

Grato!

[Jhonas]

veja se isso te ajuda

http://www.devmedia.com.br/artigo-clube-delphi-112-interfaces/15097

http://www.google.com.br/search?q=reposit%C3%B3rio+componentes+em+delphi&hl=pt&biw=&bih=&gbv=2&o que=repositrio++componentes+em+delphi&gs_l=heirloom-serp.1.0.30i10.130400.136216.0.140036.13.10.0.1.0.8.675.5056.1j1j5-8.10.0....0...1ac.1.34.heirloom-serp..12.1.89.ejctNtOfV_0

abraço

[Manoel Zancheta]

Os modelos que achei, fazem herança do form com todos os componentes. Eu não achei nada que mostre se é possível eu herdar apenas um botão e seus métodos (por exemplo). Esta parte da herança do form eu já faço, só queria deixar os objetos num template, por exemplo: Teria: - edits já tratados só para números; - edits já tratados para valor; - edits já tratados para alfanuméricos; - maskedit formatado para CNPJ, CPF, RG, IE, etc... Será que é possível fazer isso, não achei nada. Grato!

[Jhonas]

se for para criar novos componentes, sim ... tipo criar um novo Edit que só aceita numeros

exemplo

http://www.planetadelphi.com.br/artigo/23/cria%C3%A7%C3%A3o-de-componentes---1%C2%AA-parte-%28c/-exemplo-pr%C3%A1tico%29/

se não for isso... pesquise no google pela palavra .... delphi template ( engine, method, code, list, class, function...etc )

abraço

[Manoel Zancheta]

Criar um novo componente pra mim já resolveu, ficou bacana. Pode marcar como resolvido. Obrigado e um grande abraço!

[Manoel Zancheta]

consegui fazer bastante coisa, sobrescreve métodos, acresecentar propriedades, porem não consegui mudar a propriedade Text do TEdit pra ficar no padrão '0,00'.

[Jhonas]

voce tem que formatar a string

exemplo ... faça as modificações para o seu uso

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  Edit1.Clear;
  SysLocale.MiddleEast := true;
  Edit1.BiDiMode := bdRightToLeft;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
      begin
         Edit1.text := formatfloat(',0.00',strtofloat(trim(Edit1.text)));
         exit;
      end;

   if not (key in ['0'..'9',',', #8]) then
      key := #0;
end;

outro exemplo

http://www.planetadelphi.com.br/dica/5951/mascara-para-o-edit

abraço

[Manoel Zancheta]

ok, mas eu queria deixar default no objeto.

[Jhonas]

tem que ser assim

unit NumEdit;

interface

uses
  SysUtils, Classes, Controls, StdCtrls;

type
  TNumEdit = class(TEdit)
  private
    { Private declarations }
    FNum: boolean;
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    procedure KeyPress(var Key: Char);override;
  published
    { Published declarations }
    property Numerico: boolean read FNum write FNum default true;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('MyComp', [TNumEdit]);
end;

constructor TNumEdit.Create(AOwner: TComponent);
begin
   inherited Create(AOwner);
   FNum := true;
   Text := '0';
end;

procedure TNumEdit.KeyPress(var Key: Char);
const teclas = ['0'..'9',',', #8];
begin
   if FNum then
   if not (key in teclas) then
      key:=#0;

   if key = #0 then
      begin
         Text := formatfloat(',0.00',strtofloat(trim(text)));
         exit;
      end;

   inherited KeyPress(Key);
end;

end.

abraço

[Manoel Zancheta]

deu certo... valeu Jhonas