Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 85 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.08.2008, 21:04   #1
Sanek777
Заблокирован
Пользователь
 
Регистрация: 31.07.2008
Сообщений: 90
Восклицание Как сделать чтобы при вводе в Memo появлялись скролинги вертиклаьный и горизонтальный?

Как сделать чтобы при вводе в Memo появлялись скролинги вертиклаьный и горизонтальный? Просто у меня в программе если они будут до запуска - будет не красиво. P.S. И если знаете напишите как печатать текст из Memo.
Sanek777 вне форума Ответить с цитированием
Старый 30.08.2008, 21:23   #2
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 28.11.2007
Сообщений: 1,521
По умолчанию

Цитата:
Сообщение от 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.
Всегда рад помочь!

Последний раз редактировалось Terran; 30.08.2008 в 21:35.
Terran вне форума Ответить с цитированием
Старый 19.11.2008, 17:09   #3
Andrei Isaev
Дельфист
Пользователь
 
Аватар для Andrei Isaev
 
Регистрация: 18.11.2008
Сообщений: 19
По умолчанию

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


Купить рекламу на форуме 85 тыс рублей в месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Кто мне подскажет как сделать так чтобы... Alexij Общие вопросы Delphi 9 16.06.2008 12:47
как сделать Memo прозрачным 1234 Общие вопросы Delphi 1 21.02.2008 16:38
Как сделать чтобы прога не закрывалась vitalik007 Общие вопросы Delphi 8 12.01.2008 23:32
Как мне сделать так штоби при вводе массива все значения сами переносились по словам. Помогити плиз KSP Общие вопросы Delphi 7 24.09.2007 22:44
В Memo сделать так, чтобы текст был разного цвета, разноцветный memo Artem Компоненты Delphi 3 07.09.2007 13:40