Hallo liebe
DP-Gemeinde,
ich habe hier in der Code-Library folgenden Code zum unterdrücken des typischen Windows-Beep beim OnKeyDown Event gefunden:
Delphi-Quellcode:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
mgsTemp: TMsg;
begin
if Key = VK_RETURN then
begin
PeekMessage(mgsTemp, 0, WM_CHAR, WM_CHAR, PM_REMOVE);
end;
end;
Meine Frage wäre nun, wie ich das vielleicht global setzen kann? Ich habe derzeit eine Anwendung mit hunderten von TEdits, und würde gerne den o.g. Code für alle TEdit setzen.
Ist das möglich? Wenn ja: wie genau?
Vielen Dank schonmal für Eure Hilfe.