Задание к сессии - Страница 2

MrSTEP · 28.11.2009, 17:57

конечно для винды. а еще вопрос: есть ли у формы свойство, запрещающее менять ее размер?

Long Cat · 28.11.2009, 18:00

Есть. Нужно внимательно изучить Object Inspector.
К сожалению, я не помню названия.

MrSTEP · 28.11.2009, 18:47

ладно, это уже не надо. но есть дргой вопрос: у нас есть компонент Memo и текст, который в ходе работы надо будет вывести в этом Мемо. Как сделать так, что бы вывести текст в несколько строк?

Long Cat · 28.11.2009, 18:50

Вставить в текст символы перевода строки:

Код:

s:='abc'+chr(13)+chr(10)+'cde'

;
Результат:

Код:

abc
cde

MrSTEP · 28.11.2009, 18:57

всего лишь chr(13)+chr(10)?? ура, наконец-то я узнал эту тайну

она оказалась намного проще, чем я думал

спасибо

AlexZir · 28.11.2009, 19:34

для автоматического переноса строк в Memo достаточно свойству wordwrap присвоить true.

MrSTEP · 28.11.2009, 19:43

нене, мне надо перенести именно в нужном месте. а совет не работает. может быть WordWrap зависимо от других свойств?

AlexZir · 28.11.2009, 19:46

Для запрещения увеличения окна можно отключить кнопки управления окном в свойствах формы, сделать толщину бордюра формы равной 0 (для запрещения увеличения мышью) и отслеживать события увеличения окна.
Другой способ: вы должны перехватывать сообщение WM_GETMINMAXINFO
вот листинг из Delphi World

Код:

private
  { Private declarations }
  procedure WMGetMinMaxInfo(var Info: TWMGetMinMaxInfo); message wm_GetMinMaxInfo;

implementation

{$R *.DFM}

procedure TForm1.WMGetMinMaxInfo(var Info:TWMGetMinMaxInfo);
begin
  with Info.MinMaxInfo^ do
  begin
      ptMinTrackSize.x := 400;
      ptMinTrackSize.y := 200;
      ptMaxTrackSize.x := 400;
      ptMaxTrackSize.y := 200;
      ptMaxPosition.x := BoundsRect.Left;
      ptMaxPosition.y := BoundsRect.top;
  end;
  inherited;
end;

AlexZir · 28.11.2009, 19:48

Вывод сведений о программе и об авторе можно реализовать при помощи вызова модального окна showmessage('text')

MrSTEP · 28.11.2009, 19:54

Цитата:

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

Вывод сведений о программе и об авторе можно реализовать при помощи вызова модального окна showmessage('text')

это я уже так и сделал

28.11.2009, 18:50	#14 (permalink)
Long Cat Banned Регистрация: 01.09.2009 Сообщений: 4,396 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 2544	Вставить в текст символы перевода строки: Код: s:='abc'+chr(13)+chr(10)+'cde' ; Результат: Код: abc cde Последний раз редактировалось Long Cat; 28.11.2009 в 18:54

28.11.2009, 18:57	#15 (permalink)
MrSTEP 一步一步地会到目的 Регистрация: 09.05.2009 Адрес: Черноземье Сообщений: 10,939 Записей в дневнике: 10 Сказал(а) спасибо: 140 Поблагодарили 80 раз(а) в 33 сообщениях Репутация: 28362	всего лишь chr(13)+chr(10)?? ура, наконец-то я узнал эту тайну она оказалась намного проще, чем я думал спасибо Последний раз редактировалось MrSTEP; 28.11.2009 в 19:02

28.11.2009, 19:34	#16 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	для автоматического переноса строк в Memo достаточно свойству wordwrap присвоить true. __________________ Убить всех человеков!

28.11.2009, 19:43	#17 (permalink)
MrSTEP 一步一步地会到目的 Регистрация: 09.05.2009 Адрес: Черноземье Сообщений: 10,939 Записей в дневнике: 10 Сказал(а) спасибо: 140 Поблагодарили 80 раз(а) в 33 сообщениях Репутация: 28362	нене, мне надо перенести именно в нужном месте. а совет не работает. может быть WordWrap зависимо от других свойств? Последний раз редактировалось MrSTEP; 28.11.2009 в 19:50

28.11.2009, 19:46	#18 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Для запрещения увеличения окна можно отключить кнопки управления окном в свойствах формы, сделать толщину бордюра формы равной 0 (для запрещения увеличения мышью) и отслеживать события увеличения окна. Другой способ: вы должны перехватывать сообщение WM_GETMINMAXINFO вот листинг из Delphi World Код: private { Private declarations } procedure WMGetMinMaxInfo(var Info: TWMGetMinMaxInfo); message wm_GetMinMaxInfo; implementation {$R .DFM}* procedure TForm1.WMGetMinMaxInfo(var Info:TWMGetMinMaxInfo); begin with Info.MinMaxInfo^ do begin ptMinTrackSize.x := 400; ptMinTrackSize.y := 200; ptMaxTrackSize.x := 400; ptMaxTrackSize.y := 200; ptMaxPosition.x := BoundsRect.Left; ptMaxPosition.y := BoundsRect.top; end; inherited; end; __________________ Убить всех человеков!

28.11.2009, 17:57	#11 (permalink)
MrSTEP 一步一步地会到目的 Регистрация: 09.05.2009 Адрес: Черноземье Сообщений: 10,939 Записей в дневнике: 10 Сказал(а) спасибо: 140 Поблагодарили 80 раз(а) в 33 сообщениях Репутация: 28362	конечно для винды. а еще вопрос: есть ли у формы свойство, запрещающее менять ее размер?

28.11.2009, 17:57
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Данные которые содержаться по этим ссылкам помогут вам разобраться Задание в Pascal. Подскажите Задание в паскале. Помогите с решением Задание в паскале с кординатами Задание в Паскале

28.11.2009, 18:00	#12 (permalink)
Long Cat Banned Регистрация: 01.09.2009 Сообщений: 4,396 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 2544	Есть. Нужно внимательно изучить Object Inspector. К сожалению, я не помню названия.

28.11.2009, 18:47	#13 (permalink)
MrSTEP 一步一步地会到目的 Регистрация: 09.05.2009 Адрес: Черноземье Сообщений: 10,939 Записей в дневнике: 10 Сказал(а) спасибо: 140 Поблагодарили 80 раз(а) в 33 сообщениях Репутация: 28362	ладно, это уже не надо. но есть дргой вопрос: у нас есть компонент Memo и текст, который в ходе работы надо будет вывести в этом Мемо. Как сделать так, что бы вывести текст в несколько строк?

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

28.11.2009, 19:48	#19 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Вывод сведений о программе и об авторе можно реализовать при помощи вызова модального окна showmessage('text') __________________ Убить всех человеков!

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид