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

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

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


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