掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
memoの選択位置前にeditの内容を挿入するには (ID：5020)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Halbow です。 > memoの内容のある部分を選択しeditの内容をその選択位置の前に挿入するには やってみました。 procedure TForm1.Button1Click(Sender: TObject); var SelL:integer; begin SelL := Memo1.SelLength; if SelL = 0 then Memo1.SelText := Edit1.Text else begin Memo1.SelLength := 0; Memo1.SelText := Edit1.Text; Memo1.SelLength := SelL; end; Memo1.SetFocus; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.