TColor ist zwar nicht Integer, passt aber mit 4 Byte in den Integer. Somit ist das kein Problem: ShowMessage(IntToStr(Color));
.
Selbstverständlich kann man TColor auch einen Integer zuweisen, schließlich mache ich das seit Jahr & Tag ganz genau so, um diverse Farbeinstellungen aus der Datenbank zu lesen:
Delphi-Quellcode:
GLD.FarbeBrowse := DatMod.Qset_Benutzer.FieldByName('FARBEBROWSE').AsInteger;
GLD.FarbeEdit := DatMod.Qset_Benutzer.FieldByName('FARBEEDIT').AsInteger;
GLD.FarbeAppend := DatMod.Qset_Benutzer.FieldByName('FARBEAPPEND').AsInteger;
wobei diese Variablen als TColor deklariert sind:
Delphi-Quellcode:
Var
FarbeBrowse,
FarbeEdit,
FarbeAppend : TColor;
Du siehst: TColor ist praktisch ein Integer, da voll zuweisungskompatibel.