Einzelnen Beitrag anzeigen

Benutzerbild von devnull
devnull

Registriert seit: 5. Okt 2003
362 Beiträge
 
Delphi 7 Personal
 
#1

EditFeld - RETURNTASTE - Windows Sound ?

  Alt 29. Nov 2003, 11:20
Hi,

jedesmal wenn ich in einem LabeledEdit-Feld "RETURN" drücke, soll mein EingabeCursor in ein anderes Eingabe-Feld springen. Das klappt auch,
leider wird dabei jedesmal so ein Windows-Sound abgespielt.
Wie kann ich den im Programm deaktivieren ????????



Delphi-Quellcode:
procedure TOKBottomDlg.LE_f1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  // Abbrechen, falls Feld "F1:" leer ist
  if (length (LE_f1.Text) = 0) then begin
     LE_f1.SetFocus;
     exit;
  end;

  if (char(key) = char ($0D)) then begin
     BitBtn1Click(Self);
     LE_f2.Text := '';
     LE_f1.Text := '';
     LE_f2.SetFocus;
  end;
end;

devnull
-- Never change a running system --
  Mit Zitat antworten Zitat