Delphi-Quellcode:
procedure TForm1.Button6Click(Sender: TObject);
begin
Case ProgressBar3.Position of
0: Begin
Button4.Click; //Funktioniert
end;
2: Begin
ComboBox1.ItemIndex:=1; //wenn ich das mach setzt er nur den wert, also in dem fall auf aus. Aber führt nicht die aktionen aus die ich hoben hab.
ComboBox2.ItemIndex:=1;
end;
Aber leider war das keine antwort auf meine frage...
Delphi-Quellcode:
procedure TForm1.ComboBox1Change(Sender: TObject);
Var I:Integer;
begin
case ComboBox1.ItemIndex of
0: begin
ClearDigitalChannel(1);
Progressbar2.Min:=0;
Progressbar2.Max:=100000;
for I:=0 to 100000-1 do
begin
Progressbar2.Position:=I;
end;
Case Combobox2.ItemIndex of
0: begin
BG.Picture.Bitmap.LoadFromFile('WinCC Tunnelprojektierung_bearbeitet.bmp');
end;
1: begin
BG.Picture.Bitmap.LoadFromFile('WinCC Tunnelprojektierung_Weströhre.bmp');
end;
else
begin
BG.Picture.Bitmap.LoadFromFile('WinCC Tunnelprojektierung_Weströhre.bmp');
end;
end;
end;
1: begin
gedacht war das ich diesen teil mit
ComboBox2.ItemIndex:=1;
ausführ aber das geht nicht.