Delphi dicas

Exemplo de componente criada a partir de uma existente

//Criando uma componente filha

unit GerLabel;

interface

uses

classes,stdctrls,extctrls;

type

        TEspLabel = class(TLabel)



        private

        Velocidade: integer;

        Temporizador: TTimer;

        procedure PoeVelocidade(Valor: integer);



        protected

        procedure PiscaPisca(Sender: TObject);



        public

        constructor Create(AOWner: TComponent); override;

        destructor Destroy; override;



        published

        property PegaVelocidade: integer read Velocidade write

        PoeVelocidade default 400;

end;



procedure Register;



implementation



constructor TEspLabel.Create(AOWner: TComponent);

begin

        inherited Create (AOWner);

        Temporizador:=TTimer.Create(Self);

        Velocidade:=400;

        Temporizador.Enabled:=true;

        Temporizador.OnTimer:=PiscaPisca;

        Temporizador.Interval:=Velocidade;

end;



destructor TEspLabel.Destroy;

begin

        Temporizador.Free;

        inherited destroy;

end;



procedure TEspLabel.PoeVelocidade(Valor: integer);

begin

        if (velocidade<>Valor) then

        begin

                if (Valor<0)then

                Valor:=0;

                Velocidade:=Valor;

                if (Velocidade=0) then

                Temporizador.Enabled:=False

                else

                Temporizador.Enabled:=true;

                Temporizador.Interval:=Velocidade;

                Visible:=true;

        end;

end;



procedure TEspLabel.PiscaPisca(Sender: TOBject);

begin

        if (temporizador.Enabled) then

        Visible:=not (Visible);

end;



procedure register;

begin

        RegisterComponents('Pessoal', [TEspLabel]);

end;

end.