Ver Mensaje Individual
  #2  
Antiguo 09-10-2003
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Reputación: 27
delphi.com.ar Va por buen camino
Self, owner y sender son cosas diferentes.

Sender es el objeto que llama al evento
Self es un "auto-llamado" a la instancia que implementa de la clase.
Owner es el dueño de ese objeto, es quien se encargará de eliminar el objeto, si es que no lo eliminamos.

Un ejemplo, tengo un formulario frmPrincipal del tipo MDI que crea un frmCarga, y este último tiene un botón llamado btnAccion. En nuestro código frmPrincipal es el Owner de frmCarga:
Código:
TfrmPrincipal.mnuCargaOnClick(Sender: TObject);
begin
  TfrmCarga.Create(Self); { Crea frmCarga asignando la instancia
                            instancia de frmPrincipal como Owner}
end;
En el click del botón tenemos:
Código:
TfrmCarga.btnAccionOnClick(Sender: TObject);
begin
  if Sender = btnAccion Then
    TForm(Self).Caption := 'Hola!' { Le asigna al caption del TfrmCarga, 
                                     que e a quien pertenece el método 
                                     btnAccionOnClick, el texo 'Hola!' }
  else if Sender = btnSalir Then
    TForm(Owner).Caption := 'Salir!!' { Le asigna el Dueño (TfrmPrincipal) 
                                        el texto Salir'}
  else
    Caption := 'Chau!'; {Aca podemos ver como el Self siempre está implísito}
end;

Espero haber sido claro, igualmente te recomiendo leer la ayuda que es muy clara.

Saludos!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.

Última edición por delphi.com.ar fecha: 09-10-2003 a las 17:44:48.
Responder Con Cita