請教下：如何給fastreport  的text控件(tfrxmemoview)使用tlogfont ，我使用下面的代碼，但是沒有生效，請幫忙看下

[code delphi]
procedure TForm1.btn6Click(Sender: TObject);
var
lf: TLogFont;
myF_Page: TfrxReportPage;
memos: TfrxMemoView;
paths: string;
begin
paths := ExtractFilePath(Application.ExeName) '090628_2.fr3';
frxReport1.LoadFromFile(paths);
myF_Page := TfrxReportPage(frxReport1.Pages[1]);
memos := myF_Page.FindObject('Memo2') as TfrxMemoView;
if (memos <> nil) then
begin // showMessage('good');
showMessage(memos.Text);
GetObject(memos.Font.Handle, SizeOf(TLogfont), @lf);
lf.lfWidth := 5;
lf.lfEscapement := 450;
lf.lfOrientation := 450;
memos.Font.Handle := CreateFontIndirect(lf);
frxReport1.PrepareReport;
frxReport1.ShowReport();
end
end;
[/code]

------
对岸的菜鸟,但是很喜欢用delphi!

===================引 用 xnium 文 章===================
請教下：如何給fastreport 的text控件(tfrxmemoview)使用tlogfont ，我使用下面的代碼，但是沒有生效，請幫忙看下

[code delphi]
procedure TForm1.btn6Click(Sender: TObject);
var
lf: TLogFont;
memowide1: Integer;
myF_Page: TfrxReportPage;
memos: TfrxMemoView;
paths: string;
begin
paths := ExtractFilePath(Application.ExeName) '090628_2.fr3';
frxReport1.LoadFromFile(paths);
myF_Page := TfrxReportPage(frxReport1.Pages[1]);
memos := myF_Page.FindObject('Memo2') as TfrxMemoView;
if (memos <> nil) then
begin // showMessage('good');
showMessage(memos.Text);
GetObject(memos.Font.Handle, SizeOf(TLogfont), @lf);
lf.lfWidth := 5;
lf.lfEscapement := 450;
lf.lfOrientation := 450;
memos.Font.Handle := CreateFontIndirect(lf);

GetObject(memos.Font.Handle, SizeOf(TLogfont), @lf2);
memowide1 := lf2.lfWidth;
frxReport1.PrepareReport;
frxReport1.ShowReport();
end
end;
[/code]

根據跟蹤的情況來看，在memos.Font.Handle := CreateFontIndirect(lf);之后，再取得

memos.Font.Handle ，其lf2.lfWidth也是5，說明設定生效了，
但是為何在frxReport1.ShowReport();報表預覽的時候，沒有看到效果呢？有步驟沒有做么？

------
对岸的菜鸟,但是很喜欢用delphi!