掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Memoに文字を追加して最下行でスクロールするには？ (ID:29309)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
たとえば以下のようにするとできます． 動作確認環境 WindowsXP(SP2) + Delphi7 Pro procedure ScrollBottom(WC:TWinControl); begin WC.Perform(WM_VSCROLL,MakeWParam(SB_BOTTOM,0),0); WC.Perform(WM_VSCROLL,MakeWParam(SB_ENDSCROLL,0),0); end; procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.Clear; if OpenDialog1.Execute then begin Memo1.Lines.BeginUpdate; Memo1.Lines.LoadFromFile(OpenDialog1.FileName); Memo1.Text := Memo1.Text + IntToStr(Memo1.Lines.Count); ScrollBottom(Memo1); Memo1.Lines.EndUpdate; end; end; スクロール関係については，以下が参考になれば幸いです． http://homepage2.nifty.com/Mr_XRAY/Halbow/VCL03.html > Memo1.Text.Add(IntToStr(iCount)); >では、コンパイラエラーで通りません。 TextはStringです．StringにはAddメソッドはありません． コード補完でAddは現れないと思いますが... 強引にコードを書いたのでしょうか． Delphi6 Personal版にはコード補完機能がないのかも知れませんが．
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.