Definição de Procedure (Rotina genérica)

Delphi

23/10/2004

Senhores !!!


Como poderia fazer para que, quando definir uma procedure (rotina genérica) todos os eventos onexit do componente dbedit por exemplo tivessem acesso a procedure, na hora que fosse no object inspector acessasse pelo evento onexit


Aguardo um retorno


Rogério


Rogeranalista

Rogeranalista

Curtidas 0

Respostas

Afarias

Afarias

23/10/2004

vc tem q definir o procedimento do mesmo tipo do evento, o OnExit por exemplo é um TNotifyEvent, ou seja, seu procedure ficaria na forma::

TFormTal = class(TForm)
  {...}
  procedure RotinaGenerica(Sender: TObject);
private
  {...}
public
  {...}
end;



Note q para q apareça no Object Inspector, este procedimento deve estar declarado como PUBLISHED (não pode ser private ou public ou protected) para q o Delphi gere as informações de RTTI necessárias


T+


GOSTEI 0
Raczy

Raczy

23/10/2004

Crie um procedure com o código a ser executado no evento OnExit.
Para todos os DbEdits você aponta os eventos OnExit para a procedure que você criou:

procedure DbEditExit;
begin
ShowMessage(´Evento OnExit do DbEdit´);
end;

DbEdit.OnExit:=DbEditExit;

Até a próxima...Valeu!!!


GOSTEI 0
Gilvanj

Gilvanj

23/10/2004

Vc pode também selecionar todos os dbedits ao mesmo tempo e depois dar um clique duplo no evento Onclick. O delphi irá associar um evento para todos os componentes selecionados.


GOSTEI 0
POSTAR