TFontdialog.Options lesen?

Hallo Sakura,

danke für die schnelle Antwort, geht prima mit FontFaces.

Was ist aber z.B. mit den Styles? Ist ja ein leider Set, und der Status "leer" eines Sets ja auch ein gültiger Status ist (also kein Fett, kein Italic etc.)

Delphi-Quellcode:

  FontDialog1.Options := FontDialog1.Options + [fdNoFaceSel] + [fdNoStyleSel];
  // Namen auf #0 setzen
  FontDialog1.Font.Name := #0;
  if FontDialog1.Execute then
    // wenn name nicht #0 dann
    if FontDialog1.Font.Name <> #0 then
      Label1.Caption := FontDialog1.Font.Name
    else
      // sonst keine neue Font gewählt
      Label1.Caption := '*wuppdi*';
      if Fontdialog1.Font.Style=nil ???

Eine Idee?

Danke Axel