запрет на растягивание формы

@kv1nt · Регистрация: 25.05.2010

Студворк — интернет-сервис помощи студентам

есть ли какой код который запрещает растягивать форму?

@PB · 11.01.2011, 22:39

В свойствах формы можно копаться.

@Grey · 11.01.2011, 23:56

Поменяй свойство формы BorderStyle н-р на Single

@kv1nt · 12.01.2011, 00:50 **[ТС]**

Сообщение от Grey

Поменяй свойство формы BorderStyle н-р на Single

я не профи в програмировании, но это азы- и их я знаю,просто мне нужно было что бы форма не растягивалась но одновременно с этим и можно ее было передвигать =) в принципе я могу и border использовать и написать код что бы передвигать форму...но интересно можно ли так запретить

@Vlad_IT · 12.01.2011, 01:22

kv1nt, Можно способ легкий взять. Например.Обьявляешь глобальные переменные

C++
1
int w,h;

В созданиие формы (Form Create) Пишешь это

C++
1
2
w = Form1->Width;
h = Form1->Height;

И создаешь событие OnRezise и там пишешь.

C++
1
2
Form1->Height = h;
 Form1->Width = w;

Все. Подведем итоги. Вот что у нас получилось.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int w,h;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormResize(TObject *Sender)
{
 Form1->Height = h;
 Form1->Width = w;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
w = Form1->Width;
h = Form1->Height;
}
//---------------------------------------------------------------------------

Удачи!

@kv1nt · 12.01.2011, 01:38 **[ТС]**

Vlad_IT, спасибо =) чуток моей доработки и то, что мне нужно =)

@Matrix · 12.01.2011, 13:34

Есть у формы метод такой, волшебный - CanResize(...){CanResize=false;} //билдера под рукой нет!

@Vlad_IT · 12.01.2011, 13:55

Да. Этот способ будет по лучше.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCanResize(TObject *Sender, int &NewWidth,
      int &NewHeight, bool &Resize)
{
Resize = false;
}
//---------------------------------------------------------------------------

@NiTan · 12.01.2011, 15:41

Вмжу, тут конкурс на самый простой способ. Так вот подкину еще один:
Нужно настроить свойство Constraits у формы, которое отвечает за наличие максимальных и минимальных размеров у формы.

@MikeSoft · 15.01.2011, 22:58

Сообщение от NiTan

Вмжу, тут конкурс на самый простой способ. Так вот подкину еще один:

Ну так и быть, я ещё один подкину...

В области private заголовочного файла класса формы добавляем следующее (перехват сообщения и прототип функции-обработчика):

C++
1
2
3
4
void virtual __fastcall WMChangePos(TWMWindowPosChanging &Message);
BEGIN_MESSAGE_MAP
  VCL_MESSAGE_HANDLER(WM_WINDOWPOSCHANGING,TWMWindowPosChanging,WMChangePos);
END_MESSAGE_MAP(TForm);

И затем в файле с кодом описываем саму функцию:

C++
1
2
3
4
5
void __fastcall TForm1::WMChangePos(TWMWindowPosChanging &Message)
{
  Message.WindowPos->cx = 640;
  Message.WindowPos->cy = 480;
}

Методов очень много ...

@Vlad_IT · 15.01.2011, 23:35

Уже целая коллекция.

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@kv1nt 2 / 2 / 0 Регистрация: 25.05.2010 Сообщений: 47

	запрет на растягивание формы 11.01.2011, 22:27. Показов 8063. Ответов 10 Метки нет (Все метки) есть ли какой код который запрещает растягивать форму? 0

@PB Просто прогер 1292 / 1079 / 13 Регистрация: 13.03.2009 Сообщений: 2,502
	11.01.2011, 22:39
	В свойствах формы можно копаться. 0

@Grey Тутошний я 2147 / 1202 / 225 Регистрация: 03.11.2009 Сообщений: 4,424 Записей в блоге: 2
	11.01.2011, 23:56
	Поменяй свойство формы BorderStyle н-р на Single 0

@kv1nt 2 / 2 / 0 Регистрация: 25.05.2010 Сообщений: 47
	12.01.2011, 01:38 [ТС]
	Vlad_IT, спасибо =) чуток моей доработки и то, что мне нужно =) 0

@Matrix Now I Matrix 137 / 134 / 28 Регистрация: 01.03.2010 Сообщений: 223
	12.01.2011, 13:34
	Есть у формы метод такой, волшебный - CanResize(...){CanResize=false;} //билдера под рукой нет! 0

@NiTan Покинул форум 3189 / 1368 / 109 Регистрация: 29.01.2010 Сообщений: 2,887
	12.01.2011, 15:41
	Вмжу, тут конкурс на самый простой способ. Так вот подкину еще один: Нужно настроить свойство Constraits у формы, которое отвечает за наличие максимальных и минимальных размеров у формы. 0

@Vlad_IT 1452 / 360 / 61 Регистрация: 03.04.2010 Сообщений: 2,096
	15.01.2011, 23:35
	Уже целая коллекция. 0