Перетаскивать форму без рамки

@Tdutybq · Регистрация: 18.01.2012

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

Как перетащить форму без рамки в C++ BUILDER 6.0 ??? На форме есть компонент Image и при нажатии на него и перетаскивании должна перетаскиваться форма.

C++
1
2
3
4
long SC_DRAGMOVE = 0xF012;
if(Button == mbLeft){
ReleaseCapture();
SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);  }

Код, что выше работает только для формы, но не для Image....Подскажите, кто знает

@SwEeTxD · 08.09.2012, 23:29

На Unit.cpp

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
//---------------------------------------------------------------------------
bool CanMove = false;
int SX, SY;
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
if(Button == mbLeft)
{
    CanMove = true;
    SX = X;
    SY = Y;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
CanMove = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
if(CanMove)
{
    Form1->Left = Form1->Left + X - SX;
    Form1->Top  = Form1->Top  + Y - SY;
}
//---------------------------------------------------------------------------

На Unit.h

C++
1
2
3
4
5
6
7
8
9
class TForm1 : public TForm
{
__published:
    void __fastcall Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y);
    void __fastcall Image1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y);
    void __fastcall Image1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y);
......

@volvo · 08.09.2012, 23:32

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

Код, что выше работает только для формы, но не для Image

Если в инспекторе объектов для Image.OnMouseDown выбрать этот же обработчик, то будет перетягиваться и за Image (да, да, скрин снят с 2009-го Билдера, но и в 6-ом можно сделать то же самое) :

@nick42 · 09.09.2012, 02:25

C++
1
2
3
4
5
6
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
      ReleaseCapture();
      Perform(WM_SYSCOMMAND, 0xF012, 0);
}

Если это не критично, то установите у картинки свойство Enabled false.

@nobby · 09.09.2012, 14:44

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
//---------------------------------------------------------------------------
 
#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::FormCreate(TObject *Sender)
{
Form1->Color = clFuchsia;
Form1->TransparentColor = true;               //Код для Прозрачности формы
Form1->TransparentColorValue = clFuchsia;
Form1->BorderStyle = bsNone;
}
 
 
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
long SC_DRAGMOVE = 0xF012;
 if(Button == mbLeft)                //код отвечающий за перемещение форм за картитнку при этом задействовано MouseDown
  {
  ReleaseCapture();
  SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
 }        
}
//---------------------------------------------------------------------------

Держи и все работать будет.

Новые блоги и статьи Все статьи Все блоги /
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .