Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Программа и интерфейс
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 21.11.2009, 13:07
Йогурт Йогурт вне форума
Начинающий
 
Регистрация: 20.11.2009
Сообщения: 109
Репутация: 5
По умолчанию Отключить перетаскивание главной формы

Здравствуйте! Собственно вопрос, Как отключить перетаскивание главной формы в развернутом виде в полный экран? Т.е Главная форма на весь экранн, ее можно зацепить мышкой и перетащить! Мне надо это отключить!

Заранее спасибо за помощь!
Ответить с цитированием
  #2  
Старый 21.11.2009, 17:20
Roman2807 Roman2807 вне форума
Прохожий
 
Регистрация: 29.10.2009
Сообщения: 14
Репутация: 10
По умолчанию

поставьте в свойствах формы align параметр alCustom.
Ответить с цитированием
  #3  
Старый 21.11.2009, 17:36
Йогурт Йогурт вне форума
Начинающий
 
Регистрация: 20.11.2009
Сообщения: 109
Репутация: 5
По умолчанию

Спс! Еще вопрос есть, как сделать чтобы последующие открывающиеся формы были внутри главной формы?
Ответить с цитированием
  #4  
Старый 21.11.2009, 17:37
Йогурт Йогурт вне форума
Начинающий
 
Регистрация: 20.11.2009
Сообщения: 109
Репутация: 5
По умолчанию

Т.е не выходили за пределы границ главной формы..
Ответить с цитированием
  #5  
Старый 21.11.2009, 18:07
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Код:
formstyle := fsMDIForm;
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #6  
Старый 22.11.2009, 11:46
Йогурт Йогурт вне форума
Начинающий
 
Регистрация: 20.11.2009
Сообщения: 109
Репутация: 5
По умолчанию

Не помогло! С помощью перетаскивания формы она выходит за границы главной формы! А мне надо чтобы не выходило!
Ответить с цитированием
  #7  
Старый 22.11.2009, 12:00
Аватар для march
march march вне форума
Начинающий
 
Регистрация: 04.05.2009
Сообщения: 110
Репутация: 18
По умолчанию

тогда создавай отдельный поток, в нем прописываешь сравнивание типа
PHP код:
if (ChildForm.left<(MainForm.left+1then (ChildForm.left:=(MainForm.left+1);
if (
ChildForm.top<(MainForm.top+1then (ChildForm.top:=(MainForm.top+1);
if ((
ChildForm.top+ChildForm.height)>(MainForm.top+MainForm.height-1)) then
ChildForm
.top:=MainForm.top+MainForm.height-1-ChildForm.height;
//аналогично .left+.width 
Думаю логика понятна
Ответить с цитированием
  #8  
Старый 22.11.2009, 12:13
Йогурт Йогурт вне форума
Начинающий
 
Регистрация: 20.11.2009
Сообщения: 109
Репутация: 5
По умолчанию

Спасибо понятно! А вот еще вопрос, а если хочу сделать так чтобы при развернутой главной формы на весь экран последующее открытие функций разных открывалось только по середине? Это как сделать? Как я понимаю это надо присвоить кнопки координаты нахождения последующей открытой форме? Только как это сделать?
У меня на главной форме прописано так, что при любом разрешении главная форма разворачивается максимально т.е подстраивается под разрешение!

Заранее благодарен!
Ответить с цитированием
  #9  
Старый 22.11.2009, 12:17
Йогурт Йогурт вне форума
Начинающий
 
Регистрация: 20.11.2009
Сообщения: 109
Репутация: 5
По умолчанию

Просто если прописать это под моё разрешение, соответственно если оно будет открыто под другим разрешением то форма сдвинится!
Ответить с цитированием
  #10  
Старый 22.11.2009, 12:19
Йогурт Йогурт вне форума
Начинающий
 
Регистрация: 20.11.2009
Сообщения: 109
Репутация: 5
По умолчанию

На главной форме в Events прописан такой вод код!

Top := 0;
Left := 0;
Width := Screen.Width;
Height := SCreen.Height;
Ответить с цитированием
  #11  
Старый 22.11.2009, 12:22
Аватар для march
march march вне форума
Начинающий
 
Регистрация: 04.05.2009
Сообщения: 110
Репутация: 18
По умолчанию

Не совсем понял, что подразумевается под "функцией" в данном контексте.
А так если надо по центру вывести какой-либо объект(не важно, кнопка или форма), то забиваешь для него координаты, центруешь относительно чего-нибудь(относительно главной или дочерней формы).
добавлено спустя.....
значит сразу для всего забиваешь координаты(координаты относительно текущей формы)
Ответить с цитированием
  #12  
Старый 22.11.2009, 12:37
Йогурт Йогурт вне форума
Начинающий
 
Регистрация: 20.11.2009
Сообщения: 109
Репутация: 5
По умолчанию

На моей главной форме есть компонент MainMenu! В нем написана кнопочка Отчет о продаже! Когда нажимаешь на Отчет о продаже появл другая форма с DBGrid-ом! Так вот мне надо чтобы эта форма была по середине первой главной формы!
Ответить с цитированием
  #13  
Старый 22.11.2009, 12:40
Йогурт Йогурт вне форума
Начинающий
 
Регистрация: 20.11.2009
Сообщения: 109
Репутация: 5
По умолчанию

Мысли есть как это сделать, но не понятно одно! На моей главной форме прописан вот такой код:

Top := 0;
Left := 0;
Width := Screen.Width;
Height := SCreen.Height;

Он подстраивает полное разворачивание главной формы на весь экран под разрешение! Т.е если разрешение 1024 на 768 то разв под это разрешение, если 1366 на 768 то соответственно под это!
Ответить с цитированием
  #14  
Старый 22.11.2009, 12:42
Йогурт Йогурт вне форума
Начинающий
 
Регистрация: 20.11.2009
Сообщения: 109
Репутация: 5
По умолчанию

Также надо чтобы другая форма подстраивалась под разрешение и разворачивалась по середине экрана т.е главной формы!
Ответить с цитированием
  #15  
Старый 22.11.2009, 12:42
Йогурт Йогурт вне форума
Начинающий
 
Регистрация: 20.11.2009
Сообщения: 109
Репутация: 5
По умолчанию

Фух, надеюсь понятно объяснил
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 19:27.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter