Размер 2 формы [Delphi 7]

[_fynjy_]

Ребят,такая проблема:
у меня есть 1 форма, в ней есть вводимый текст мемо1, при нажатии на кнопку создаётся 2 форма - на ней есть

Memo1.text:=Form1.Memo1.text;

чтобы переносил текст из 1 мемо в новую форму.
Вопрос:
Как сделать так чтобы высота формы подгонялась под текст введёный в мемо автоматически,, тоесть если я ввиду 7 строчек, то форма принимала высоту в эти 7 строчек и не перекрывала половина текста и не надо было форму растягивать?

[evg_m]

что-то вроде этого.
h:=memo1.canvas.textheight(...); // узнать необходимый размер
form2.cliectheight:=h+...; // подогнать размер

подробности можно найти в правке для ТMemo Tcanvas Tform

тоесть если я ввиду 7 строчек

А если введешь 777 (семьсот семьдесят семь) то форма будет иметь высоту в 10(десять) экранов, так?!

[_fynjy_]

да правильно, так чтобы форма текст не закрывала

h:=memo1.canvas.textheight(...); // узнать необходимый размер
form2.cliectheight:=h+...; // подогнать размер

а вместо "..." что ставить?

[_fynjy_]

пишет что не знает canvas

[evg_m]

а вместо "..." что ставить?

1234567890

подробности можно найти в cправке для ТMemo Tcanvas Tform

пишет что не знает canvas

type TMemox =class(TMemo)
end;

TmemoX(memo1).canvas......

[Аватар]

Если фонт мемо наследован от фонта формы, то можно высоту из поста 2 вычислить как

  h:=Canvas.TextHeight('ААА')*Memo1.Lines.Count;

а вместо "..." что ставить?

экспериментально легче всего

[_fynjy_]

всё понял... сделал так

[_fynjy_]

спасибо огромное