如何得知 TRichEdit 的 Scrollbar 是出現的？ |
|
答題得分者是：RaynorPao
|
|
hagar
版主   發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
|
|
RaynorPao
版主  發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
引言: 在 TRichEdit 的內容超過垂直的畫面時 TRichEdit 垂直的 Scrollbar 就會自己跑出來 (如果 TRichEdit.Scrollbars 不是設為 [] 或 [ss 的話) 請問一下大家，有辦法知道現在 TRichEdit 的垂直的 Scrollbar 是出現的 或是 TRichEdit 的內容是超過一個畫面的嗎？ 謝謝大家! -- 向 KTop 的弟兄們致敬! hagar 你好: (1)提供一個方法，可以利用 Win32 API GetScrollBarInfo 達到目的 (2)請參考以下的範例程式碼 (BCB)，麻煩你自己改成 Delphi 吧
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
|
hagar
版主 發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
感謝包大人! 您是 KTop 的偉人，小弟的救星!
|
|
Chance36
版主  發表：31 回覆：1033 積分：792 註冊：2002-12-31 發送簡訊給我 |
hagar 你好
還有一個方法，雖不是很正統，但可以達到目的
Var
Msg : String;
Begin
Msg := '';
If (RichEdit1.Width-RichEdit1.ClientWidth-(RichEdit1.borderWidth*2) ) > 4 Then
Msg := 'Has VScrollBar' ;
If (RichEdit1.Height-RichEdit1.ClientHeight-(RichEdit1.borderWidth*2) ) > 4 Then
Msg := 'Has HScrollBar' ;
ShowMessage(Msg);
End;
_______________________________________
深藍的魚，祝您好運..........連.連
|
發表時間：2004-07-23 22:50:09
IP:202.39.xxx.xxx 未訂閱
系統時間：2024-05-03 2:42:36
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |