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;