Code: Alles auswählen
procedure TForm1.Button1Click(Sender: TObject);
var
fnt: TFont;
begin
fnt := Font;
if FontDialog1.Execute then begin
fnt := FontDialog1.Font;
end;
Label1.Font := fnt;
end;
Code: Alles auswählen
procedure TForm1.Button1Click(Sender: TObject);
var
fnt: TFont;
begin
fnt := Font;
if FontDialog1.Execute then begin
fnt := FontDialog1.Font;
end;
Label1.Font := fnt;
end;
Code: Alles auswählen
fnt := FontDialog1.Font;