FDELPHI 6
Memo の ScrollBar

みなさん、こんにちは。
Ｄ１でのことなので、最近のバージョンでは異なるのかもしれませんが、わかれ
ば教えてください。

Form の大きさが変わるときに、貼りつけてある Memo の大きさも変わるようにし
てあります。ここで、Memo の行数（Memo1.Lines.Count）の表示に必要な高さよ
りも Memo1 の高さ（Memo1.Height）が低くなったときだけ ScrollBar が表示さ
れるように、次のようなコードを書いてみました。


procedure TForm1.FormResize(Sender: TObject);
begin
  if Memo1.Height div -Memo1.Font.Height < Memo1.Lines.Count-2 then
    Memo1.ScrollBars := ssVertical
  else
    Memo1.ScrollBars := ssNone;
end;

procedure TForm1.Memo1Change(Sender: TObject);
begin
  if Memo1.Height div -Memo1.Font.Height < Memo1.Lines.Count-2 then
    Memo1.ScrollBars := ssVertical
  else
    Memo1.ScrollBars := ssNone;
end;


ところが、これ、一見いいようなんですが、Memo1.Lines.Add した結果、Memo の
高さが足りなくなってしまったときに例外が発生してしまうのです。とりあえず、
全ての Memo1.Lines.Add を try except でくくってやったら回避できてるようで
すが、それもなんか間抜けなコードのような感じです。TMyMemo とか作ってラッ
ピングすれば解決するかもしれませんが、全然違うもっと別の方法があるような
気がしてなりません。

多分、Lines.Add したときの OnChange イベント等の発生順に関わる話かもしれ
ないのですが、この状況を回避するための、何かうまいコードとかプロパティの
設定とかはないものでしょうか。
どなたかご存知の方、アドバイスいただけると幸いです。
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　としき