Notice
Recent Posts
Recent Comments
Link
일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | 3 | 4 | 5 | 6 | 7 |
8 | 9 | 10 | 11 | 12 | 13 | 14 |
15 | 16 | 17 | 18 | 19 | 20 | 21 |
22 | 23 | 24 | 25 | 26 | 27 | 28 |
29 | 30 |
Tags
- window
- JavaScript
- tomcat
- table
- hadoop
- IntelliJ
- Express
- 보조정렬
- Spring
- R
- Python
- mapreduce
- MSSQL
- GIT
- plugin
- SPC
- NPM
- SQL
- Eclipse
- mybatis
- 공정능력
- xPlatform
- SSL
- Sqoop
- Java
- Kotlin
- es6
- vaadin
- Android
- react
Archives
- Today
- Total
DBILITY
FMX InputQueryAsync 본문
반응형
InputQuery depreciated....
usess FMX.Platform; procedure TForm1.Button1Click(Sender: TObject); var TaskName: string; AsyncService: IFMXDialogServiceAsync; begin try // InputQuery('작업을 입력하세요', ['작업관리'], [''], // procedure(const AResult: TModalResult; const AValues: array of string) // begin // if AResult = mrOk then // TaskName := AValues[0] // else // TaskName := ''; // // if not(TaskName.Trim = '') then // begin // FDQueryInsert.ParamByName('TASKNAME').AsString := TaskName; // FDQueryInsert.ExecSQL; // FDTable1.Refresh; // LinkFillControlToField1.BindList.FillList; // end; // // end); if TPlatformServices.Current.SupportsPlatformService(IFMXDialogServiceAsync, IInterface(AsyncService)) then begin AsyncService.InputQueryAsync('작업을 입력하세요', ['작업관리'], [''], procedure(const AResult: TModalResult; const AValues: array of string) begin if AResult = mrOk then TaskName := AValues[0] else TaskName := ''; if not(TaskName.Trim = '') then begin FDQueryInsert.ParamByName('TASKNAME').AsString := TaskName; FDQueryInsert.ExecSQL; FDTable1.Refresh; LinkFillControlToField1.BindList.FillList; end; end); end; except on E: Exception do ShowMessage(E.Message); end; end;
반응형
'delphi' 카테고리의 다른 글
FMX 로또번호 생성기 (0) | 2019.07.23 |
---|---|
FMX 기기정보 (0) | 2019.07.05 |
ToYcon (0) | 2019.06.29 |
SILK ICONS (0) | 2019.06.29 |
Comments