Impedir KeyPreview form con TCustomcontrol

[Edgtho]

Me autorespondo.....

Tres dias buscando y cinco minutos despues de escribir el post lo descubro.... si eso lo pongo antes

procedure CMDialogKey(var Message: TCMDialogKey); message CM_DIALOGKEY;


procedure CMDialogKey(var Message: TCMDialogKey);
begin
  with Message do
    if  (((CharCode = VK_RETURN) and FFocused)) and
      (KeyDataToShiftState(Message.KeyData) = []) and CanFocus then
    begin
      Click;
      Result := 1;
    end else
      inherited;
end;