Question

delphi如何弹出一个提示窗口

我想添加一个Button控件，当点击Button按钮时，弹出“请输入”提示，怎么写？应该很简单
delphi里新建两个控件Edit和Button，当Edit里没输入内容时点击按钮，提示“输入”的信息提示，否则不提示，怎么写？

Answer 1

仅仅是提示，则ShowMessage( '请输入' )，或者MessageBox( Handle, '请输入', '提示', MB_OK )
如果马上要求输入，则调用QueryBox，自己查查它的帮助吧。

Answer 2

弹出“请输入”提示?然後呢，在提示窗口输入？

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
InputBox('提示','请输入','');
end;

追问

可不可以点击了Button按钮了之后，弹出提示“请输入”，然后点个确定，提示就关掉了？

追答

这个就是点击BUTTON之后弹出的提示啊.

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.text ='' then
begin
Showmessages('请输入！');
end;
end;

Answer 5

if edit1.text ='' then
begin
Showmessages('请输入！');
end;