Zitat von
LoL:
Ich wiederhole mich ja nur ungern
, aber warum machst du nicht einfach:
Delphi-Quellcode:
try
StringToColor(Edit1.Text)
except
ShowMessage('Kein gültiger Farbwert');
end;
Dann kann da auch nichts passieren und es erfüllt doch das was du willst oder?
So habe ich es jetzt auch gemacht geht super.
Ich habe auch gleich nach dem Post deinen Vorschlag benutzt hatte aber den Vorschlag von dizzy (doof wie ich bin) nicht ganz verstanden. Deshalb habe ich noch gepostet denn ich wusste nicht dass ein $ am Anfang -> einen Hex-String liefert.