m8815010
版主
發表：99
回覆：372
積分：289
註冊：2003-11-13
發送簡訊給我
|
引言:
我有兩個ListBox,其資料是對應的,所以只要我捲動其中一個,另外一個也要跟著捲動,請問該如何撰寫這樣的程式?
可指導一下嗎?
謝謝.
nlj859你好![]() ： 不曉得你是不是要這樣的東東，就是設有兩個 class="code"> In Unit1.h
~~
class TForm1 : public TForm
{
__published: // IDE-managed Components
TListBox *ListBox1;
TListBox *ListBox2;
void __fastcall FormCreate(TObject *Sender);
private: // User declarations
void __fastcall ListBoxWndProc(TMessage&); //add this line
TWndMethod OldListBoxWndProc; //add this line
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
~~ In Unit1.cpp ~~
TForm1 *Form1; //---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
OldListBoxWndProc=ListBox1->WindowProc;
ListBox1->WindowProc=ListBoxWndProc;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
for (int i=0;i<25;i ) {
ListBox1->Items->Add(i);
ListBox2->Items->Add(i);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ListBoxWndProc(TMessage& Message)
{
OldListBoxWndProc(Message); if (Message.Msg==WM_VSCROLL || Message.Msg==WM_MOUSEWHEEL) {
SendMessage(ListBox2->Handle,Message.Msg,Message.WParam,Message.LParam);
}
} 嗯，大概就這樣，精神就是ListBox1收到什麼樣的捲動指令，就同樣傳一份給ListBox2，所以兩者就會同步了! 注意這裡只concern滑鼠的捲動動作而已(由攔的訊息可知)。而且這個範例只是簡單的例子，有些東西可能還沒concern到，再視需要自行修繕吧，![]() !
|
發表時間：2004-08-15 01:44:50
IP:219.80.xxx.xxx 未訂閱
