Vise font.style i en label, eller konvertere fra Edit til dialog.

Slut - ingen løsning.

arh lol - forkert tråd sry.

Man kan alt i Delphi ;-)

Du skal den slagne vej og kode dig ud af det..

  if fsBold in FontDialog1.Font.Style then
    edit1.Text := 'Fed ';
  if fsItalic in FontDialog1.Font.Style then
    edit1.Text := Edit1.Text + 'Kursiv ';

osv...

jeg kan læse ud fra stef s spørgsmål at programmet skal skrive til en fontdialog og

ikke sætte fontdialog style = edit

Ja det ved jeg, men som doc404 siger, så har jeg nemlig gjort det sådan når det skulle være den anden vej, men jeg leder efter en metode, så direkte kan smække den ind, jeg ved nemlig, at hvis jeg skal alle mulighederne igennem med IF drejer det sig om 20 linier eller noget :(

ups må lære at læse...

Der er ingen direkte vej. Du har sikkert en grund til at bruge en edit, men er det ikke lidt besværligt? Skal brugeren skriv 'fed kursiv' ?

En Quick and dirty løsning kunne være lignende den du bruger den anden vej

var
  Style : TFontStyle;
  s : string;
...
  Style := [];
  s := LowerCase(Edit1.Text);
  if Pos(s,'fed') > 0 then Inlude(Style,fsBold);
  osv..

Hvis det skal være perfekt, skal der noget mere til...

Hvad betyder det lowercase?
Hvorfor gemmer du det til string, og når du sætter den til at være [] gør det hvad?

LowerCase konverterer alle tegnene i streng til småbogstaver. [] nulstilelr variablen, så du er sikker på den ikke indeholder et eller andet tilfældigt.