ColorDialog und Label

[Neutral General]

Naja ansonsten musst dus so machen wie Der_Unwissende es gesagt mit "meiner" Lösung kombiniert:

Delphi-Quellcode:

with Bild.Canvas do begin
  if ColorDialog1.Execute then begin
   Pen.Color:=ColorDialog1.Color;
   Label2.Font.Color:= ColorDialog1.Color;
   case ColorDialog1.Color of
    clRed : Label2.Caption := 'Rot';
    clGreen : Label2.Caption := 'Grün';
    clBlue : Label2.Caption := 'Blau';
    //...
    else Label2.Caption := ColorToString(ColorDialog1.Color);
   end;
  end;
  //...
end;

so etwa.