Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #10  
Antiguo 26-09-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
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.

Si escafandra, si se va a aplicar eventualmente a un control, esta última opción que mencionas la considero mas práctica por lo sencilla de implementar .

header
Código PHP:
...
class 
TForm1 : public TForm {
...
private:    
   
TWndMethod OldWndProc;
   
void __fastcall NewWndProc(TMessageMessage);
   
void __fastcall vertScroll(TObject *Sender);
   
void __fastcall horzScroll(TObject *Sender);
   ...
}; 
code
Código PHP:
..
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  
OldWndProc ScrollBox1->WindowProc;
  
ScrollBox1->WindowProc NewWndProc;
}

void __fastcall TForm1::NewWndProc(TMessageMessage)
{
  if(
Message.Msg == WM_VSCROLL)
    
vertScroll(ScrollBox1);
  else if( 
Message.Msg == WM_HSCROLL)
    
horzScroll(ScrollBox1);
  
OldWndProc(Message);
}

void __fastcall TForm1::vertScroll(TObject *Sender) {
  
Caption "Scroll vertical";
}

void __fastcall TForm1::horzScroll(TObject *Sender) {
  
Caption "Scroll horizontal";
}

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
  
ScrollBox1->WindowProc OldWndProc;

En cambio, optaría por la primera si se justificara por la reutilización del código (como en el caso de un componente).

Es decir, si voy a usar algo una vez en una aplicación y muy rara vez nuevamente, escribiría el código mas corto y simple si con él obtengo el mismo resultado (pero es mi humilde opinion).

Saludos
__________________
Daniel Didriksen

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



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
¿Existe algún error en FireMonkey en el evento OnClosePopup de un ComboBox? RedVenom FireMonkey 0 10-02-2014 18:56:43
Frames. ¿Existe un evento similar a onActivate? adebonis Varios 19 21-11-2008 13:26:50
Comprobar en evento OnExit si valor de campo ya existe JMGR Conexión con bases de datos 9 18-05-2008 03:42:31
Llamar evento desde otro evento nachito_tuc OOP 1 23-08-2006 21:37:43
Existe ? Descendents Varios 1 20-10-2003 18:04:25


La franja horaria es GMT +2. Ahora son las 05:35:02.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi