Ctrl+A в Memo

← →
heady (2005-05-19 11:06) [0]

Hi, All! не подскажите как разрешить комбинацию Ctrl+A (как "Выделить все" только с клавиватуры) в Memo? Зарание благодарен.

← →
ANB © (2005-05-19 11:07) [1]

OnKeyPress

with (Sender as TMemo) do begin
case Key of
// Ctrl_A
#1 : begin
SelectAll;
Key := #0;
end;

← →
КиТаЯц © (2005-05-19 11:12) [2]

По простецки:

1. Кидаеш на форму tActionList
2. Добавляеш (NewStandartAction) tSelectAll
3. привинчиваеш HotKey = Ctrl+A

← →
heady (2005-05-19 11:18) [3]

ANB
то что надо! СПАСИБО!