Блог

У меня есть форма, которая будет отображаться модально только со списком. Я хочу иметь возможность возвращать модальный результат mrOK при двойном щелчке элемента в списке или модальный результат mrCancel, когда пользователь нажимает escape.

Когда в форме нет кнопки для назначения модального ответа, как я могу эмулировать это?

На самом деле это очень просто: просто установите свойство формы ModalResult :

Используйте ModalResult, чтобы закрыть форму, когда она отображается модально.

По умолчанию ModalResult равен mrNone . Установите для ModalResult любое ненулевое значение, чтобы закрыть форму. Значение, присвоенное ModalResult, становится возвращаемым значением вызова функции ShowModal, используемой для отображения формы.

В вашем случае,

 procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
  if ListBox1.ItemIndex <> -1 then
    ModalResult := mrOk;
end;

procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_RETURN:
      if ListBox1.ItemIndex <> -1 then
        ModalResult := mrOk;
    VK_ESCAPE:
      ModalResult := mrCancel;
  end;
end;