Как сделать чтобы при вводе в Memo появлялись скролинги вертиклаьный и горизонтальный?

[Sanek777]

Как сделать чтобы при вводе в Memo появлялись скролинги вертиклаьный и горизонтальный? Просто у меня в программе если они будут до запуска - будет не красиво. P.S. И если знаете напишите как печатать текст из Memo.

[Terran]

Сообщение от Sanek777

Как сделать чтобы при вводе в Memo появлялись скролинги вертиклаьный и горизонтальный? Просто у меня в программе если они будут до запуска - будет не красиво. P.S. И если знаете напишите как печатать текст из Memo.

Попробуйте так:

Procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If Memo1.Text <>'' Then
Begin
Memo1.ScrollBars:=SSBoth;
End
Else
Begin
Memo1.ScrollBars:=SSNone;
End;
End;

Для точности этот код можно ещё в кей пресс добавить. Печать текста можете сделать так:

procedure PrintStrings(Strings: TStrings);
var
Prn: TextFile;
i: word;
begin
AssignPrn(Prn);
try
Rewrite(Prn);
try
for i := 0 to Strings.Count - 1 do
writeln(Prn, Strings.Strings[i]);
finally
CloseFile(Prn);
end;
except
on EInOutError do
MessageDlg('Ошибка печати текста.', mtError, [mbOk], 0);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Printer.Canvas.Font.Size:=strtoint(Edit1.Text);
PrintStrings(Memo1.Lines);
end;

Хотя на мой взгляд лучше пользоваться RichEdit. Там можно сразу печатать:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
RichEdit1.Print(RichEdit1.Text);
End;

Чуть не забыл, при печате текста из Memo добавьте в раздел Uses модуль Printers.

[Andrei Isaev]

Лучше слелать так :
выдели обьект TMemo и в инспекторе обьектов свойству ScrollBars значение ssBoth.
И всё !!!