m8815010
版主
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表: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到,再視需要自行修繕吧, !
|