![]() |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
![]()
|
|
| Cashey |
|
|||
|
Unregistered |
Хотелось бы иметь такую полезную вещь как стретчер (изменитель размеров элиментов формы и их положения на форме при изменении ее размера), можно, конечно, попробовать такую процедура написать самому, но уверен это уже многократно делали и не один программер. Поделитись plis или линк подкиньти.
|
|||
|
||||
| Vit |
|
|||
![]() Vitaly Nevzorov ![]() ![]() ![]() ![]() Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 48 Всего: 207 |
А зачем? Начиная с Дельфи 5 у всех оконных элементов появились свойства Align и Constrains которые позволяют управлять или надо что-то другое?
-------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
| Cashey |
|
|||
![]() Бессмертный ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 3441 Регистрация: 13.11.2002 Где: в столице Репутация: 2 Всего: 60 |
А ты попробуй размести на форме 2 кнопки обычных размеров, откомпилируй и измени размер формы, а теперь посмотри как изменяется размер кнопок и (главное) растояние между кнопками, и кнопками и краями формы. Свойство Constrains позволяет всего лишь установить ограничения на изменения размера элимента, а Align определяет способ выравнивания компонента внутри родительского компонента и не более. -------------------- библия учит любить ближнего, а камасутра обучает как именно |
|||
|
||||
| Vit |
|
|||
![]() Vitaly Nevzorov ![]() ![]() ![]() ![]() Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 48 Всего: 207 |
А, вот оно что... Как то никогда не задовался такой целью...
-------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
| Vit |
|
|||
![]() Vitaly Nevzorov ![]() ![]() ![]() ![]() Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 48 Всего: 207 |
Что-то похожее я видел, кажись на www.torry.net
-------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
| Song |
|
|||
![]() Sysman.ru ![]() ![]() ![]() Профиль Группа: Участник Сообщений: 1095 Регистрация: 2.6.2002 Репутация: 2 Всего: 4 |
Дык Perform. И две константы: SC_DRAGMOVE и ещё какая-то.
-------------------- Прежде чем сказать "Невозможно", подумай, прав ли ты |
|||
|
||||
| Cashey |
|
|||
![]() Бессмертный ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 3441 Регистрация: 13.11.2002 Где: в столице Репутация: 2 Всего: 60 |
На torry я смотрел перед тем как открыть тему, конкретно этого я не нашел; возможно в чем-то и встречается, но ведь все же не перелопатишь. Если сможет кто указать поконкретнее буду очень признателен
-------------------- библия учит любить ближнего, а камасутра обучает как именно |
|||
|
||||
| nsvi |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 12 Регистрация: 15.9.2002 Репутация: нет Всего: нет |
Я делаю это так, к примеру:
{Отслеживание изменения размеров формы} procedure TForm1.FormResize(Sender: TObject); begin TabControl1.Width:=Form1.Width-12; TabControl1.Height:=Form1.Height-80; Bevel1.Width:=Form1.Width-12; Bevel2.Width:=Form1.Width-12; end; {Отслеживание изменения размеров TabControl} procedure TForm1.TabControl1Resize(Sender: TObject); begin RichEdit1.Width:=TabControl1.Width-7; RichEdit1.Height:=TabControl1.Height-30; RichEdit2.Width:=TabControl1.Width-7; RichEdit2.Height:=TabControl1.Height-30; end; Поясню - при изменении размеров формы отслеживаю событие FormResize и комонента TabControl1Resize, в соответствии с этим устанавливаю размеры RichEdit. А при создании формы привязываю левый верхний угол TabControl1 к форме {Открытие формы} procedure TForm1.FormCreate(Sender: TObject); beginTabControl1.Left:=3; TabControl1.Top:=35; Вроде все, теперь при создании формы TabControl привязан к углу формы, а при изменении ее размеров изменяются размеры TabControl и затем RichEdit. Такое проделать со всеми компонентами на форме и все ОК. У меня проблем не возникает. А пришлось так сделать потому, что выше TabControl еще кое-что стоит и если задать align=client для TabControl, то он закрывает это кое-что, сделав align=bottom верхняя граница TabControl остается на месте - при увеличении формы появляется большое пустое пространство, при уменьшении закрывается кое-что. |
|||
|
||||
| МММ |
|
|||
|
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 354 Регистрация: 18.6.2002 Репутация: нет Всего: 1 |
Я использую компонент AutoPanel, все что на него кидаешь меняет свой размер. Линк не помню, если надо скину ....
|
|||
|
||||
![]()
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |