Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.03.2011, 10:55   #1
Fastah
Пользователь
 
Регистрация: 03.11.2010
Сообщений: 39
По умолчанию Выравнивание компонентов в Delphi

Имеем следующее:
2 groupbox'a
красная линяя на рисунке (центр формы)

Нужно что бы groupbox'ы при любом разрешении имели ширину 50%

Изображения
Тип файла: jpg 1.jpg (38.9 Кб, 165 просмотров)
Fastah вне форума Ответить с цитированием
Старый 28.03.2011, 11:35   #2
mss
Заблокирован
 
Регистрация: 27.05.2010
Сообщений: 1,099
По умолчанию

в обработчике формы OnResize у обоих групбоксов

Width := ClientWidth div 2
mss вне форума Ответить с цитированием
Старый 28.03.2011, 11:38   #3
tsar_
Форумчанин
 
Аватар для tsar_
 
Регистрация: 06.01.2011
Сообщений: 369
По умолчанию

Раз окно программы привязывается к размерам экрана (в пикселях), то нужно непосредственно в программе считывать его размеры, а для задания размеров и положения формы и ее компонент использовать функциональные зависимости, связанные с разрешениям экрана или формы.
Например, чтобы уже при создании форма проги была бы на весь экран (при этом видна панель задач) в событие формы OnCreate можно написать:
Код:
procedure TForm1.FormСreate(Sender: TObject);
var
 AreaRect : TRect;
begin
 Form1.Top:=0;
 Form1.Left:=0;
 SystemParametersInfo(SPI_GETWORKAREA, 0, @AreaRect, 0);   //считываем размеры
 Form1.Height:=AreaRect.Bottom;                                          //рабочей зоны экрана
 Form1.Width:=AreaRect.Right;
end;
В том же духе координируются компоненты формы (координаты верхнего левого угла, ширина и высота).
Теперь остается разобраться: 50% от чего (?), и кодировать
Программирую по необходимости
tsar_ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Использование компонентов Delphi Ericnex Помощь студентам 2 07.04.2010 19:50
Создание компонентов в Delphi iiunbreakableii Компоненты Delphi 3 08.02.2010 11:41
Создание компонентов Delphi Frozen inside Помощь студентам 4 18.04.2009 12:00