仅仅是提示,则ShowMessage( '请输入' ),或者MessageBox( Handle, '请输入', '提示', MB_OK )
如果马上要求输入,则调用QueryBox,自己查查它的帮助吧。
弹出“请输入”提示?然後呢,在提示窗口输入?
procedure TForm1.Button1Click(Sender: TObject);
begin
InputBox('提示','请输入','');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.text ='' then
begin
Showmessages('请输入!');
end;
end;
if edit1.text ='' then
begin
Showmessages('请输入!');
end;