Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 7801 |
//キー入力すべて |
//キー入力すべて |
| 7802 |
WM_KEYFIRST..WM_KEYLAST : |
WM_KEYFIRST..WM_KEYLAST : |
| 7803 |
begin |
begin |
| 7804 |
wmMsg.Msg := Msg.message; |
//キーアップは無視する KeyDownと合わせて2回呼ばれるから |
| 7805 |
wmMsg.CharCode := Word(Msg.wParam); |
if Msg.message <> WM_KEYUP then begin |
| 7806 |
wmMsg.KeyData := Msg.lParam; |
wmMsg.Msg := Msg.message; |
| 7807 |
//フォームのショートカットの処理に転送 |
wmMsg.CharCode := Word(Msg.wParam); |
| 7808 |
Self.OnShortCut(wmMsg, Handled); |
wmMsg.KeyData := Msg.lParam; |
| 7809 |
|
//フォームのショートカットの処理に転送 |
| 7810 |
|
Self.OnShortCut(wmMsg, Handled); |
| 7811 |
|
end; |
| 7812 |
end; |
end; |
| 7813 |
end; |
end; |
| 7814 |
end; |
end; |
|
|
Legend:
| Removed from v.1.545 |
|
| changed lines |
| |
Added in v.1.546 |
|
|
|