Wolfgang Chien's Homepage | Delphi學習筆記 - 問答篇 |
請問一下,
在dbmemo中搜尋到了一個字串,也設定了 selstart,sellength ,但字串位置不在目前所看到的 dbmemo中, (要捲頁才看到)以致無法顯示反白標示,這要怎麼處理才能使它自動向下捲頁呢?
(中間確認問題現象的過程省略)
相同的程式在1.0與2.0的執行結果真的不一樣, 看來轉移1.0的程式到2.0,隱藏的問題可能還不少.
剛才查了WinAPI, 有一個 Message 可以將Editable元件的捲軸捲到看得到的地方, 換句話說, 在 Delphi 2.0 中,需要另外加上像是這列的程式:
SendMessage(DBMemo1.Handle, EM_SCROLLCARET, 0, 0);
所以, 之前的程式例就變成:
procedure TfrmDetail.Button1Click(Sender: TObject); begin mmoContent.SetFocus; mmoContent.SelStart := 340; mmoContent.SelLength := 20; SendMessage(mmoContent.Handle, EM_SCROLLCARET, 0, 0); (* 加上這列 *) end;
首頁 | 學習筆記 | 主題公園 | 軟體下載 | 關於本站 | 討論信群 | 相約下次 |