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.
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)