Hex Farbe aus ColorDialog

[StefanDP]

Nochmal ein anderer Ansatz:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  farbe: TColor;
  ergebnis: String;
begin
  if ColorDialog1.Execute then
    farbe := ColorDialog1.Color;

  ergebnis :=   IntToHex(GetRValue(farbe),2)  // Rot-Wert (0..255)
                                              // in Hex umwandeln
                                              // mit min. 2 Zeichen
              + IntToHex(GetGValue(farbe),2)  // usw...
              + IntToHex(GetBValue(farbe),2);

  ShowMessage(ergebnis);
end;

stefan