VPF::Ctrl+Пробел в TMemo - Форум программистов

Akella

Дата 12.1.2005, 16:30 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

есть такой код в событии OnKeyDown компоненты TMemo

Код


  if (ssCtrl in Shift) and (key = vk_back) then begin

при нажатии должна появляться всплывающая форма, но в добавок к этому в TMemo добавляется пробел. Как избежать появления пробела?

такое не кататит

Код


  if (ssCtrl in Shift) and (key = vk_back) then begin
  key:=0;

перенос кода в событие нажатия кнопки формы не помогает

Это сообщение отредактировал(а) dsergey - 12.1.2005, 16:31

Snowy

Дата 12.1.2005, 17:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Круто! И правда не работает.
Я тоже пробовал извращаться по всякому. Ну тада так:

Код


var
  flag: boolean=false;

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssCtrl in Shift) and (key = vk_back) then begin
    // что-то
    flag:=true;
  end;
end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if flag then begin
    Key:=#0; flag:=false;
  end;
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »