Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Аналог Messagebox`a. Проблема .... / 5 сообщений из 5, страница 1 из 1
10.11.2006, 11:11
    #34118655
Peisov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Аналог Messagebox`a. Проблема ....
Делаю некий аналог messagebox`a. Есть форма, на ней Label (где отбражается некое сообщение) и CommanButton.
Хотелось бы сделать так, что бы в зависимости от длины сообщения менялясь высота формы и расположение кнопки (по высоте). Делаю следующим образом:
1. Сообщение передается в форму как параметр
2. В Init формы
Label.Autosize = .T.
Label.Caption = [... сообщение ...]
CommandButton.top = Label.Height+100

Онако фокус не проходит, высота Label не изменяется (изменяется только после оображения формы). Подскажите, как решить этот вопрос...
...
Рейтинг: 0 / 0
10.11.2006, 11:28
    #34118743
Dima T
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Аналог Messagebox`a. Проблема ....
Попробуй так:
Label.Autosize = .F.
Label.Caption = [... сообщение ...]
Label.Autosize = .T.
Label.Resize()
CommandButton.top = Label.Height+100
...
Рейтинг: 0 / 0
10.11.2006, 11:48
    #34118855
Peisov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Аналог Messagebox`a. Проблема ....
Увы, в VFP_8 для Label метода Resize нет ...
...
Рейтинг: 0 / 0
10.11.2006, 12:03
    #34118933
Peisov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Аналог Messagebox`a. Проблема ....
Вроде вопрос решился:

ThisForm.Label.Autosize = .T.
ThisForm.Label.Caption = [... сообщение ...]
ThisForm.Show()
CommandButton.top = Label.Height+100
...
Рейтинг: 0 / 0
10.11.2006, 15:06
    #34119797
Ganordi
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Аналог Messagebox`a. Проблема ....
На www.foxclub.ru в решениях есть хороший класс,аналог MessageBox присмотритесь к нему,есть ли смысл изобретать велосипед повторно?
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Аналог Messagebox`a. Проблема .... / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]