delphi问题.关于MEMO控件 delphi的memo控件的问题~！

delphi问题.关于MEMO控件

procedure TForm1.Button1Click(Sender: TObject)
begin
opendialog1.filter:=文本文件(*.txt)|*.txt
if Opendialog1.Execute then
begin
Memo1.Lines.Clear
Memo1.Lines.LoadFromFile(OpenDialog1.FileName)
end
end

delphi的memo控件的问题~！

var
str:Sting
HTML1: IHTMLDocument2
begin
HTML1:= WebBrowser1.document as IHTMLDocument2
.......
repeat
sleep(200)
str:=HTML1.body.OuterText
until
POS(知识掌门人,str)>0
Memo1.lines.add(......)
......
end

delphi 有这样的memo控件吗，能设置各行的字体和颜色，谢谢

//看看这个函数function TForm1.MemoLinesShowing(memo: TMemo): integervar R: TRectbegin Memo.Perform(EM_GETRECT, 0, Longint(@R)) Result (R.Bottom - R.Top) div Canvas.TextHeight(XXX)end问题是，TForm 和TMemo 需要用同样的字体。如果不同，可以用以下代码：function TForm1.MemoLinesShowingLong(Memo: TMemo): integerVar Oldfont: HFont DC: THandle i: integer Tm: TTextMetric TheRect: TRectbegin DC GetDC(Memo.Handle) try OldFont SelectObject(DC, Memo.Font.Handle) try GetTextMetrics(DC, Tm) Memo.Perform(EM_GETRECT, 0, longint(@TheRect)) Result (TheRect.Bottom - TheRect.Top) div (Tm.tmHeight Tm.tmExternalLeading) finally SelectObject(DC, Oldfont) end finally ReleaseDC(Memo.Handle, DC) endend