PAGUE 6 MESES
LEVE 12 MESES
GARANTIR DESCONTO

Fórum minha propriedade OnChange não funciona #459671

28/10/2013

0

bom dia, sou novo aki, e estou com um probleminha nasmãos, criei um componente que consiste em um panel com um edit dentro, quero colocar a propriedade OnChange do edit, mas ele não executa nada quandouso o OnChange do meu componente, o que estou fazendo de errado ? aki vai parte do código que estou usando :

unit MeuEdit;

interface

uses (...)

type

TMeuEdit = class(TPanel)
private
Edt : TEdit;
(...)
FEditChange: TNotifyEvent;

{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
Constructor Create(AOwner: TComponent);override;
destructor Destroy; override;
published
{ Published declarations }

property OnEditChange: TNotifyEvent read FEditChange write FEditChange;
property OnEditChange: TNotifyEvent read FEditExit write FEditExit;

end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Samples', [TMeuEdit]);
end;

constructor TMeuEdit.Create(AOwner: TComponent);
begin

inherited Create(Aowner);
Self.Parent := TWinControl(Aowner);

Edt := TEdit.Create(Self);
with Edt do
begin
Parent := Self;
Left := 8;
(...)
end;

with Self do
begin
Caption := EmptyStr;
(...)
end;

end;

destructor TMeuEdit.Destroy;
begin

inherited;
end;

(...)

end.

agradeço quem puder me ajudar.
Denilson Gama

Denilson Gama

Responder

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

Aceitar