Evento de objetos criados em tempo de execução
06/03/2003
0
Oi. Estou usando o seguinte código para poder usar objetos de forma dinamica em delphi:
DBEdit1:=TDBEdit.create(self);
DBEDIT1.Parent:=Self;
DBEDIT1.Left:=x;
DBEDIT1.Top:=y;
Funcionou bem. Isso dentro de um while cria quantos objetos eu precisar e ok.
Mas agora preciso utilizar os eventos desses objetos criados em tempo de execução.
Como faço para escrever o evento ONEXIT desses objetos por exemplo?
A propriedade do evento é Tnotifyevent, mas eu não sei como utilizala.
Valew.
DBEdit1:=TDBEdit.create(self);
DBEDIT1.Parent:=Self;
DBEDIT1.Left:=x;
DBEDIT1.Top:=y;
Funcionou bem. Isso dentro de um while cria quantos objetos eu precisar e ok.
Mas agora preciso utilizar os eventos desses objetos criados em tempo de execução.
Como faço para escrever o evento ONEXIT desses objetos por exemplo?
A propriedade do evento é Tnotifyevent, mas eu não sei como utilizala.
Valew.
Doug_chagas
Curtir tópico
+ 0
Responder
Posts
06/03/2003
Ggean
Oi,
primeiro vc cria o procedimento que será utilizado depois associa ao evento.
veja:
Procedure MinhaMensagem(s:string);
begin
showmessge(s);
end;
criei a procedure.
Edit1.onExit:=minhaMensagem(´Oi Doug_chagas´);
Passei MinhaMensagem para o OnExit do Edit1.
se nao funcionar me avise,
Té +.
primeiro vc cria o procedimento que será utilizado depois associa ao evento.
veja:
Procedure MinhaMensagem(s:string);
begin
showmessge(s);
end;
criei a procedure.
Edit1.onExit:=minhaMensagem(´Oi Doug_chagas´);
Passei MinhaMensagem para o OnExit do Edit1.
se nao funcionar me avise,
Té +.
Responder
06/03/2003
Navoid
mas agora que vi, está errado
num vai funcar o que o ggean fez
na verdade vc precisar criar uma funcção do tipo tnotifyevent assim
****
procdure minhafuncao(sender: tobject);
begin
// seu código aqui
end;
****
e depois associar no evento assim
****
edit.onexit:= minhafuncao;
****
até
num vai funcar o que o ggean fez
na verdade vc precisar criar uma funcção do tipo tnotifyevent assim
****
procdure minhafuncao(sender: tobject);
begin
// seu código aqui
end;
****
e depois associar no evento assim
****
edit.onexit:= minhafuncao;
****
até
Responder
06/03/2003
Ggean
Realmente o Navoid tem razao.
Procedure Tform1.MinhaMensagem(sender:Tobject);
begin
showmessage(´asasdfasdas´);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.onExit:=minhaMensagem;
end;
Desculpe.
Procedure Tform1.MinhaMensagem(sender:Tobject);
begin
showmessage(´asasdfasdas´);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.onExit:=minhaMensagem;
end;
Desculpe.
Responder
Clique aqui para fazer login e interagir na Comunidade :)
