Delphi InputQuery

本文整理自网络，侵删。

 
本示例在表单上需要一个按钮和一个标签。单击按钮时，将显示输入框。如果选择“确定”，则在对话框的编辑框中显示的字符串将显示为表单上标签的标题。如果选择“取消”，对话框将关闭并且标签的标题保持不变。
var
  NewString: string;
  ClickedOK: Boolean;
begin
  NewString := 'Default String';
  ClickedOK := vcl.Dialogs.InputQuery('Input Box', 'Prompt', NewString);
  if ClickedOK then            { NewString contains new input string. }
    Caption := NewString;
 

相关阅读 >>

Delphi中关于时间差的实例

Delphi idftp连接

Delphi getdir 获取指定驱动器的当前路径名

Delphi hextoint

Delphi修改资源文件的代码

Delphi 使用shellexecuteex运行应用程序并等待完成

Delphi idpop3收邮件

Delphi中让图片大小随timage控件大小变化

xe7提示找不到sharedactivitycontext函数

Delphi 在桌面上画图

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi InputQuery