RaynorPao
版主
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](http://delphi.ktop.com.tw/download.php?download=upload/48c9d66ac5033_KTOP-%E5%8C%85%E5%AD%90%28%E7%9C%BC%E9%8F%A1%29-Q-100x100.jpg) 發表:139 回覆:3622 積分:7025 註冊:2002-08-12
發送簡訊給我
|
引言:
我有兩個大小一樣的Memo,要怎麼讓他們的ScrollBar同步?
>>< face="Verdana, Arial, Helvetica">
NitRate2 你好:
(1)「同步」顧名思義應該是指滑鼠拖拉任何一個 Memo 的 ScrollBar,就會自
動讓另外一個 Memo 的 ScrollBar 一起動作,而且兩個 Memo 的 ScrollBar
的位置,要保持一致!!不知道你的意思是不是這個樣子?
( >
// >
szText="ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz">Lines->Add(IntToStr(i)+" - "+szText);
Memo2->Lines->Add(IntToStr(i)+" - "+szText);
Application->ProcessMessages();
} OldMemo1WndProc=Memo1->WindowProc;
Memo1->WindowProc=NewMemo1WndProc;
OldMemo2WndProc=Memo2->WindowProc;
Memo2->WindowProc=NewMemo2WndProc;
}
void __fastcall TForm1::NewMemo1WndProc(TMessage &Message)
{
OldMemo1WndProc(Message);
if(Message.Msg==WM_VSCROLL)
{
int iVPos1=GetScrollPos(Memo1->Handle, SB_VERT);
int iVPos2=GetScrollPos(Memo2->Handle, SB_VERT);
if(iVPos1!=iVPos2)
{
Memo2->Perform(Message.Msg, Message.WParam, Message.LParam);
}
}
if(Message.Msg==WM_HSCROLL)
{
int iHPos1=GetScrollPos(Memo1->Handle, SB_HORZ);
int iHPos2=GetScrollPos(Memo2->Handle, SB_HORZ);
if(iHPos1!=iHPos2)
{
Memo2->Perform(Message.Msg, Message.WParam, Message.LParam);
}
}
}
void __fastcall TForm1::NewMemo2WndProc(TMessage &Message)
{
OldMemo2WndProc(Message);
if(Message.Msg==WM_VSCROLL)
{
int iVPos1=GetScrollPos(Memo1->Handle, SB_VERT);
int iVPos2=GetScrollPos(Memo2->Handle, SB_VERT);
if(iVPos1!=iVPos2)
{
Memo1->Perform(Message.Msg, Message.WParam, Message.LParam);
}
}
if(Message.Msg==WM_HSCROLL)
{
int iHPos1=GetScrollPos(Memo1->Handle, SB_HORZ);
int iHPos2=GetScrollPos(Memo2->Handle, SB_HORZ);
if(iHPos1!=iHPos2)
{
Memo1->Perform(Message.Msg, Message.WParam, Message.LParam);
}
}
}
(3)請再依照自己的需求,自行修改
>> < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10003806&CC=223734"> -- Enjoy Researching & Developing --
------ -- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
|