Einzelnen Beitrag anzeigen

Benutzerbild von littleDave
littleDave

Registriert seit: 27. Apr 2006
Ort: München
556 Beiträge
 
Delphi 7 Professional
 
#2

Re: Windows Error Ton bei Programmstart

  Alt 13. Jul 2008, 18:18
Wenn ich ein Edit-Feld so "erweitere", dass mit einem Druck auf "Enter" der dazugehörige Button gedrückt wird, kommt normalerweise auch dieser Ton.
Ich regel das meistens über das OnKeyPress-Event, dann da kann ich das Beepen unterdrücken:
Delphi-Quellcode:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    Key := #0; // <---- "Beep" vermeiden
    Button1.Click;
  end;
end;
Jedoch höre ich das Beepen auch, wenn ich das Programm im Debuger laufen lasse, daher weiß ich nicht, ob dir das hilft.
Jabber: littleDave@jabber.org
in case of 1 is 0 do external raise while in public class of object array else repeat until 1 is 0
  Mit Zitat antworten Zitat