Советы по 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]



Содержание    Вперед