delphi 如何在运行过程中设定memo组件的字体

Question

要设计一个类似记事本的程序 怎样把在菜单栏的字体菜单关联到memo上啊
还有滚动条，语句要怎么写

Answer 1

一、设定memo组件的字体

可以添加一个 FontDialog 组件，用于显示 字体选择 对话框。

二、编写菜单代码

procedure TForm1.mniF1Click(Sender: TObject);
begin
  if dlgFont1.Execute then
  begin
    mmo1.Font := dlgFont1.Font;
  end;
  mmo1.ScrollBars := ssVertical;
end;

Answer 2

窗体上方三个控件。

双击MainMenu1添加一个菜单“字体”。

procedure TForm1.N1Click(Sender: TObject);

begin

  fontdialog1.Execute ;

  memo1.Font:=fontdialog1.Font ;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

  memo1.Lines.LoadFromFile('f:\abc.txt');

  memo1.ScrollBars :=ssvertical;

end;

效果如图所示。

追问

fontdialog1
请问这个是什么啊

追答

fontdialog1
刚学吧，它是字体对话框控件。位于delphi7 dialogs组件页的第5个位置。如果不要控件，直接用代码定制，则：
procedure TForm1.N1Click(Sender: TObject);
begin
with memo1.Font do
begin
Name :='华文彩云';
size:=18;
style:=style+[fsBold];
color:=clBlue;
end;
memo1.Lines.LoadFromFile('f:\abc.txt')
end;

本回答被提问者采纳