delphi如何弹出一个提示窗口

2024-12-23 12:55:19
推荐回答(5个)
回答1:

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

回答2:

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

回答3:

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

回答4:

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

回答5:

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