MemoコンポーネントでCTRL+Aのショットカットを使えるようにしたい

解決

Dec1229 2010-12-29 22:39:20 No: 39764

DEL６Pですが、Memoコンポーネント内で

CTRL＋A（すべて選択）が使えないのですが、

使えるようにするには、どのようにするのでしょうか。

Mr.XRAY 2010-12-30 02:32:29 No: 39765

こんにちは．Mr.XRAYです．

>DEL６Pですが、Memoコンポーネント内で

Pということは，Professional版ですね．

>CTRL＋A（すべて選択）が使えないのですが、
>使えるようにするには、どのようにするのでしょうか。
(空白行は削除しました)

どのようなアプリで，どのような状況でTMemoのそのような機能を使うのかは
分かりませんが，もし，メニューを作成して利用するという場合でしたら，
TActionList，TActionManagerを使用することも考えられます．

例えば以下のビデオでも使用しています．

コードを1行も書かないでワードパッドらしきものを作成
http://jp.youtube.com/watch?v=iai_HNYARD4&feature=related

Dec1229 2010-12-30 03:42:25 No: 39766

Mr.XRAY さん、ありがとうございます。

動画も大変参考になりました。ありがとうございます。

説明が不足してすいません。DELPHI６personalです。

ショートカットキーに関しての質問でした。

TMEMOで、ショートカットキーCTRL＋CやCTRL＋Vなどは、

普通に使用ができるんですが、CTTRL+Aだけは使用できず困っています。

通常、Windowsに付属のメモ帳ですとショートカットキーで

CTRL+Aを押すと、全部の文章が選択されるのですが・・・。

Mr.XRAY 2010-12-30 04:56:24 No: 39767

>普通に使用ができるんですが、CTTRL+Aだけは使用できず困っています。

キーイベントで，SelectAllを実行するのではダメでしょうか．

あ 2010-12-30 05:08:43 No: 39768

TActionListでも使いましょう。
ダブルクリックしてアクションを追加、ショートカットをControl+Aにして、
当該アクションにmemo1.selectallを書く。

助監督（仮名） 2010-12-30 05:41:08 No: 39769

えっ。「すべて選択」ならばもっと簡単ですよ。コードレス（笑）で出来ます。

TActionListは通常TMainMenuやTPopupMenuと組み合わせて使いますが、
メニュー無しの単体でも機能しますので使ってみてください。

TActionListを配置し、ダブルクリック、標準アクションの新規追加、TEditSelectAll。
あとはTMemoやTEditをお好みの数だけ配置してください。
これだけでOkです。

Dec1229 2010-12-30 06:37:05 No: 39770

Mr.XRAYさん、あさん

アクションリストを追加して以下で実現出来ました。

ありがとうございました。

procedure TForm1.Action1Execute(Sender: TObject);
begin
memo1.selectall;
end;

Dec1229 2010-12-30 07:16:52 No: 39771

助監督（仮名）さん、ありがとうございました。
結構簡単に出来て良かったです。