VPF::Ctrl и символы? - Форум программистов

WaReZMEN

Дата 29.5.2008, 12:35 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3

Вообщем мне нужно чтоб когда когда активен элемент StringGrid я зажимаю Ctrl и хочу нажать на "+", "/", "*" или цыфры в TEdit добовлялся нажатый символ. Как это сделать? вся проблема в том что CTRL должен быть зажатым...

pseud

Дата 29.5.2008, 17:55 (ссылка)

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

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

Код


procedure TForm1.StringGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  c: Char;
begin
  if (ssCtrl in Shift) then
  begin
    case Key of
      VK_NUMPAD0: c := '0';
      VK_NUMPAD1: c := '1';
      VK_NUMPAD2: c := '2';
      VK_NUMPAD3: c := '3';
      VK_NUMPAD4: c := '4';
      VK_NUMPAD5: c := '5';
      VK_NUMPAD6: c := '6';
      VK_NUMPAD7: c := '7';
      VK_NUMPAD8: c := '8';
      VK_NUMPAD9: c := '9';
      VK_MULTIPLY: c := '*';
      VK_ADD: c := '+';
      VK_SEPARATOR: c := ThousandSeparator;
      VK_SUBTRACT: c := '-';
      VK_DECIMAL: c := DecimalSeparator;
      VK_DIVIDE: c := '/'
      else
        c := #0;
    end;
    Edit1.Text := Edit1.Text + c;
  end;
end;

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

WaReZMEN

Дата 30.5.2008, 00:08 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3

pseud, Спасибо огромное!!!!

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