Вопрос по формам
 |
Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
|
| ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
| [3.147.79.32] |
|
|
ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...
Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.
Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...
Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.
Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Вопрос по формам
|
Сообщ.
#1
,
|
|
|
|
Интересует следующее........есть две формы, одна основная, другая подчиненная - открывается по нажатию. В пропертях ставлю poScreenCenter. Открываю, сдвигаю в сторону, закрываю. Открываю снова, форма на месте, куда сдвинул, а не в центре. Открываю как ShowModal. что надо сделать, чтобы при дальнейших открытиях она была в центре. Спасибо.
|
|
Сообщ.
#2
,
|
|
|
|
По событию подчиненной формы OnShow ставить форму по центру экрана. Больше, кажись, никак...
|
|
Сообщ.
#3
,
|
|
|
|
Понимаешь, ставлю в он show свойство Property =poDesktopCenter; тогда при компиляции выдается ошибка мол форма инвизибл, и ошибка. Ставлю в свойство onCreate тогда пофигу.
|
|
Сообщ.
#4
,
|
|
|
|
Сделай так - работает...
------------------cut----------------------- procedure TForm2.FormShow(Sender: TObject); var Rc:TRect; ScreenCX,ScreenCY:integer; begin GetWindowRect(Handle, rc); ScreenCX:=GetSystemMetrics(SM_CXSCREEN); ScreenCY:=GetSystemMetrics(SM_CYSCREEN); SetWindowPos(Handle, 0,((ScreenCX - (rc.right - rc.left)) div 2), ((ScreenCY - (rc.bottom - rc.top)) div 2),0, 0, SWP_NOSIZE or SWP_NOACTIVATE); end; |
0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
0 пользователей:
[ Script execution time: 0,0203 ] [ 16 queries used ] [ Generated: 15.05.24, 04:36 GMT ]