Moin DRPEnc,
also ich kann da nichts Falsches sehen und (allgemein unbeliebte Ergänzung
): Bei mir funktioniert's.
Was geht denn nicht?
BTW:
Ich hab' noch mal die FormCreate und ComboBox1Change etwas "überarbeitet"
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Style:=csDropDownList;
ComboBox1.Items.AddObject('Idle Priorität',TObject(IDLE_PRIORITY_CLASS));
ComboBox1.Items.AddObject('Normale Priorität',TObject(NORMAL_PRIORITY_CLASS));
ComboBox1.Items.AddObject('High Priorität',TObject(HIGH_PRIORITY_CLASS));
// Normal als Default auswählen
ComboBox1.ItemIndex := 1;
// die Ereignisroutine aufrufen, passiert bei Zuweisung an ItemIndex nicht
ComboBox1Change(nil);
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
// Mit einer Liste wird's etwas übersichtlicher
const
_asPriorities : array [0..2] of String = ('IDLE','NORMAL','HIGH');
begin
Edit1.Text := _asPriorities[ComboBox1.ItemIndex];
// Nur um zu zeigen, dass auch jeweils eine andere Konstante ausgewählt wird
Edit2.Text := IntToStr(Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]));
end;