Memo的大小會隨著Form Size而改變...
請問有辦法得知目前畫面上Memo的大小 所能容納的行數…
也就是沒有Scroll的行數…而不是要Memo內的總行數…

感謝…

本來的目的是Memo在Search時，若下一個目標字串需要scroll 畫面，則Memo會自動把畫面scroll到 目標字串 顯示在 最後一行…

但我想在這個情況發生時，自動把 目標字串的那一行往上移，不要在最後一行…

就如同 TextPad一樣，有試過 "MemoScroll"這個 Event... 但好像有一些問題…有時會觸發，有時不會…

站上就有您想要的答案，請搜尋 EM_GETRECT、EM_GETFIRSTVISIBLELINE 這兩個關鍵字，祝順心！

編輯記錄

感謝 你的回答…

但我用
int lineno=0;
SendMessage(DCMemo->Handle,EM_GETFIRSTVISIBLELINE,0,0); 測試的結果…
回傳值一直是 0;
後來不管lineno的 initial值為多少，回傳值就是多少，感覺是 SendMessage失敗了…
不知道是不是DCMemo沒有辦法收到這個 Message....

不知道還有沒有其他辦法....
thk...

===================引 用 g6101 文 章===================
站上就有您想要的答案，請搜尋 EM_GETRECT、EM_GETFIRSTVISIBLELINE 這兩個關鍵字，祝順心！

偷雞..

[code delphi]
procedure TfrmMain.Button1Click(Sender: TObject);
var
n: Integer;
begin

Memo1.Font.Name := 'MS Sans Serif';
// Memo1.Font.Name := '新細明體';

n := 0;
if Memo1.Font.Name='MS Sans Serif' then n := 2
else if Memo1.Font.Name='新細明體' then n := 0;

n := ABS(Memo1.Font.Height) n;
n := Memo1.ClientHeight div n;
ShowMessage(Format('VisibleLines=%d',[n]));

end;
[/code]

提供您一些代碼,供參考!
[code cpp]
//取得可視文件頭行
//0為行號1;1為行號2,依此類推
int lineno = SendMessage(Memo1->Handle,EM_GETFIRSTVISIBLELINE,0,0);
//取得字體高;(註:取得字體高度有多種方法,自行查閱)
int hold = Canvas->Font->Size;
Canvas->Font->Size = Memo1->Font->Size;
int FontHeight = Canvas->TextHeight("字");
Canvas->Font->Size = hold;
//計算可視文件行數
TRect rect;
SendMessage(Memo1->Handle,EM_GETRECT,0,(long)&rect);
int vLines = (rect.Bottom - rect.Top)/FontHeight;
//如何控制 Memo 滾動條到底部及最右邊.
int min,max;
//垂直滾動條
GetScrollRange(Memo1->Handle,SB_VERT,&min,&max);
SetScrollPos(Memo1->Handle,SB_VERT,max,true);
PostMessage(Memo1->Handle,WM_VSCROLL,MAKELONG(SB_BOTTOM,0),0);
//水平滾動條
GetScrollRange(Memo1->Handle,SB_HORZ,&min,&max);
SetScrollPos(Memo1->Handle,SB_HORZ,max,true);
for (int i=0;i PostMessage(Memo1->Handle,WM_HSCROLL,MAKELONG(SB_LINEDOWN,0),0);
}
//其他的參數可以自己 try 不一樣的位置
//SB_LINEUP,SB_PAGEUP,VK_NEXT,SB_PAGEDOWN,SB_LINEDOWN,SB_TOP,SB_BOTTOM
[/code]

謝謝 g6101的回答…
目前已經測試出來了…

但是計算出來的vLines會有一些誤差…我猜可以跟字型有關…

非常感謝…

也謝謝 jow 的回覆…
===================引 用 g6101 文 章===================
提供您一些代碼,供參考!
[code cpp]
//取得可視文件頭行
//0為行號1;1為行號2,依此類推
int lineno = SendMessage(Memo1->Handle,EM_GETFIRSTVISIBLELINE,0,0);
//取得字體高;(註:取得字體高度有多種方法,自行查閱)
int hold = Canvas->Font->Size;
Canvas->Font->Size = Memo1->Font->Size;
int FontHeight = Canvas->TextHeight("字");
Canvas->Font->Size = hold;
//計算可視文件行數
TRect rect;
SendMessage(Memo1->Handle,EM_GETRECT,0,(long)&rect);
int vLines = (rect.Bottom - rect.Top)/FontHeight;
//如何控制 Memo 滾動條到底部及最右邊.
int min,max;
//垂直滾動條
GetScrollRange(Memo1->Handle,SB_VERT,&min,&max);
SetScrollPos(Memo1->Handle,SB_VERT,max,true);
PostMessage(Memo1->Handle,WM_VSCROLL,MAKELONG(SB_BOTTOM,0),0);
//水平滾動條
GetScrollRange(Memo1->Handle,SB_HORZ,&min,&max);
SetScrollPos(Memo1->Handle,SB_HORZ,max,true);
for (int i=0;i
//其他的參數可以自己 try 不一樣的位置
//SB_LINEUP,SB_PAGEUP,VK_NEXT,SB_PAGEDOWN,SB_LINEDOWN,SB_TOP,SB_BOTTOM
[/code]