1
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.
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.
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 195918
Url: https://administrator.de/forum/wie-ueberpruefe-ich-den-wert-einer-combobox-in-delphi-6-195918.html
Ausgedruckt am: 22.12.2024 um 20:12 Uhr
1 Kommentar
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.
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.
