下面是本人写的,但字距不是行距,要怎么写才可以?
procedure TForm1.Memo1Change(Sender: TObject);
begin
if memo1.Height<=memo1.Font.Size*memo1.Lines.Count then
memo1.ScrollBars:=ssVertical
else
memo1.ScrollBars:=ssnone;
end;
procedure TForm1.Memo1Change(Sender: TObject);
begin
if memo1.Height<=memo1.Font.Size*memo1.Lines.Count then
memo1.ScrollBars:=ssVertical
else
memo1.ScrollBars:=ssnone;
end;
有一章是专门对字体进行说明的..有字高..行宽等内容..