ShowModal und Show in Firemonkey Android App

[wschrabi]

Danke. Hier mein Vorschlag, der nicht funkt.
Wenn man von einem Button_ON die ON routine aufruft, wird das Image angezeigt. MIt Button_Off und die OFF routine aufruft wird das Image nicht angezeigt und die Labels darunter wieder sichtbar.

DOch wenn man Nachfolgend eine InputQuery hat klappt das nicht. Was kann ich machen, damit das Bild vor EIngabe der Messpunkte angezeigt wird?

Delphi-Quellcode:

    for i := 1 to 15 do
      begin 
      TaskMP:='';
       ShowMPINfo_on(MPiFolge[i] ,MPlongName[MPFolge[i]]);
       ShowMPINfo_off(MPiFolge[i] ,MPlongName[MPFolge[i]]);
       
       if InputQuery('Bitte Meßdaten vom '+MPlongName[MPFolge[i]]+' eingeben', MPlongName[MPFolge[i]]+' [mm] z.B.: 7,5', TaskMP) and (TaskMP.Trim <> '') then
         begin
         Lipo9Satz.lipo[MPiFolge[i],1]:=StrToFloat(TaskMP);
         end
       else
         begin
         raise Exception.Create('Benutzerabbruch!');
         end;
      
      end;

und hier die ON und OFF routinen.

Delphi-Quellcode:

procedure TFOrm1.ShowMPINFO_ON ( MPNUM: integer; MPName: string);
begin
     Label1.Visible:=false;
     Label2.Visible:=false;
     ListView1.Visible:=False;
     
     Label15.Visible:=false;
     Label16.Visible:=false;
     Label17.Visible:=false;
     Label18.Visible:=false;
     Label19.Visible:=false;
     Label20.Visible:=false;
     Label21.Visible:=false;
     Label22.Visible:=false;
     Label23.Visible:=false;
     Label24.Visible:=false;
     Label25.Visible:=false;
     Label26.Visible:=false;
     Label27.Visible:=false;
     Label28.Visible:=false;
     Label29.Visible:=false;
     
     ImageCOntrolMP.Visible:=True;
     ImageCOntrolMP.Position.X:=8;
     ImageCOntrolMP.Position.Y:=80;
     ImageCOntrolMP.Width := 576;
     ImageCOntrolMP.Height := 435;
//     SetFocused(ImageCOntrolMP);

     SLeep(3000);

procedure TFOrm1.ShowMPINFO_OFF ( MPNUM: integer; MPName: string);
begin
     ImageCOntrolMP.Visible:=false;
     ImageCOntrolMP.Position.X:=568;
     ImageCOntrolMP.Position.Y:=8;
     ImageCOntrolMP.Width := 24;
     ImageCOntrolMP.Height := 24;
     
     ListView1.Visible:=true;
     Label1.Visible:=true;
     Label2.Visible:=true;
     Label15.Visible:=true;
     Label16.Visible:=true;
     Label17.Visible:=true;
     Label18.Visible:=true;
     Label19.Visible:=true;
     Label20.Visible:=true;
     Label21.Visible:=true;
     Label22.Visible:=true;
     Label23.Visible:=true;
     Label24.Visible:=true;
     Label25.Visible:=true;
     Label26.Visible:=true;
     Label27.Visible:=true;
     Label28.Visible:=true;
     Label29.Visible:=true;
  
end;