[Помидоркин]

Есть форма, которая открывается в модальном режиме. В модальной форме (FrmGroup) ничего интересного не происходит, все что нужно реализовано в главной форме.

Код:

procedure TForm1.btnGroupClick(Sender: TObject);
var i, ti: Word;
begin
 FrmGroup.ShowModal;
 //bla bla bla
     case FrmGroup.ModalResult of
        mrAbort : PL.RemoveGrp(i);
        mrYes : PL.AddGrp(i, FrmGroup.ComboBox1.Text);
     end; 
//bla bla bla 
end; 

У модальной формы есть кнопка с ModalResult:= mrYes; у нее нет обработчика (он там не нужен), форма просто закрывается с соответствующим ModalResult, как по нажатию Enter воспроизвести нажатие на кнопку? btnOk.SetFocus не предлагать, фокус должен быть на комбобоксе.

Код:

procedure TFrmGroup.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then btnOkClick(Self);
end;

- это бессмыслица

Код:

procedure TFrmGroup.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then
 begin
  ModalResult:= mrYes;
  Close;
 end;
end;

или

Код:

procedure TFrmGroup.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then
 begin
  ModalResult:= mrYes;
  Hide;
 end;
end;

- не работает

[lmikle]

1. У формы KeyPreview = True
2. У формы OnKeyPress:

Код:

procedure TFrmGroup.FormKeyPress(Sender : TObject; var Key : Char);
begin
  If Key = #13 Then
    Begin
      Key := #0;
      ModalResult := mrYes;
    End;
end;