Ver Mensaje Individual
  #12  
Antiguo 18-01-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Anel.

Ahora creo entenderte... me parece que de este modo vas a lograr lo que buscas, por ejemplo:
Código Delphi [-]
...
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ...
    procedure FormCreate(Sender: TObject);
    ...
    procedure FormDestroy(Sender: TObject);
  private
    procedure Edit1Change(Sender: TObject);
    ...
  public
  end;
...
implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Asignar valores a propiedades de componentes
  Edit1.Text:= 'xxxx';
  ...
  // Asignar eventos
  Edit1.OnChange:= Edit1Change; // Evento asignado posteriormente (no se dispara OnChange)
  ...
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  ShowMessage('CHANGE');
end;

...

procedure TForm1.FormDestroy(Sender: TObject);
begin
   // Desasignar
   Edit1.OnChange:= nil;
  ...
end;
Claro que previamente tendrías que quitar los eventos asignados por código desde el Object Inspector

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 18-01-2012 a las 00:37:30.
Responder Con Cita