drwindows97
Goto Top

Wie überprüfe ich den Wert einer Combobox in Delphi 6?

Hallo Administratoren,
da bei mir wohl keine Hilfe vorhanden ist, beziehungsweise diese unter Windows 7 nicht angezeigt werden kann. Und meine Suche bei Google auch von eher mäßigem Erfolg waren, wende ich mich mit meiner Frage jetzt an euch.

Meine Frage besteht darin wie ich ohne viel klicken , einer Combobox in Delphi, Werte hinzufügen und hinterher bei der Auswahl eines Wertes ,beispielsweise "Rot", durch den Benutzer ein Ereignis eintreten lassen kann.

Danke für eure Hilfe.

Content-Key: 195918

Url: https://administrator.de/contentid/195918

Ausgedruckt am: 28.03.2024 um 19:03 Uhr

Mitglied: DRwindows97
DRwindows97 22.12.2012 um 13:21:03 Uhr
Goto Top
So, ich habe jetzt eine Lösung gefunden.
Die Hilfe gibt es Online unter: http://docs.embarcadero.com/products/rad_studio/radstudio2007/RS2007_he ...

Was mir dann bei folgender Lösung geholfen hat:

var
Form1: TForm1;
farbe: TColor;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

{Items in der Combobox löschen}
ComboBox1.Clear;

{Items hinzufügen}
ComboBox1.Items.Add('Weiß'); Item 0
ComboBox1.Items.Add('Rot');
Item 1
ComboBox1.Items.Add('Gelb'); Item 2
ComboBox1.Items.Add('Blau');
Item 3
ComboBox1.Items.Add('Grün'); Item 4
ComboBox1.Items.Add('Schwarz');
Item 5
ComboBox1.Items.Add('Bordeaux Rot'); Item 6
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin

case combobox1.Itemindex of
0 :farbe := clWhite;
1 :farbe := clRed;
2 :farbe := clYellow;
3 :farbe := clBlue;
4 :farbe := clGreen;
5 :farbe := clBlack;
6 :farbe := clMaroon;
end;

Panel2.Color:=farbe;
Das Ereignis
end;
end.