FontDialog & ColorDialog

**Doctor**

Hallo

Ich möchte gerne über ein Menu die Schriftfarbe und Schriftart des Panels ändern, auf dem ich einige Edits und Panals untergebracht habe.
Ich hab da mal n bischen getestet und die Delphi-Hilfe bringt mich net wirklich weiter.

aus der Delphi Hilfe:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

begin

   TFontDialog1.Options = TFontDialog1.Options + fdApplyButton;

   TFontDialog1.Execute;

end;

procedure TForm1.FontDialog1Apply(Sender: TObject; Wnd: Integer);

begin

  if ActiveControl is TEdit then

    with ActiveControl as TEdit do

       Font.Assign(TFontDialog(Sender).Font)

  else if ActiveControl is TRichEdit then

    with ActiveControl as TRichEdit do

      SelAttributes.Assign(TFontDialog(Sender).Font)

  else

    Beep;

end;

Teilweise versteh ich das ja, aber es klappt net so, wie ich das will ... ausserdem hab ich keine Ahnung, wie ich das mit dem ColorDialog machen soll.

Kann mir da jemand helfen ?
MfG
Doctor

FontDialog & ColorDialog

FontDialog & ColorDialog

Forumregeln