掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TEdit のデフォルトキー「Ctrl+H」 (ID:48515)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
//Action2 は ActionManagerに登録のみで表示させない //CheckBox1 True 任意の動作 False 何もしない //CheckBox2 True CheckBox1 の動作 False Default動作 procedure TForm3.Action1Execute(Sender: TObject); begin //任意の動作 Edit1.Text:='Hoge'; Edit1.SelStart:=4; end; procedure TForm3.Action2Execute(Sender: TObject); begin //何もしない Exit; end; procedure TForm3.CheckBox1Click(Sender: TObject); begin Action1.Enabled := CheckBox1.Checked; Action1.Update; if CheckBox2.Checked = True then begin if CheckBox1.Checked = False then begin Action1.ShortCut:=0;; Action2.ShortCut:=TextToShortCut('Ctrl+H'); end else begin Action1.ShortCut:=TextToShortCut('Ctrl+H'); Action2.ShortCut:=0;; end; end else begin Action1.ShortCut:=0;; Action2.ShortCut:=0;; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.