掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
キー入力 (ID：18310)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char); begin if (Key = 'A') or (Key = 'a') then begin Key := #0; Memo1.selText := 'xyz' + #13#10; end; end; 対象はあくまでも「A」です。 「a」も必要ならなら if (Key = 'A') or (Key = 'a') then でどうでしょうか？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.