P°ehled vlastnostφ, metod a udßlostφ objektu:
--------------------------------------------------------------
Ctl3D (RW) Device (RW) Font (RW)
HelpContext (RW) MaxFontSize (RW) MinFontSize (RW)
Name (R) Options Tag (RW)
--------------------------------------------------------------
Execute
--------------------------------------------------------------
OnClose OnShow
--------------------------------------------------------------
Legenda: * -> pouze z programu, R -> lze Φφst, W -> lze zadat
Komponenta FontDialog slou₧φ pro zadßnφ fontu z aplikace. Dialog se vyvolß metodou Execute, pokud se ukonΦφ dialog stiskem klßvesy 'OK', bude vybran² font p°φstupn² ve vlastnosti Font.
P°φklad:
Po kliknutφ na tlaΦφtko Button se aktivuje dialog pro v²b∞r Fontu. Pokud je Font vybrßn,
pou₧ije se pro nastavenφ fontu komponenty Edit.
Jazyk KLONDAIK:
procedure TForm.ButtonClick(Sender: TObject);
begin
if FontDialog.Execute then
Edit.Font := FontDialog.Font;
end;
Jazyk BONANZA:
Sub ButtonClick(Sender)
If FontDialog.Execute then
Edit.Font = FontDialog.Font
End If
End Sub