掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Memoの文字列をボタンクリックで操作するには？ (ID:8102)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> ボタン１クリックでMEMOの現在行に文字追加 procedure TForm1.Button1Click(Sender: TObject); var LineNo:integer; begin LineNo := SendMessage(Memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0); Memo1.Lines[LineNo] := Memo1.Lines[LineNo]+'ABCDEFG'; Memo1.SetFocus; end; ボタン２クリックで次の行に移動 procedure TForm1.Button2Click(Sender: TObject); var NextLine:integer; begin NextLine := SendMessage(Memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0)+1; if NextLine = -1 then exit; Memo1.SelStart := SendMessage(Memo1.Handle,EM_LINEINDEX,NextLine,0); Memo1.SetFocus; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.