Ver Mensaje Individual
  #3  
Antiguo 24-08-2006
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Debe poderse. Los eventos y propiedades relativos al drag están implementados desde TControl, es sólo que TAbZipView no los publica.

Puedes hacerlo tú mismo derivando una componente de TAbZipView o simplemente modificando el código fuente de la componente. Esto último es lo que acabo de hacer. Abre el archivo AbZView.inc que está en la carpeta source de Abbrevia. Ahí encontrarás la declaración de TAbZipView:

Código Delphi [-]
type
  
  ...

  TAbZipView = class(TAbBaseViewer)
  protected
    ...
  public
    ...
  published {properties}
    ..
  published {events}
    ...
  published {drag} // <--- agregada para propiedades drag
    property DragKind;
    property OnStartDrag;
    property OnEndDrag;
    property OnDragDrop;
    property OnDragOver;
  end;

Como ves, al final agregué una sección published donde simplemente añado los eventos y propiedades.

Guardas el archivo y recompilas el paquete dpk de runtime.

// Saludos
Responder Con Cita