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

procedure TForm1.EditKeyPress(Sender: TObject; var Key:Char);
begin
ifthen

begin
Perform(WM_NEXTDLGCTL,0,0);
key:= #0;
end;
end;

 
« Предыдущая статья   Следующая статья »