All Forums
 Категория Visio
 Форум Вопросы и ответы
 События клавиатуры
Author Previous Topic Topic Next Topic  

Ven

28 Posts
Posted - 06/01/2006 :  17:23:27
Еще такой вопросик. А как вообще отрубить нафиг обработку клавиатуры?
Я во всех 3 событиях клавиатуры запрещаю стандартные действия:
procedure TfrmMain.VisioDrawingControlKeyDown(ASender: TObject; KeyCode, KeyButtonState: Integer; var CancelDefault: WordBool);
begin
CancelDefault:= true;
end;

procedure TfrmMain.VisioDrawingControlKeyUp(ASender: TObject; KeyCode,
KeyButtonState: Integer; var CancelDefault: WordBool);
begin
CancelDefault:= true;
end;

procedure TfrmMain.VisioDrawingControlKeyPress(ASender: TObject;
KeyAscii: Integer; var CancelDefault: WordBool);
begin
CancelDefault:= true;
end;

Это срабатывает если нажимаю стрелки и прочие простые комбинации. Но если я нажимаю DELETE, то шейп спокойно удаляется и чхать он хотел на мои запреты. Та же ситуация с Ctrl+G (и скорее всего со всеми стандартными комбинациями) шейпы спокойно объеденяются в группу и все им по барабану :(
  Previous Topic Topic Next Topic  
Данный сайт является архивом форума visio.artberg.ru, который был закрыт в связи с переходом на новую платформу visio.getbb.ru
Все материалы доступны только для чтения! Если у вас появились вопросы, или вы хотите что-то обсудить, связанное с Visio, обращайтесь на новый форум!
Архив был создан благодаря совместным усилиям Генадия Туманова @Tumanov (visio.artberg.ru), Александра ака @Surrogate (visio.getbb.ru), и Николая Белых @nbelyh (unmanagedvisio.com)