學習紀錄

恩有分非同步的以及同步

非同步 版本

 TDialogService.InputQuery(
    'Input String',
    ['Enter Your First Name', 'Enter Your Family Name'],                                    //Label 
    ['First Name', 'Family Name'],                                                                        //textBox
    procedure(const AResult: TModalResult; const AValues: array of string)
    begin
      Memo1.Lines.Add('First Name = ' + AValues[0]);
      Memo1.Lines.Add('Family Name = ' + AValues[1]);
    end);
  Memo1.Lines.Add('Button1Click');

同步的版本

var
  Service: IFMXDialogServiceAsync;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXDialogServiceAsync, IInterface(Service)) then
  begin
    Service.InputQueryAsync('Input String', ['Enter Your Name'], ['Your Name'],
      procedure(const AResult: TModalResult; const AValues: array of string)
      begin
        Memo1.Lines.Add('Your Name = ' + AValues[0]);
      end);
  end;
  Memo1.Lines.Add('ButtonIFMXDialogServiceAsyncClick');

輸入完畢後

雖然說有所改變但是，在畫面風格上的編輯 目前我還找不到要去哪改。應該也是透過STYLEBOOK置換。這樣工程就很浩大了。

範例出處http://www.gesource.jp/weblog/?p=7382 

簡易來講還不如直接拿FRAME來做。搭配 TFloatAnimation的OnFinish

依樣能達到相同效果。如果你的專案是需要美化的話