Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Font.Color := $00404000;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
FontDialog1.Font.Assign(Label1.Font);
if FontDialog1.Execute then
//Hir wird im FontDialog1 die Farbe Schwarz angezeigt
begin
Self.Color := FontDialog1.Font.Color;
end;
end;
Die Farbe die ich übergebe ist ein dunkles Teal, aber das Dialogfenster TFontDialog zeigt Schwarz als Schriftfarbe an. Drücke ich ok, übergibt er wieder die Teal als Farbe.