delphi 程序写完了 那个消息提示框有的没显示在最前面是怎么回事啊

追问：
showmessage('样本不存在请重新输入');  
   我想问的是  这个提示怎么没显示在最前面  是不是在 form 中的哪个控件搞错了，

答案：你尝试一下 messagebox 这个函数来提示消息看看情况！

其他：1 C   
2 C
3 B 例子:X-Y     -A(负A)
4 A
5 B
6 A
7 D
8 A
9 B
10 C
11 A   OnCreate事件是在窗口创建时运行
二 
1.选中状态 DELETE
2.Pascal
3.and  or
4.if   case
5.default值设置为TRUE
6.INTEGER(整数型),STRING(字符型,按字母顺序排列),enumerated(枚举型),subrange(子界型)
三
1.procedure TForm1.Button1Click(Sender: TObject);
var
  i1,i2,i3,imin:integer;     //i1是第一个数,i2是第二个数,i3是第三个数,imin是比较后的较小数
begin
  i1:=strtoint(edit1.text);  //edit1为输入第一个数的文本框
  i2:=strtoint(edit2.text);  //edit2为输入第二个数的文本框
  i3:=strtoint(edit3.text);  //edit3为输入第三个数的文本框
  if i1>i2 then imin:=i2     //i1和i2相比,较小的值赋值给imin
  else imin:=i1;
  if i3>imin then ;          //imin和i3相比,较小的值赋值给imin
  else imin:=i3;
  edit4.Text:=inttostr(imin);//把最小数的值在文本框edit4中输出
end;


2.这个问题很尴尬,因为现在用的都是ADO控件连接数据库,BDE的连接方式因为连接方式烦琐,功能不如ADO控件强大而没落了,所以我不会...我不想蒙你. 
procedure TForm1.FormCreate(Sender: TObject);
begin
  dbgrid1.DataSource:=DataSource1;
  DataSource1.DataSet:=Table;
  table1.Close;
  table1.DatabaseName:='数据库文件路径';
  table1.TableName:='数据库文件名';  //根据题目这里应该填cj
  table1.Open;
end;
这段程序你最好测试一下,我不能确定是否正确,因为没有这样的数据库给我测试. 1.是否使用了皮肤组件？
2.是否还有其他的操作，消息传递等

上一个：HTML页面和JSP页面的如何数据交互？会写简单的程序，如用户名和密码的传送
下一个：Delphi开发的程序怎样调试报表