ComboBox auslesen und reagieren

[Hog]

Hallo zusammen,
ich habe eine Kombobox mit mehreren Einträgen und will bei Auswahl eines ein Bild sichtbar werden lassen:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
case ComboBox1.ItemIndex of
0: Image2.Visible:=true;
1: Image2.Visible:=true;
2: Image2.Visible:=true;
3: Image2.Visible:=true;
end;
end;

Keine Fehlermeldung, allerdings auch kein Resultat.
Was mache ich falsch?
Danke für Hinweise.

Hog

[wennerer]

Hallo Hog,
du machst in der Case Auswahl immer Image2 sichtbar.
Schau dir mal das angehängte Beispiel an. Eventuell bringt dich das weiter.

Viele Grüße
Bernd

[Mathias]

Schau dir mal das angehängte Beispiel an. Eventuell bringt dich das weiter.

Diese hat noch einen kleine Schönheitsfehler.
Die nicht gebrauchten Images müssen wieder unsichtbar werden.

Besser so:

Code: Alles auswählen

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  i: Integer;
begin
 for i := 0 to Length(Images) - 1 do Images[i].Visible := False;
 case ComboBox1.ItemIndex of
  0: Images[0].Visible:=true;
  1: Images[1].Visible:=true;
  2: Images[2].Visible:=true;
  3: Images[3].Visible:=true;
 end;
end;  

[Hog]

Danke für die Tipps. Jetzt funktioniert alles.

[Winni]

Hallo!

Die ComboBox.items und die Images laufen parallel.
Also geht's auch kürzer:

Code: Alles auswählen

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  i: Integer;
begin
 for i := 0 to Length(Images) - 1 do Images[i].Visible := False;
 if ComboBox1.ItemIndex >= 0 then
        Images[ComboBox1.ItemIndex].Visible:=true;
end; 

Grüsse Winni

[Socke]

Wenn es noch kürzer als kürzer sein soll:

Code: Alles auswählen

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to Length(Images) - 1 do
    Images[i].Visible := (i = ComboBox1.ItemIndex);
end; 

[Winni]

Hi!

Crashed aber wenn der ItemIndex = -1 (nix ausgewählt) ist.

Winni

[Socke]

Crashed aber wenn der ItemIndex = -1 (nix ausgewählt) ist.

Warum denn das? ComboBox1.ItemIndex wird nur verglichen und nicht als Arrayelement verwendet.

In einem kurz zusammengeklickten Test hat es bei mir wunderbar funktioniert. Schwieriger fand ich nur, dass bei mSetzen des ItemIndex per Code das OnChange-Ereignis nicht aufgerufen wird und ich dann dieses manuell auslösen musste.

[Winni]

Hi!
Sorry - Du hast recht.

Das Auslösen des events onChange beim Setzen des Index per Code ist ein lästiges Thema:

Manche Komponenten lösen aus, andere nicht und bei den dritten kann man das per Option an- und ausschalten (TPageControl). Hier wäre ein konsistentes Verhalten wirklich nötig.

Winni

[fliegermichl]

Wünschenswert wäre ausserdem, daß man ermitteln kann ob der Event durch eine Benutzeraktion oder durch Programmcode gefeuert wurde. Aber hier muss man sich dann auch irgendwie an die eigene Nase fassen. Lazarus ist quelloffen und jeder hat prinzipiell die Möglichkeit, solche Dinge zu implementieren und dann der Gemeinschaft zur Verfügung zu stellen.

Grüße
Michael

[Mathias]

Wünschenswert wäre ausserdem, daß man ermitteln kann ob der Event durch eine Benutzeraktion oder durch Programmcode gefeuert wurde.

Meinst du so was ?

Code: Alles auswählen

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if Sender=Button1 then
    WriteLn('Button1')
  else
    WriteLn('sonstige');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ComboBox1Change(Button1);
end; 

[fliegermichl]

Wünschenswert wäre ausserdem, daß man ermitteln kann ob der Event durch eine Benutzeraktion oder durch Programmcode gefeuert wurde.

Meinst du so was ?

Code: Alles auswählen

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if Sender=Button1 then
    WriteLn('Button1')
  else
    WriteLn('sonstige');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ComboBox1Change(Button1);
end; 

Nein, wenn man z.B. ComboBox1.ItemIndex := ComboBox1.ItemIndex + 1 macht, dann sollte der OnChange Event automatisch gefeuert werden mit ComboBox1 als Sender.
Ich würde dann aber trotzdem gerne wissen, ob der Anwender den selektierten Eintrag eins weitergesetzt hat oder ob das per Programmcode geschehen ist.

[Winni]

Hi!
Das wäre alles machbar.

Aber die "Lazarus-Götter" sind dagegen.
Wenn man hier und da bei einer Komponente im Internationalen Forum fragt,
warum irgendwelcher Blödsinn nicht abgestellt wird, kommt die Antwort:

"Delphi-Kompatibilität"

Hat mich schon oft genug geärgert.

Winni

PS.: Und wenn Delphi mal was richtig macht, wehren sie sich auch dagegen.
Z.B. den Wert von $FFFFFFFFFFFFFFFF als MaxQWord zu interpretieren - und nicht als Integer.

[Mathias]

"Delphi-Kompatibilität"

Für was gibt es dann dieser Schalter ?

Code: Alles auswählen

{$mode delphi}   

[Winni]

"Hey Lord don't ask me questions"

Graham Parker, 1976