Einzelnen Beitrag anzeigen

wschrabi

Registriert seit: 16. Jan 2005
448 Beiträge
 
#5

AW: ShowModal und Show in Firemonkey Android App

  Alt 13. Sep 2014, 14:13
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;
  Mit Zitat antworten Zitat