Звуковой сигнал при нажатии <ENTER>
procedure TForm1.EditKeyPress(Sender: TObject; var Key:Char); begin if Key = Chr(VK_RETURN) then beginPerform(WM_NEXTDLGCTL,0,0);key:= #0;end;end; |
procedure TForm1.EditKeyPress(Sender: TObject; var Key:Char); begin if Key = Chr(VK_RETURN) then beginPerform(WM_NEXTDLGCTL,0,0);key:= #0;end;end; |