Восстановление работы сочетаний клавиш Cut, Copy и Paste в немодальных формах в Delphi

Delphi , Программа и Интерфейс , Модальные формы

Возникла проблема с работой сочетаний клавиш Cut, Copy и Paste в немодальных формах в Delphi. При открытии такой формы эти сочетания перестают работать, хотя должны работать, если форма активна. Как решить эту проблему и восстановить работу сочетаний клавиш в немодальных формах?

Подтвержденный ответ:

Эта проблема связана с ограничениями в работе компонентов Action в Delphi. Стандартные действия Cut, Copy и Paste предназначены для работы только с компонентами TCustomEdit, но не с другими типами edit-контролов, такими как TComboBox, TFindDialog или TElTreeInplaceEdit. Из-за этого сочетания клавиш перестают работать в некоторых случаях.

Чтобы восстановить работу сочетаний клавиш в немодальных формах, можно использовать обработчики событий OnExecute для стандартных действий Cut, Copy и Paste. Например, для Paste:

procedure TMainForm.EditPaste1Execute(Sender: TObject);
var
  FocusWnd: HWND;
begin
  FocusWnd := GetFocus;
  if IsWindow(FocusWnd) then
    SendMessage(FocusWnd, WM_PASTE, 0, 0);
end;

Аналогичные обработчики можно создать для Cut и Copy, используя сообщения WM_CUT и WM_COPY соответственно.

Также следует добавить обработчик события Update для ActionList, чтобы правильно включать и выключать соответствующие команды меню для всех edit-контролов:

procedure TForm1.ActionList1Update(Action: TBasicAction; var Handled: Boolean);
begin
  // ...
  EditCut1.Enabled := IsEditCtrl and HasSelection and not IsReadOnly;
  EditCopy1.Enabled := IsEditCtrl and HasSelection;
  // ...
end;

Эти изменения позволят восстановить работу сочетаний клавиш Cut, Copy и Paste в немодальных формах в Delphi.

Альтернативный ответ:

Другой способ решить проблему - использовать функцию IsShortcut, чтобы активный компонент получал первый шанс обработать сочетание клавиш. Вот пример кода, основанный на ответе Peter Below:

public
Function IsShortcut( var Message: TWMKey): Boolean; override;

Function TMyform.IsShortcut( var Message: TWMKey): Boolean;
Var
  ctrl: TWinControl;
  comp: TComponent;
  i: Integer;
Begin
  ctrl := ActiveControl;
  If ctrl <> Nil Then Begin
    Repeat
      ctrl := ctrl.Parent
    Until (ctrl = nil) or (ctrl Is TControl);
    If ctrl <> nil Then Begin
      For i:= 0 To ctrl.componentcount-1 Do Begin
        comp:= ctrl.Components[i];
        If comp Is TCustomActionList Then Begin
          result := TCustomActionList(comp).IsShortcut( message );
          If result Then
            Exit;
        End;
      End;
    End;
  End;
End;

Этот код нужно добавить в форму, где возникает проблема. Он должен восстановить работу сочетаний клавиш Cut, Copy и Paste в немодальных формах в Delphi.

В обоих ответах важно правильно обработать сообщения WM_CUT, WM_COPY и WM_PASTE, а также правильно включить и выключить команды меню в зависимости от активного edit-контрола. Эти меры позволят восстановить правильную работу сочетаний клавиш в немодальных формах.

Создано по материалам из источника по ссылке.

Проблема связана с тем, что в Delphi стандартные действия Cut, Copy и Paste не работают с некоторыми типами edit-контролов, такими как TComboBox, TFindDialog или TElTreeInplaceEdit, в немодальных формах. Чтобы решить эту проблему, можно использовать обраб

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Модальные формы ::