Zitat von
maxmax:
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;
Hallo!!
Col(or) müsste ein Integer-Wert sein. Daher müsste Dir auch hier die Funktion IntToStr(Col) weiterhelfen können. Die Hex/Integer/String - Umwandlungen kannst Du ja aus den obigen Posts entnehmen - falls nötig. Hoffe es funktioniert so!
SCRaT