掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
行の取得がうまくいかないときがあるは何故ですか？ (ID：43096)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
今日は。 また、よろしくお願いします。 先に質問したFormでのことです。 MouseDownは４つになりました。 さて、このFormのRichRdit1には２つのボタンからデータを表示させています。 ボタンBで表示させたデータをmousedownで行のデータを呼び込ませて、処理しています。 このプログラムは下の通りです。 問題は、ボタンAを押してデータを表示させた後で、ボタンBでデータ表示させた場合は、呼び込めなくなる場合があることです。 今日は、全部読み込めませんでしたが、先日、質問しようかと思って試した時は読み込みました。 そうなった場合、このformを終了してもう一度立ち上げたら、読み込めるようになります。 この問題は以前から続いているのですが、delphi6で起こっていたかどうかは覚えていません。 2009では間違いなく起こっていましたし、XE2でも起こっています。 一応、どうなっているかを調べたら、gyoが475になっていました。 空白行を読み込んでいました。 どんな原因が考えられますか。 急いではいませんので、よろしくお願いします。 procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var s:string; gyo,p,I:integer; begin if RichEditFlg=true then begin i:=GetScrollPos(RichEdit1.Handle,SB_VERT); gyo:=((i+y-5) div 17); S:=Copy(RichEdit1.lines[gyo],7,4); showmessage(IntToStr(gyo)); p:=pos(' ',S); if P>0 then s:=copy(s,1,p-1); richedit1.Clear; richedit1.lines.add(s); end end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.