Советы по Delphi

       

Звуковой сигнал при нажатии <ENTER>


procedure TForm1.EditKeyPress(Sender: TObject; var Key:Char);
begin
if
Key = Chr(VK_RETURN) then
begin
Perform(WM_NEXTDLGCTL,0,0);key:= #0;end;end;
[000137]


Содержание раздела