Question

我想在InputQUery之前显示一个INFO表单2秒。但它不起作用。任何人都可以说为什么以及如何做到这一点？单击按钮时，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;现在它有效。

如何在Delphi XE6 for Android中的INputquery之前显示INFOR表单

1 个答案: