Склеить 2 формы

@Sasha · Регистрация: 05.06.2008

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

Здравствуйте!

Ребята подскажите по такому вопросу

Можно ли как-нить склеить 2 формы чтобы было как в Винампе. Тоесть есть 2 формы, когда главная форма находитбся близко ко второй то они склеиваются и потом тягая за одну форму, тягается и другая.

Заранее благодарен.

@Gremlin · 29.11.2010, 00:11

Могу посоветовать по Handle окна проводить эти операции

1) Получить HWND главной формы и узнать ее позицию
2) при перетаскивании второй формы определить на каком расстоянии они находятся

упс. не по HWND а просто узнать позиции (так как вторая форма Ваша)

@Sasha · 29.11.2010, 00:21 **[ТС]**

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

(так как вторая форма Ваша)

Они обе мои так как это один проект

@Gremlin · 29.11.2010, 00:31

просто я не знаю, какое событие идет при движении формы,
поэтому двигаю ее за Клиентскую оюласть а не за заголовок

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
//---------------------------------------------------------------------------
void __fastcall TForm2::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
    long SC_DRAGMOVE = 0xF012;
    if(Button == mbLeft)
    {
        ReleaseCapture();
        SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
    }
    int otstup = 25; // отступ, т.е. если Форма2 на расстоянии 25px от Форм1
 
    int f1_top = Form1->Top;
    int f1_left = Form1->Left;
    int f1_bottom = Form1->Top + Form1->Height;
    int f1_right = Form1->Left + Form1->Width;
 
    int f2_top = Form2->Top;
    int f2_left = Form2->Left;
    int f2_bottom = Form2->Top + Form2->Height;
    int f2_right = Form2->Left + Form2->Width;
 
    if(f2_left <= f1_right + otstup) // прилипание справа к Первой форме
    {
        Form2->Left = f1_right;
    }
}
//---------------------------------------------------------------------------

вот тут я делал прилипание к краям экрана когда то...
Прилипание формы к краям экрана как QIP например

проще говоря: много вычислять нужно...

Тема актуальна и интересна, так как я хотел такое сделать... но тогда опыта небыло

@Sasha · 29.11.2010, 00:46 **[ТС]**

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

просто я не знаю, какое событие идет при движении формы,
поэтому двигаю ее за Клиентскую оюласть а не за заголовок

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
//---------------------------------------------------------------------------
void __fastcall TForm2::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
    long SC_DRAGMOVE = 0xF012;
    if(Button == mbLeft)
    {
        ReleaseCapture();
        SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
    }
    int otstup = 25; // отступ, т.е. если Форма2 на расстоянии 25px от Форм1
 
    int f1_top = Form1->Top;
    int f1_left = Form1->Left;
    int f1_bottom = Form1->Top + Form1->Height;
    int f1_right = Form1->Left + Form1->Width;
 
    int f2_top = Form2->Top;
    int f2_left = Form2->Left;
    int f2_bottom = Form2->Top + Form2->Height;
    int f2_right = Form2->Left + Form2->Width;
 
    if(f2_left <= f1_right + otstup) // прилипание справа к Первой форме
    {
        Form2->Left = f1_right;
    }
}
//---------------------------------------------------------------------------

вот тут я делал прилипание к краям экрана когда то...
Прилипание формы к краям экрана как QIP например

проще говоря: много вычислять нужно...

Тема актуальна и интересна, так как я хотел такое сделать... но тогда опыта небыло

Голяк...................... Чёто ничё оно не прилипает. Вторая форма вообще куда исчезает

@Gremlin · 29.11.2010, 01:04

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
//---------------------------------------------------------------------------
void __fastcall TForm2::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
    long SC_DRAGMOVE = 0xF012;
    if(Button == mbLeft)
    {
        ReleaseCapture();
        SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
    }
    int otstup = 25; // отступ, т.е. если Форма2 на расстоянии 25px от Форм1
 
    int f1_top = Form1->Top;
    int f1_left = Form1->Left;
    int f1_bottom = Form1->Top + Form1->Height;
    int f1_right = Form1->Left + Form1->Width;
    /////////////////////////////////////
    int f2_top = Form2->Top - otstup;
    int f2_left = Form2->Left - otstup;
    int f2_bottom = Form2->Top + Form2->Height + otstup;
    int f2_right = Form2->Left + Form2->Width + otstup;
    // узнали с на каком расстоянии Форма2 от формы1 со всех сторон
    int rightX = (f2_left - f1_right); // расстояние справа
    int leftX = (f1_left - f2_right); // left
    int topX = (f1_top - f2_bottom); // top
    int bottomX = (f1_bottom - f2_top); // bottom
    // теперь нужно узнать, пересикется ли расстояние формы2 к форме1
    // для приклеивания
    if(f2_bottom >= f1_top && f2_top <= f1_bottom)
    {
        if(f2_right >= f1_left && f2_left <= f1_right)
        {
            // тут найти наименьшее число (по модулю),
            // то с той чтороны и прилепить
            //
            ShowMessage(
            AnsiString(rightX) + "\n" +
            AnsiString(leftX) + "\n" +
            AnsiString(topX) + "\n" +
            AnsiString(bottomX)
            );
        }
    }
}
//---------------------------------------------------------------------------

@Sasha · 29.11.2010, 01:11 **[ТС]**

Не понятно что ты хотел этим показать, координаты показываются но форма не прилипает одна к другой

@Gremlin · 29.11.2010, 02:00

Вроде прилипает со всех сторон

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
//---------------------------------------------------------------------------
void __fastcall TForm2::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
    long SC_DRAGMOVE = 0xF012;
    if(Button == mbLeft)
    {
        ReleaseCapture();
        SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
    }
    int otstup = 25; // отступ, т.е. если Форма2 на расстоянии 25px от Форм1
 
    int f1_top = Form1->Top;
    int f1_left = Form1->Left;
    int f1_bottom = Form1->Top + Form1->Height;
    int f1_right = Form1->Left + Form1->Width;
    /////////////////////////////////////
    int f2_top = Form2->Top - otstup;
    int f2_left = Form2->Left - otstup;
    int f2_bottom = Form2->Top + Form2->Height + otstup;
    int f2_right = Form2->Left + Form2->Width + otstup;
    // узнали с на каком расстоянии Форма2 от формы1 со всех сторон
    int rightX = (f2_left - f1_right); // расстояние справа
    int leftX = (f1_left - f2_right); // left
    int topX = (f1_top - f2_bottom); // top
    int bottomX = (f1_bottom - f2_top); // bottom
    // теперь нужно узнать, пересикется ли расстояние формы2 к форме1
    // для приклеивания
    if(f2_bottom >= f1_top && f2_top <= f1_bottom)
    {
        if(f2_right >= f1_left && f2_left <= f1_right)
        {
            // НУ НЕЗНАЮ Я КАК МАССИВ ОТСОРТИРОВАТЬ ПО МОДУЛЮ =)
            // ПОЭТОМУ ПУСТЬ ТАК БУДЕТ
            if(abs(rightX) <= abs(leftX) && abs(rightX) <= abs(topX) && abs(rightX) <= abs(bottomX))
            {
                Form2->Left = Form1->Left + Form1->Width;
                // задать в переменную что приклеилось
            }
            else if(abs(leftX) <= abs(rightX) && abs(leftX) <= abs(topX) && abs(leftX) <= abs(bottomX))
            {
                Form2->Left = Form1->Left - Form2->Width;
                // задать в переменную что приклеилось
            }
            else if(abs(bottomX) <= abs(rightX) && abs(bottomX) <= abs(leftX) && abs(bottomX) <= abs(topX))
            {
                Form2->Top = Form1->Top + Form1->Height;
                // задать в переменную что приклеилось
            }
            else if(abs(topX) <= abs(rightX) && abs(topX) <= abs(leftX) && abs(topX) <= abs(bottomX))
            {
                Form2->Top = Form1->Top - Form2->Height;
                // задать в переменную что приклеилось
            }
            else
            {
                // Вторая часть вопроса:
                // ... и потом тягая за одну форму, тягается и другая ...
                //
                // место для глобально переменной, чтоб Первая Форма знала
                // приклеено ли к ней это окно или нет
                // тут задать что окно не приклеено
                //
                // И когда двигать Первую Форму->
                // если вторая приклеена то Двигать вместе с собой вторую
            }
        }
    }
}
//---------------------------------------------------------------------------

Не по теме:

Может если будет время продолжу... и сделаю через цикл: пробегать по всем окнам проекта

@Gremlin · 29.11.2010, 04:22

движения Первой формы вместе со второй идею взял отсюда Перемещение двух форм одновременно

@Sasha · 29.11.2010, 11:35 **[ТС]**

Ну вот это то, что надо спасибо тебе, а что борта специально убрал?

@Gremlin · 29.11.2010, 15:18

я не знаю как отловить сообщение когда форму двигают за ЗАГОЛОВОК, поэтому все это работает когда форму двигаю за ее "тело" (Поэтому борта и убрал, если за них перетаскивать то ничего не получается)

Склеивает >= 2 форм

тут я объявил для Form1

C++
1
void __fastcall TForm1::prilip(TForm * SendForm)

и потом просто в каждой форме прописать #include "Unit1.h"
и повесть на OnMouseDown

C++
1
2
3
ReleaseCapture();
SendMessage(this->Handle, WM_SYSCOMMAND, 0xF012, NULL);
Form1->prilip(this);

только меня шлейфы раздражают... либо из за цикла (хотя всего 3 формы в этом проекте) либо из за специфического передвижения...

@Sasha · 29.11.2010, 17:10 **[ТС]**

Сейчас остаётся вопрос как реализовать когда тянуть за шапку формы, а не за её канву

@Gremlin · 29.11.2010, 17:14

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

Сейчас остаётся вопрос как реализовать когда тянуть за шапку формы, а не за её канву

Полностью согласен!

Вот именно - как узнать, когда передвигают форму? через таймер - бессмысленно, Hook наверно нужно на WM_MOVE

@Gremlin · 01.12.2010, 04:41

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

где тут может быть ошибка - непойму
в цикле ясно прописано: если у формы Тэг == 1 то MoveWindow()
но это происходит только для той формы, которая была активна последней а вторая так, подрыгивается маленько и все!
(есть 3 формы, Форм1 главная, Форм2 и Форм3 дополнительные, если я кликну мышкой по форм3 то она быдет тащится а Форм2 - нет, и наоборот если клик по Форм2 то Форм3 тогда не хочет двигаться, или тоже самое в порядки их показа, та которая последней Form->Show() та и будет работать как нужно)

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
    for(int i = 0; i < Screen->FormCount; i++)
    {
        if(Screen->Forms[i]->Showing)
        {
            if(Screen->Forms[i]->Handle != this->Handle)
            {
                // если форма приклеена то тащим за собой
                if(Screen->Forms[i]->Tag == 1)
                {
                    MoveWindow(
                    Screen->Forms[i]->Handle,
                    Screen->Forms[i]->Left + Form1->Left - old_x, // смещение по X
                    Screen->Forms[i]->Top + Form1->Top - old_y, // по Y
                    Screen->Forms[i]->Width,
                    Screen->Forms[i]->Height,
                    true
                    );
                }
                //else// посылаем всем окнам сообщение Что главная Форма двигается
                //{   // и чтоб если близко то приклеивались
 
                    //SendMessage(Screen->Forms[i]->Handle, WM_MOVE, NULL, NULL);
                    Prilipanie(Screen->Forms[i]);
                //}
            }
        }
    }

@Gremlin · 02.12.2010, 06:18

Меня эта тема прям за живое взяла...
вообщем не получилось у меня при перетаскивании за заголовок
таскать за Главной формой еще 2 формы - только одну

Вот тут красиво но только 2 формы... и подергиваются при прилипании... может WM_PAINT теперь нужно обрабатывать как то - незнаю

можно сказать чистый проект на 2 формы...

Новые блоги и статьи Все статьи Все блоги /
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3

	Склеить 2 формы 28.11.2010, 23:48. Показов 2566. Ответов 14 Метки нет (Все метки) Здравствуйте! Ребята подскажите по такому вопросу Можно ли как-нить склеить 2 формы чтобы было как в Винампе. Тоесть есть 2 формы, когда главная форма находитбся близко ко второй то они склеиваются и потом тягая за одну форму, тягается и другая. Заранее благодарен. 0

@Gremlin 519 / 307 / 58 Регистрация: 30.07.2008 Сообщений: 607
	29.11.2010, 00:11
	Могу посоветовать по Handle окна проводить эти операции 1) Получить HWND главной формы и узнать ее позицию 2) при перетаскивании второй формы определить на каком расстоянии они находятся упс. не по HWND а просто узнать позиции (так как вторая форма Ваша) 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	29.11.2010, 01:11 [ТС]
	Не понятно что ты хотел этим показать, координаты показываются но форма не прилипает одна к другой 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	29.11.2010, 11:35 [ТС]
	Ну вот это то, что надо спасибо тебе, а что борта специально убрал? 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	29.11.2010, 17:10 [ТС]
	Сейчас остаётся вопрос как реализовать когда тянуть за шапку формы, а не за её канву 0