|
|
|
|
Звуковой сигнал при нажатии <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;
|
|
|
|
|
|
 |
| |
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
|
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;
|
|
|
|
|
|