Текст полностью не помещается в окно ввода.

[limansky]

Подскажите, существует ли событие, возникающее, когда текст выходит за рамки видимой части ввода Мемо?
Мне нужно реализовать автоматическую настройку высоты окна Мемо в зависимости от загружаемого текста.

[Вадим Мошев]

вам надо при загрузке текста приписать, чтобы memo растянулось в зависимости от количества строк загруженного текста

[limansky]

Сообщение от Вадим Мошев

вам надо при загрузке текста приписать, чтобы memo растянулось в зависимости от количества строк загруженного текста

Ок. Вот конкретная задача.
Memo1.Width:=30;
Memo1.height:=10;

Memo1.Text:='Memo, растянись-ка так, чтобы мы увидели этот текст полностью!';

Пожалуйста, ЧТО и ГДЕ мне дописать для достижения цели?

[JUDAS]

procedure TForm1.Button1Click(Sender: TObject);
const S = 'Подскажите, существует ли событие, возникающее, когда текст выходит за рамки видимой части ввода Мемо? '+
 'Мне нужно реализовать автоматическую настройку высоты окна Мемо в зависимости от загружаемого текста.';
begin
  Memo1.Text:=S;
  Memo1.Height:=(Abs(Memo1.Font.Height)+3)*memo1.Lines.Count+4;
end;

[limansky]

to JUDAS
Спасибо. Очень близко. При размере шрифта 8 (ширина Мемо 185) в поле видимости попадает 4 строки из 5-и.
При размере шрифта 12 - в поле видимости оказывается 10 строк вместо 12-и...

[Аватар]

Для WordWrap=True

procedure TForm1.FormCreate(Sender: TObject);
var s: String;
    xPaintBox: TPaintBox;
    xHeight: Integer;
    r: TRect;
begin
  s:='Подскажите, существует ли событие, возникающее, когда текст выходит за рамки видимой части ввода Мемо? '+
     'Мне нужно реализовать автоматическую настройку высоты окна Мемо в зависимости от загружаемого текста.';
  xPaintBox:=TPaintBox.Create(Self);
  xPaintBox.Parent:=Self;
  xPaintBox.Left:=Memo1.Left;
  xPaintBox.Top:=Memo1.Top;
  xPaintBox.ClientWidth:=Memo1.ClientWidth;
  xPaintBox.ClientHeight:=Screen.Height;
  xPaintBox.Font.Assign(Memo1.Font);
  r:=xPaintBox.ClientRect;
  xHeight:=DrawText(xPaintBox.Canvas.Handle,PChar(s),Length(s),r,DT_WORDBREAK);
  xPaintBox.Free;
  if xHeight>0 then Memo1.ClientHeight:=xHeight+Memo1.Font.Size;
  Memo1.Text:=s;
end;

[limansky]

to JUDAS
На моём компе с разными по высоте шрифтами ваша формула работает с такими коэффициентами:
Memo1.Height:=(Abs(Memo1.Font.Heigh t)+6)*memo1.Lines.Count+6;

to Аватар
Спасибо большое за внимание к моему вопросу.
Дело в том, что похожим способом, только я брал label у меня всё получилось.
Я загружал фразу сначала в label, затем измерял высоту и присваивал высоте Мемо. И это я посчитал слишком сложным путём. Мне казалось, что должно возникать какое-то событие, когда текст не вмещается в Мемо... Тогда можно было бы легко устанавливать высоту.

[limansky]

Вот последнее, что получилось весьма неплохо при фиксированной ширине Memo и WordWrap=True:
Memo1.Height:=2*(Memo1.Lines.Count) *(Memo1.Font.Size);