Hallo Delphi-Praxis User
hab ein kleines problem, und zwar hab ich programm code hinter ein Combobox hinterlegt.
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
... usw.
nun will ich mit einem butten deisen code aufrufen.
doch leider weiß ich nicht wie.
Delphi-Quellcode:
procedure TForm1.Button6Click(Sender: TObject);
begin
Case ProgressBar3.Position of
0: Begin
Button4.Click;
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;
... usw.
Warum das alles? Will von hand steuern aber auch einen automatisierten ablauf haben.
hoffe ihr versteht was ich meine...
Danke
mfg hildi