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

[TwiX]

А то если поставить горизонтальный скрол, то он будет висеть всегда, даже когда нельзя прокрутить =\

[russian-stalker]

В голову пришло только:

procedure TForm1.Memo1Change(Sender: TObject);
begin
if memo1.Lines.Count*abs(font.Height)<=memo1.Height then
memo1.ScrollBars:=ssNone else
memo1.ScrollBars:=ssVertical;
end;

Глупо, но а вдруг)))

[GenniY]

Где-то в свойствах точно было.

[TwiX]

Сообщение от russian-stalker

В голову пришло только:

procedure TForm1.Memo1Change(Sender: TObject);
begin
if memo1.Lines.Count*abs(font.Height)<=memo1.Height then
memo1.ScrollBars:=ssNone else
memo1.ScrollBars:=ssVertical;
end;

Глупо, но а вдруг)))

Это для вертикального.
Для горизонтального я примерно так же думал, но у каждой буквы разная ширина.