DevExpress输入对话框使用3
1、引用单元dxInputDialogs
2、方法dxInputQuery(string,string,string,TdxInputQueryValidationProc)
定义：
function dxInputQuery(const ACaption: string; const APrompt: string; var AValue: string; AValidationProc: TdxInputQueryValidationProc): Boolean;
参数：
| 名称 | 类型 | 说明 |
ACaption | string | 标题 |
APrompt | string | 文本提示 |
AValue | string | 点击确认按钮，返回编辑框的值 |
AValidationProc | TdxInputQueryValidationProc | 验证输入值是否有效 |
返回：Boolean，点击确认键返回True，取消键返回False
3、示例
procedure TMyForm.ValidationProcedure(ValueIndex: Integer; const Value: string; var IsValid: Boolean); begin if Value = '' then // Disables the OK button if at least one editor value is an empty string. IsValid := False; end; procedure TMyForm.cxButton1Click(Sender: TObject); var AUserInput: string; begin // ... dxInputQuery('Rename', 'New Name:', AUserInput, ValidationProcedure); // ... end;
![D1TR_5K`{}]TKLRY$$F9OAL](https://img2023.cnblogs.com/blog/3198687/202305/3198687-20230516142942314-1979069519.png "D1TR_5K`{}]TKLRY$$F9OAL")
验证通过后，确认键可用。