| 4978 |
|
|
| 4979 |
procedure TGikoForm.FormShortCut(var Msg: TWMKey; var Handled: Boolean); |
procedure TGikoForm.FormShortCut(var Msg: TWMKey; var Handled: Boolean); |
| 4980 |
var |
var |
| 4981 |
hComboEdit: THandle; |
handle: THandle; |
|
i : Integer; |
|
|
// KeyData: Integer; |
|
| 4982 |
begin |
begin |
| 4983 |
Handled := False; |
Handled := False; |
| 4984 |
//アドレスもしくは絞り込みコンボボックスもしくはお気に入りが編集中は |
//アドレスもしくは絞り込みコンボボックスもしくはお気に入りが編集中は |
| 4985 |
//ショートカットなどを無効にする |
//ショートカットなどを無効にする |
| 4986 |
if ((FavoriteTreeView.Visible) and (FavoriteTreeView.IsEditing)) then begin |
if ((FavoriteTreeView.Visible) and (FavoriteTreeView.IsEditing)) then begin |
| 4987 |
if Msg.CharCode in [VK_BACK] then begin |
if Msg.CharCode in [VK_BACK] then begin |
| 4988 |
hComboEdit := GetFocus; |
//BSが2回送られる不具合回避 |
| 4989 |
if hComboEdit <> 0 then |
if Msg.KeyData > 0 then begin |
| 4990 |
SendMessage(hComboEdit, WM_CHAR, Msg.CharCode, Msg.KeyData); |
handle := GetFocus; |
| 4991 |
Handled := True; |
if handle <> 0 then |
| 4992 |
|
SendMessage(handle, WM_CHAR, Msg.CharCode, Msg.KeyData); |
| 4993 |
|
Handled := True; |
| 4994 |
|
end; |
| 4995 |
|
end else |
| 4996 |
//お気に入りはESCで脱出したいので、それも送る |
//お気に入りはESCで脱出したいので、それも送る |
| 4997 |
end else if Msg.CharCode in [VK_INSERT, VK_DELETE, VK_HOME, VK_END, VK_PRIOR, VK_NEXT, VK_ESCAPE] then begin |
if Msg.CharCode in [VK_INSERT, VK_DELETE, VK_HOME, VK_END, VK_PRIOR, VK_NEXT, VK_ESCAPE] then begin |
| 4998 |
hComboEdit := GetFocus; |
handle := GetFocus; |
| 4999 |
if hComboEdit <> 0 then |
if handle <> 0 then |
| 5000 |
SendMessage(hComboEdit, WM_KEYDOWN, Msg.CharCode, Msg.KeyData); |
SendMessage(handle, WM_KEYDOWN, Msg.CharCode, Msg.KeyData); |
| 5001 |
Handled := True; |
Handled := True; |
| 5002 |
end; |
end; |
| 5003 |
end else if (AddressComboBox.Focused) or (SelectComboBox.Focused) then begin |
end else if (AddressComboBox.Focused) or (SelectComboBox.Focused) then begin |
| 5004 |
if Msg.CharCode in [VK_BACK] then begin |
if Msg.CharCode in [VK_BACK] then begin |
| 5005 |
hComboEdit := GetFocus; |
//BSが2回送られる不具合回避 |
| 5006 |
if hComboEdit <> 0 then |
if Msg.KeyData > 0 then begin |
| 5007 |
SendMessage(hComboEdit, WM_CHAR, Msg.CharCode, Msg.KeyData); |
handle := GetFocus; |
| 5008 |
Handled := True; |
if handle <> 0 then |
| 5009 |
|
SendMessage(handle, WM_CHAR, Msg.CharCode, Msg.KeyData); |
| 5010 |
|
Handled := True; |
| 5011 |
|
end; |
| 5012 |
end else if Msg.CharCode in [VK_INSERT, VK_DELETE, VK_HOME, VK_END, VK_PRIOR, VK_NEXT] then begin |
end else if Msg.CharCode in [VK_INSERT, VK_DELETE, VK_HOME, VK_END, VK_PRIOR, VK_NEXT] then begin |
| 5013 |
hComboEdit := GetFocus; |
handle := GetFocus; |
| 5014 |
if hComboEdit <> 0 then |
if handle <> 0 then |
| 5015 |
SendMessage(hComboEdit, WM_KEYDOWN, Msg.CharCode, Msg.KeyData); |
SendMessage(handle, WM_KEYDOWN, Msg.CharCode, Msg.KeyData); |
| 5016 |
Handled := True; |
Handled := True; |
| 5017 |
end; |
end; |
| 5018 |
end else begin |
end else begin |