FontDialog & ColorDialog

[Steve]

Delphi-Quellcode:

{ Font auswählen }
procedure TForm1.SelFontClick(Sender: TObject);
begin
  if fontDlg.Execute then
  begin
    Label1.Font.Assign(FontDialog1.Font);
  end;
end;

{ Farbe auswählen }
procedure TForm1.SelColorClick(Sender: TObject);
begin
  if colorDlg.Execute then
  begin
    Label1.Font.Color := colorDlg.Color;
  end;
end;

Wobei im TFontDialog auch schon einige Schriftfarben zur Auswahl stehen.

Gruß
Stephan