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 xe 编译开关-一套代码不同平台编译

Delphi unicode转中文编码

Delphi label设置为背景透明

Delphi实现类似android锁屏的密码锁控件

Delphi 关于注释

Delphi 隐藏任务栏程序，取消自动对齐和网格对齐

Delphi 利用for循环自我复制到全盘用timer监控

Delphi 获取文件crc和md5

Delphi 屏幕截图完美解决方案

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

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