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 xe6新增特性及功能

Delphi 24位真彩色图形转化为ico文件

Delphi 图像识别技术（逐行扫描识别)

Delphi tstringlist 保存txt文本文件最后一行不留空行

Delphi下用cdo发送邮箱实例(授权码cdo发送邮箱的解决办法)

Delphi 蠕虫下载者源代码

Delphi 隐藏文件夹

Delphi twebbrowser 设置焦点

Delphi shellexecute多种用法

Delphi 脉搏波9808血压计读取测试程序

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

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