Amigo estoy intentando crear un componente con el ultimo codigo ya que creo que lo voy a usar mucho de aqui en adelante pero me encuentro con problemas. Tengo esto:
Código PHP:
//---------------------------------------------------------------------------
#ifndef ListBoxAutoSelectH
#define ListBoxAutoSelectH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
//---------------------------------------------------------------------------
class PACKAGE TListBoxAutoSelect : public TListBox
{
private:
int _index;
TWndMethod _oldWndProc;
TNotifyEvent _vScroll;
protected:
virtual void __fastcall WndProc(TMessage &msg) {
if (msg.Msg == WM_VSCROLL && _vScroll) {
_index = GetScrollPos(this->Handle, SB_VERT);
_vScroll(this);
}
TListBox::WndProc(msg);
}
public:
__property TNotifyEvent OnVerticalScroll = {read = _vScroll, write = _vScroll};
__property int CurrentIndex = {read = _index};
__fastcall TListBoxAutoSelect(TComponent* Owner);
__fastcall ~TListBoxAutoSelect();
__published:
};
//---------------------------------------------------------------------------
#endif
Código PHP:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "ListBoxAutoSelect.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(TListBoxAutoSelect *)
{
new TListBoxAutoSelect(NULL);
}
//---------------------------------------------------------------------------
__fastcall TListBoxAutoSelect::TListBoxAutoSelect(TComponent* Owner)
: TListBox(Owner)
{
_oldWndProc = this->WindowProc;
}
//---------------------------------------------------------------------------
__fastcall TListBoxAutoSelect::~TListBoxAutoSelect() {
this->WindowProc = _oldWndProc;
}
//---------------------------------------------------------------------------
namespace Listboxautoselect
{
void __fastcall PACKAGE Register()
{
TComponentClass classes[1] = {__classid(TListBoxAutoSelect)};
RegisterComponents("Mis Componentes", classes, 0);
}
}
//---------------------------------------------------------------------------
El componente se crea correctamente y todo pero al usarlo veo que no hace nada. Si miro tu último codigo veo esto:
Código PHP:
lb1->OnVerticalScroll = ListBoxVScroll;
Esa funcion no aparece por ningun sitio en tu codigo último por lo que pienso que puede ser por eso pero se me plantean algunas dudas mas:
1-¿Puedo asignar unas dimensiones por defecto al componente para que se cree de manera que solo muestre el item seleccionado?
2-¿Puedo asignar el estilo con el que se creará?
Pues esos tres problemillas son los que me encuentro por ahora.