点击Button1时弹出以上对话框并带提示音 对话框是双向选择
以下是程序form1是主程序，再新建一个form2在unit1中 File-?use unit ?unit2
在Button1.click事件中写入以下程序：
procedure TForm1.Button1Click(Sender: TObject); begin if
messagedlg('
是
否
要
把
用
户
写
入
库
中
',mtconfirmation,[mbyes,mbno],0)=mryes then begin
messagebox(handle,'添加成功','信息（i）',64); form2.Show; end; end;
该程序的意思是弹出双向选择的对话框中 如果点击yes则弹出添加成功对话框，点击确定后form2显示，如果点击no则不作出任何反应
说明：除了问号提示符没有声音提示，其他的符号都有提示音的 伴随符号而改变的
以下的程序类似可以尝试：
procedure TForm1.Button1Click(Sender: TObject); begin
messagebox(handle,'添加成功','提示',64); end;
procedure TForm1.Button1Click(Sender: TObject); begin
messagebox(handle,'添加成功','停止',16); end; 或者
procedure TForm1.Button1Click(Sender: TObject); begin
messagebox(handle,'lpt1错误','错误',mb_iconerror);
end;..
procedure TForm1.Button1Click(Sender: TObject); begin
messagebox(handle,'添加成功','poopp',32); end;
16;32;48;64;这是几个特殊的数字
以下讲述ADO连接数据库查询（ADO连接的数据库可以独立于Delphi的开发环境和数据库运行环境）下面是用Delphi7.0和access2003来讲述该功能的：
1. file---?new----?other---?data module….如下图所示
2. 点击ok后
3.
4. 向DataModule中添加ADOConnection1和ADOQuery1 5. 如图所示