如何在Delphi的INputquery XE6中显示INFOR表单

Question

我想在InputQUery之前显示一个信息表单2秒。但不起作用。有人能说出为什么和怎么做才能做到这一点吗？点击按钮时，Button2Clickís就会被触发。

 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，现在它起作用了。