¿existe un evento OnScrollBoxPositionScrollBarChange?

[[escafandra]]

Estaba preparando un ejemplo, pero veo que ya resolviste el problema. Aún así lo dejo.

Fíjate en este código basado en el tuyo. Es un componente visual que debes instalar:
Menu->Component->Intall Component

//---------------------------------------------------------------------------

#ifndef NewScrollBoxH
#define NewScrollBoxH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class PACKAGE TNewScrollBox : public TScrollBox
{
   public:
        __fastcall TNewScrollBox(TComponent* Owner);

   private:
        TNotifyEvent FOnVerticalScroll;
        TNotifyEvent FOnHorizontalScroll;

   private:
        void __fastcall WMHScroll(TMessage& Msg);
        void __fastcall WMVScroll(TMessage& Msg);

   __published:
        __property TNotifyEvent OnVerticalScroll =
        {read=FOnVerticalScroll,
        write=FOnVerticalScroll};
        __property TNotifyEvent OnHorizontalScroll =
        {read=FOnHorizontalScroll,
        write=FOnHorizontalScroll};

   public:
        BEGIN_MESSAGE_MAP
        MESSAGE_HANDLER(WM_HSCROLL, TMessage, WMHScroll)
        MESSAGE_HANDLER(WM_VSCROLL, TMessage, WMVScroll)
        END_MESSAGE_MAP(TScrollBox)
};
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "NewScrollBox.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
//

static inline void ValidCtrCheck(TNewScrollBox *)
{
        new TNewScrollBox(NULL);
}

//---------------------------------------------------------------------------
__fastcall TNewScrollBox::TNewScrollBox(TComponent* Owner)
        : TScrollBox(Owner)
{
}
void __fastcall TNewScrollBox::WMHScroll(TMessage& Msg)
{
        if (FOnHorizontalScroll != NULL)
        {
                FOnHorizontalScroll(this);
        }
        TScrollBox::Dispatch(&Msg);
}

void __fastcall TNewScrollBox::WMVScroll(TMessage& Msg)
{
        if (FOnVerticalScroll != NULL)
        {
                FOnVerticalScroll(this);
        }
        TScrollBox::Dispatch(&Msg);
}
//---------------------------------------------------------------------------
namespace Newscrollbox
{
        void __fastcall PACKAGE Register()
        {
                 TComponentClass classes[1] = {__classid(TNewScrollBox)};
                 RegisterComponents("Samples", classes, 0);
        }
}
//---------------------------------------------------------------------------

Te subo el proyecto del nuevo componente.


Saludos.

[aguml]

Pues como yo lo hice jejeje. Me costó porque nunca habia hecho algo asi pero es muy util saberlo hacer.

[[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