Hex Farbe aus ColorDialog

[Serero-Kuh]

hallo, ich möchte die farbe die ich in einem ColorDialog gewählt hab gern als Hex anzeigen lassen... in einem Edit... ich hab leider noch nix gefunden um das irgendwie zu machen... kann mir da jemand helfen? vielleicht.. danke

[StefanDP]

http://www.delphipraxis.net/internal...ect.php?p=1915

Das kannst du jetzt genau anderstrum anwenden: ColorToString(..)

[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