¿existe un evento OnScrollBoxPositionScrollBarChange?

[[escafandra]]

El tratamiento de mensajes podría hacerse reescribiendo la función virtual WndProc de TNewScrollBox directamente. El resultado es el mismo.

Saludos.

[ecfisa]

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(TMessage& Message);
   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(TMessage& Message)
{
  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

[[escafandra]]

ecfisa, no hablo de cambiar la función sino de sobreescribir la función virtual WndProc del control que estamos creando, derivado de un descendente TWinControl. Es mi técnica preferida.

Saludos.

[aguml]

interesante, ¿Como seria eso amigo? ¿Puedes crear un ejemplo básico?

[ecfisa]

Empezado por escafandra

ecfisa, no hablo de cambiar la función sino de sobreescribir la función virtual WndProc del control que estamos creando...

Ha, te entendí mal entonces... Yo hablaba de evitar derivar la clase para un uso casual.

Empezado por aguml

interesante, ¿Como seria eso amigo? ¿Puedes crear un ejemplo básico?

No veo en línea al amigo escafandra, pero te pongo un ejemplo muy básico de lo que creo a que se refiere (luego me corregirá si me equivoco):

header:

Código PHP:

class TForm1 : public TForm {
__published:
private:
  void __fastcall FMouseDown(TMessage& msg);
protected:
  virtual void __fastcall WndProc(TMessage& msg);
public:
  __fastcall TForm1(TComponent* Owner);
}; 


code:

Código PHP:

void __fastcall TForm1::FMouseDown(TMessage& msg) {

    Caption = Format("Click en: (%3d, %3d)",
      ARRAYOFCONST(((int)msg.LParamLo, (int)msg.LParamHi)));
}

void __fastcall TForm1::WndProc(TMessage& msg) {

  if (msg.Msg == WM_LBUTTONDOWN)
    FMouseDown(msg);
  TForm::WndProc(msg);
} 


Saludos

[aguml]

mmmm es muy similar a la de sustituir la funcion. En el ejemplo que pusiste, al ser un form, ¿Cmo harias para cear un form y que sea el unico form del proyecto? Cuando creas una aplicacion el c++builder ya te añade el form pero si quieres que use el tuyo modificado en vez del estandar ¿Como lo haces? Ya se que no tiene nada que ver y que es un ejemplo pero me dio curiosidad.

[aguml]

bien, lo he vuelto a ver y me di cuenta que no creas ninguna clase sino que modificas la que hay. En ese caso es muy facil porque es la unidad .cpp y .h del form1 pero si fuese por ejemplo de un timage no está el .cpp ni el .h por lo que para hacer eso mismo tendrias que crear una derivada ¿No? Ademas ¿Que ventaja tiene sobreescribir la funcion contra reemplazarla? Supongo que se obtiene exactamente el mismo resultado ¿No?