Konstante per ComboBox auswählen

[s-off]

Alternativ könntest Du auch folgendes machen - benutzt kein AddItem und ist nicht so oversized wie das erste Beispiel.

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
   ComboBox1.Items.AddObject('SC_MINIMIZE', TObject(61472));
   ComboBox1.Items.AddObject('SC_MAXIMIZE', TObject(61488));
End;

Procedure TForm1.ComboBox1Change(Sender: TObject);
Var
   int: Integer;
Begin
   int := Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
   ShowMessage(inttostr(int));
End;