Delphi 中,if 后面如果想弹出提示框(如显示if then else语句),该按哪个键?大神们帮帮忙

如题所述

第1个回答  2014-08-05
不知道你在说什么,不过给你个简单的例子 var MesResult:Integer; begin MesResult:=MessageBox(handle,PChar('是否重新生成订单?'+ #13 + '是,重新生成全部(删除旧的)' + #13 + '否,只生成没有的订单' + #13 + '取消,取消操作'),'系统提示',MB_YESNOCANCEL Or MB_ICONQUESTION); if(MesResult=idCANCEL) then Exit; else if(MesResult=idYes) then //-- else //--
第2个回答  2014-08-04
提问太模糊,如果想弹出提示框可用showmessage(’提示内容’);本回答被提问者采纳

delphi怎么跳出if语句
','提示!',MB_OK) ;end elsebegin \/\/( 这个地方你掉了一个 begin ) n := n-1; if (n<1) then begin \/\/ 这里的 begin .. end 是内面一层的 end; end; \/\/( 在这里结束 那个 else begin ... )begin 与 end 是配对的,就像 { } 花括号一样...

在delphi中如何使用if else
if <逻辑表达式> then <语句1>;if <逻辑表达式> then <语句1> else <语句2> ;if <逻辑表达式> then begin <语句块1> end;if <逻辑表达式> then begin <语句块1> end else begin <语句块2> end 就是当逻辑表达式的值为真时,执行语句1或语句块1(内中可有若干语句);当逻辑表达式的...

delphi if 用法
if 1=1 then begin\/\/这里写执行语句 end;2、IF..ELSE if 1=1 then begin ...end \/\/记住这里不能加分号。else begin ...end; \/\/这里需要加分号 3、IF...ELSE IF..if 1=1 then begin ...end \/\/记住这里不能加分号。else IF 1=2 THEN begin ...end; \/\/这里需要加分号。

如何用delphi编一个点击按钮后弹出的对话框,比如welcom等
1、ShowMessage('Welcome'); \/\/这个是弹出一个提示框 2、if MessageDlg('你确定要退出吗?',mtInformation,[mbyes,mbno],0) = mryes then ShowMessage('确定退出')else ShowMessage('不退出'); \/\/这个是询问框

delphi中退出是弹出让你确定的几种确定对话框怎么写?
1、打开Delphi7集成开发环境,在默认工程的Form1窗体放一个Button1按钮,一个Edit1编辑框。2、在Unit1.pas源代码文件的interface部分定义一个类,代码如下。3、在属性上按CTRL+Shift+C会生成对应的方法,在SetName和SetScore分别写如下代码。4、双击Button1进入事件方法,写如下代码。5、最后F9运行程序,...

delphi中 if 跟else语句执行
应该是 if not sEmpty then 吧?另外 sql.text:='select kucunliang from kucun where yaopinhao='+Quotedstr(Edit1.Text)+' and kucunliang<'+QuotedStr(Edit2.Text);是否应该是 sql.text:='select kucunliang from kucun where yaopinhao='+Quotedstr(Edit1.Text)+' and kucunliang>' ...

delphi7中IF ELSE语句
我详细讲一下delphi里的 IF 语句吧 首先 Delphi 里 Begin end; 是 c++里的{},就是将 begin~ end; 里的内容视为一个团,满足条件是会执行 begin end 内的内容 若只需执行一行代码 begin end 可以省略。好了接下来 1. IF(条件)then (执行内容);2. IF (条件) then begin (执行...

delphi中if...then...else..代码如下问题!
if edt1.modified=False thenshowmessage('您怎么能什么都不输入呢?睡着了吗?')elsebeginForm2.Show ;Form1.hide ;end;

delphi 7 怎么用if else 语句
if (StrToInt(edt1.Text)=20) or (StrToInt(edt1.Text)=22) or (StrToInt(edt1.Text)=23) or (StrToInt(edt1.Text)=24) then 稍微聪明点的办法:if (StrToInt(edt1.Text)>=20) and (StrToInt(edt1.Text)<=24) and (StrToInt(edt1.Text)!=21) then 最好的办法:if StrToInt(edt1....

delphi中if then else语句怎么写。举个最简单的例子
if 条件表达式 then 语句1 else 语句2;if a>b then begin Showmessage('a比b大');showmessage('haha');end \/\/不能带分号 else begin Showmessage('b比a大');showmessage('hahaha');end;\/\/带分号

相似回答