Memoにカーソルのある部分にAddするには?

解決


のほほ  2003-01-10 09:32:58  No: 2555  IP: [192.*.*.*]

お初です。
今、Delphiを勉強中で、このようなページを発見して大変参考になります。
さて、質問ですが、
MemoコンポーネントでMemo欄を作ります。
で、ボタンコンポーネントも作り、そのボタンを押すことで、

Form1.Memo1.Lines.Add('Hello');

つまり、ボタンを押すことでHelloという文字をMemoに追加したいのです。
しかしこれでは、Memoの最後の行にしかHelloという文字が出ません。
Memoの中でカーソルがあってる部分にその文字を出したいのですが、どうすればよいですか?
御教授よろしくお願いします。

編集    削除
とほほ  2003-01-10 12:01:13  No: 2556  IP: [192.*.*.*]

こんなん出ましたけど・・・

Memo1.Text := Memo1.Text+'Hello';

どないでしゃっろ?一応できましたぜっ!

編集    削除
やほほ  2003-01-10 14:29:06  No: 2557  IP: [192.*.*.*]

>Memo1.Text := Memo1.Text+'Hello';

ほにゃ?、これやったらお尻に追加でっしゃろ。

>Memoの中でカーソルがあってる部分にその文字を出したいのですが..

文字列の任意な場所クリックして、そこに割り込ませたいんやチュウことかいな?
そないなことやったら、クリップボードつこうて、これでどうでっしゃろ。

 ClipBoard.AsText := 'Hello';
 Memo1.PasteFromClipboard;

編集    削除
たかみちえ  URL  2003-01-10 16:39:01  No: 2558  IP: [192.*.*.*]

SelTextプロパティに代入です。キャレットのある位置に文字を挿入できます。

  ただし、アンドゥバッファには追加されません。追加したい場合は、Performで、EM_REPLACESELを使ってください。
(詳しくは過去ログにあったはず)

編集    削除
のほほ  2003-01-10 20:25:59  No: 2559  IP: [192.*.*.*]

おお!ブラボー!
言われて、ああそうか!クリップボードか!って思わされてしまいました(^^;)
SelTextプロパティのことはよく分からないので、また調べてみます。
ありがとうございました。

編集    削除
のほほ  2003-01-10 20:35:58  No: 2560  IP: [192.*.*.*]

すいません。SelTextでもできました。ありがとうございました。

編集    削除