Hallo!

markieren

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Key = vk_return) then
  Edit1.Text:='Return gedrückt');
end;

Wenn ich diesen Code benutze funktioniert soweit alles. Nur eines stört mich daran.
Sobald ich die Return-Taste drücke wird der "Standardton Warnsignal" abgespielt (Windows Sounds).
Kann man das unterbinden ohne die Windows Sounds ausschalten zu müssen?

markieren

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Key = vk_return) then
  begin
    Edit1.Text := 'Return gedrückt';
    Key := 0;
  end;
end;

edit: Delphi-Tags gesetzt

Wow! Ich bin beeindruckt. Eine Antwort in so kurzer Zeit!
Leider kommt der Ton aber immer noch.

Hi,

das war quatch was ic hier geschrieben habe das was dominikkv ist schon richtig ....

habe gedacht du meinst ne andere taste ..

MFG
geskill

dann mach das ganze im OnKeyPress:

markieren

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    Key := #0;
end;

Danke für die Hilfe!
Ich habe gerade rausgefunden, dass ich nichtmal irgendeinen Quelltext eingeben muss um das Phänomen zu erzeugen.
Es reicht bereits das Edit auf die Form zu ziehen, es anzuklicken und auf Enter zu drücken. Da kommt bereits der "Standardton Warnsignal".


Ah, das hier von dominikkv funktioniert. Dankeschön!

markieren

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    Key := #0;
end;