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

解決

Dec1229  2010-12-29 13:39:20  No: 39764  IP: 192.*.*.*

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

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

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

編集 削除
Mr.XRAY  2010-12-29 17:32:29  No: 39765  IP: 192.*.*.*

こんにちは．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-29 18:42:25  No: 39766  IP: 192.*.*.*

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

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

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

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

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

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

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

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

編集 削除
Mr.XRAY  2010-12-29 19:56:24  No: 39767  IP: 192.*.*.*

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

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

編集 削除
あ  2010-12-29 20:08:43  No: 39768  IP: 192.*.*.*

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

http://www.geocities.co.jp/SiliconValley-SanJose/2560/delphi4/vcl/ActionList.htm

編集 削除
助監督（仮名）  2010-12-29 20:41:08  No: 39769  IP: 192.*.*.*

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

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

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

編集 削除
Dec1229  2010-12-29 21:37:05  No: 39770  IP: 192.*.*.*

Mr.XRAYさん、あ  さん

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

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

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

編集 削除
Dec1229  2010-12-29 22:16:52  No: 39771  IP: 192.*.*.*

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

編集 削除