Defini��o de Procedure (Rotina gen�rica)

Question

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 objec...

Afarias · Answer

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+

Raczy · Answer

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!!!

Gilvanj · Answer

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....

F�rum Defini��o de Procedure (Rotina gen�rica) #255695