Здравствуйте, Aniskin, Вы писали:
A>Здравствуйте, Utruk, Вы писали:
U>>Как такое сделать и возможно ли вообще?
A>Попробуй так:
A>procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
A>var R: Integer;
A>begin
A> if Key <> VK_RETURN then Exit;
A> if Assigned(ActiveControl) then
A> begin
A> R := ActiveControl.Perform(WM_GETDLGCODE, 0, 0);
A> if (R and DLGC_WANTALLKEYS = DLGC_WANTALLKEYS) or (R and DLGC_BUTTON = DLGC_BUTTON) then Exit;
A> end;
A> // Твой код
A>end;
A>
A>Form.KeyPreview := True;
Попробую. Вопрос только в том что WM_GETDLGCODE не даёт информации обрабатывает контрол конкретно эту клавишу.
