안드로이드 용 델파이 XE6에서 INputquery 전에 INFOR 폼을 어떻게 표시 할 수 있습니까?

Question

InputQUery 전에 2 초 동안 INFO 폼을 보여주고 싶습니다. 하지만 작동하지 않습니다. 아무도 왜 그런 말을 할 수 있고 이것을 만들기 위해 무엇을해야합니까? 단추를 클릭하면 Button2Click이 시작됩니다.

procedure TForm1.Button2Click(Sender: TObject); 
var 
    Tasktest: string; 
begin 
    try 
    DisplayMyForm(Sender,MPiFolge[1] ,'Bitte geben Sie den Meßpunkt '+MPlongName[MPFolge[1]]+'  ein!'); 
    except 
    ShowMessage('test'); 
    end; 

end; 

(* This following procedure does not show the INFOFORM before the InputQuery 

procedure TForm1.Button2Click(Sender: TObject); 
var 
    Tasktest: string; 
begin 
    try 
    DisplayMyForm(Sender,MPiFolge[1] ,'Bitte geben Sie den Meßpunkt '+MPlongName[MPFolge[1]]+' ein!'); 
    if InputQuery('TEST', 'Test', Tasktest) and (Tasktest.Trim <> '') then 
    begin 
    ShowMessage(' TEST'); 
    end; 


    except 
    ShowMessage('test'); 
    end; 

end; 
*) 

procedure TForm1.DisplayMyForm(Sender: TObject; MPNUmmer: integer; MsgText: string); 
begin 
    //dlg := TFrmDisplayMPIN.Create(nil); 
    Form1.Visible:=false; 
    FrmDisplayMPIN.timer1.Enabled:=True; 
    FrmDisplayMPIN.Caption:='Lokalisierung der Meßpunkte - Meßpunkteingabe für Meßpunkt: '+IntToStr(MPNummer); 
    FrmDisplayMPIN.MsgTextLabel.text := MsgText; 
    FrmDisplayMPIN.Show; 
    //setfocused(FrmDisplayMPIN.Panel1); 

end; 

Answer 1

나는 Application.ProcessMessages; 이제 작동합니다.