[Electronic_Arts]

Как отключить этот мерский звук которая звучит при использовании этого кода.

Код:

if key=vk_return then
begin
{код}
end;

Нажимаешь ЕНТЕР вроде все правильно - но звук все равно звучит как будто ты ввел не тот пароль (Стантартный звук винды)

[lmikle]

Из "живого" проекта:

Код:

procedure TMainForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  If Key = #13 Then
    If (ActiveControl <> edValues) Then
      Begin
        Key := #0;
        SelectNext(ActiveControl,True,True);
      End;
end;

И ничего не пищит...

[Electronic_Arts]

Cпасиибоооо работает....ура