Delphiben hogyan tudok FontDialog-ból lekérni adatokat egy showmessagebe? Pl hogy kiírja, hogy át van-e húzva a betű, mekkora a beállított méret stb?

Mi a fene az, hogy "showmessagebe"??

Az nem egy függvény?

Hol állítja be a felhasználó?

A betűtípust mi alapján írja ki?

Tessék, a halmazokkal barátkozz meg:

procedure TForm1.Button1Click(Sender: TObject);

var s, sStyle : String;

a : TFont;

const

csfsBold = '|Bold';

csfsItalic = '|Italic';

csfsUnderline = '|Underline';

csfsStrikeout = '|Strikeout';

begin

a := Label1.Font;

with a do

begin

sStyle := '';

if( fsBold in Style ) then sStyle := sStyle + csfsBold;

if( fsItalic in Style ) then sStyle := sStyle + csfsItalic;

if( fsUnderline in Style ) then sStyle := sStyle + csfsUnderline;

if( fsStrikeout in Style ) then sStyle := sStyle + csfsStrikeout;

if( (Length(sStyle) > 0) and ('|' = sStyle[1])) then

sStyle := Copy(sStyle, 2, Length(sStyle) - 1);

s := Format('"%s", %d, [%s], [%s]',[Name, Size, sStyle, ColorToString(Color)]);

end;

ShowMessage(s);

end;