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