掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
キー入力 (ID:18315)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
これでどうでしょう？ procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var Msg: TMsg; begin if (Chr(Key) = 'A') and PeekMessage(Msg, Memo1.Handle, WM_CHAR, WM_CHAR, PM_NOREMOVE) and (Chr(Msg.wParam) in ['A', 'a']) and PeekMessage(Msg, Memo1.Handle, WM_CHAR, WM_CHAR, PM_REMOVE) then Memo1.SelText:= 'xyz'; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.