点击按钮,让主板发声
第一个尝试:
procedure TForm1.Button1Click(Sender: TObject);
begin
beep;
end;
编译通过,但没声音第二个尝试:
procedure TForm1.Button1Click(Sender: TObject);
begin
beep();//加了括号
end;
编译通过,但没声音第三个尝试:
procedure TForm1.Button1Click(Sender: TObject);
begin
beep(100,456);
end;
编译未通过;请指教