掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
キー入力 (ID:18309)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
あまり、スマートな方法ではありませんが... var KeyNull : Boolean; procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin KeyNull := False; if Chr(Key) = 'A' then begin Memo1.SelText := 'xyz' + #13#10; KeyNull := True; end; end; procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char); begin if KeyNull then Key := #0; end; ってな感じでどうでしょう？
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.