danke für die antwort... das ist ja viel einfacher...
Könntet ihr mir noch folgenden Kommentar beantworten?
Delphi-Quellcode:
procedure TForm1.Umwandeln1Click(Sender: TObject);
begin
try
Hex1 := '
$'+Hexcolor.Text;
Col:= StringToColor(Hex1);
Col:= ColorToRGB(Col);
RGBan.Caption := Col;
//Wie Col zu String umwandeln??
Panel1.Color:=
RGB(GetBValue(Col), GetGValue(Col), GetRValue(Col));
except
ShowMessage ('
Ungültige Farbenwerte! Bitte überprüfen!')
end;
end;