Проблема с работой с несколькими формами

@Drony · Регистрация: 22.10.2011

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

Главное окно:

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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "MainForm.h"
#include "Playlist.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TForm2 *Form2;
//перемещение формы
bool dragging = false;
POINT MousePnt;
POINT point;
HWND hWnd;
RECT wndrect;
//Флаг для Play
bool fPlay = false;
//Флаг для Pause
bool fPause = false;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    Application->CreateForm(__classid(TForm2), &Form2);
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BXClick(TObject *Sender)
{
    Form1->Close();
}
//---Форма закрывается------------------------------------------------------------------------
void __fastcall TForm1::BXMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    Form1->BX->Picture->LoadFromFile("x3.png");
}
//---Нажатое состояние кнопки X------------------------------------------------------------------------
void __fastcall TForm1::BXMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
 
{
    Form1->BX->Picture->LoadFromFile("x2.png");
}
//---Курсор над кнопкой X------------------------------------------------------------------------
void __fastcall TForm1::BXMouseLeave(TObject *Sender)
{
    Form1->BX->Picture->LoadFromFile("x.png");
}
//---Обычное состояние кнопки Х------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    GetCursorPos(&MousePnt);
    dragging = true;
    SetCapture(hWnd);
}
//---Нажата ли мышь над формой------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
    if (dragging == true)//если нажата кнопка, то...
    {
        //получить текущую позицию курсора
        GetCursorPos(&point);
        //Откорректировать положение окна
        Form1->Left = TForm1::Left+(point.x - MousePnt.x);
        Form1->Top = TForm1::Top+(point.y - MousePnt.y);
        Form2->Left = Form1->Left;
        Form2->Top = Form1->Top + Form1->Height;
    //Установить новые размеры окна
        //SetWindowPos(hWnd,NULL,wndrect.left,wndrect.top,0,0,SWP_NOZORDER | SWP_NOSIZE);
        MousePnt = point;
    }
}
//---Движение окна------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    if (dragging == true)
    {
        dragging=false;
        ReleaseCapture();
        SendMessage(TForm1::Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
    }
}
//---Отпустить кнопку мыши (конец перемещения окна)------------------------------------------------------------------------
void __fastcall TForm1::BMinClick(TObject *Sender)
{
    Form1->WindowState = wsMinimized;
}
//---Окно сворачивается------------------------------------------------------------------------
void __fastcall TForm1::BMinMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    Form1->BMin->Picture->LoadFromFile("_3.png");
}
//---Нажатое состояние кнопки BMin------------------------------------------------------------------------
void __fastcall TForm1::BMinMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
 
{
    Form1->BMin->Picture->LoadFromFile("_2.png");
}
//---Курсор над кнопкой BMin------------------------------------------------------------------------
 
void __fastcall TForm1::BMinMouseLeave(TObject *Sender)
{
    Form1->BMin->Picture->LoadFromFile("_.png");
}
//---Обычное состояние кнопки BMin------------------------------------------------------------------------
 
void __fastcall TForm1::BMinMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    Form1->BMin->Picture->LoadFromFile("_.png");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BOClick(TObject *Sender)
{
    bool static flag = false;
    flag = !flag;
    if (flag)
    {
        Form1->FormStyle = fsStayOnTop;
        Form2->FormStyle = fsStayOnTop;
    }
    else
    {
        Form1->FormStyle = fsNormal;
        Form2->FormStyle = fsNormal;
    }
}
//---Поверх всех окон------------------------------------------------------------------------
void __fastcall TForm1::BOMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    bool static flag = false;
    flag = !flag;
    if (flag)
    {
        Form1->BO->Picture->LoadFromFile("o2.png");
    }
    else
    {
        Form1->BO->Picture->LoadFromFile("o.png");
    }
}
//---Состояние кнопки "поверх всех окон"------------------------------------------------------------------------
void __fastcall TForm1::BOMouseLeave(TObject *Sender)
{
    if(Form1->FormStyle == fsNormal)
        Form1->BO->Picture->LoadFromFile("o.png");
}
//---Обычное состояние кнопки "Поверх всех окон"------------------------------------------------------------------------
void __fastcall TForm1::BOMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
 
{
    Form1->BO->Picture->LoadFromFile("o2.png");
}
//---Курсор над кнопкой Поверх всех окон------------------------------------------------------------------------
void __fastcall TForm1::PLClick(TObject *Sender)
{
    bool static flag = false;
    flag = !flag;
    Form2->Left = Form1->Left;
    Form2->Top = Form1->Top + Form1->Height;
    Form2->Visible = flag;
}
//---Открыть/закрыть плейлист------------------------------------------------------------------------
void __fastcall TForm1::PLMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
 
{
    Form1->PL->Picture->LoadFromFile("PL2.png");
}
//---Курсор над кнопкой PL------------------------------------------------------------------------
void __fastcall TForm1::PLMouseLeave(TObject *Sender)
{
    if(!Form2->Visible)
    {
        Form1->PL->Picture->LoadFromFile("PL.png");
    }
}
//---Обычное состояние кнопки PL------------------------------------------------------------------------
void __fastcall TForm1::PLMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    if(Form2->Visible)
    {
        Form1->PL->Picture->LoadFromFile("PL2.png");
    }
    else
    {
        Form1->PL->Picture->LoadFromFile("PL.png");
    }
}
//---Нажатое состояние кнопки PL-----------------------------------------------------------------------//---Нажатое состояние кнопки "Back"------------------------------------------------------------------------//---Обычное состояние кнопки "Back"------------------------------------------------------------------------
void __fastcall TForm1::BBackMouseLeave(TObject *Sender)
{
    Form1->BBack->Picture->LoadFromFile("back.png");
}
//---Обычное соостояние кнопки "Back"------------------------------------------------------------------------
void __fastcall TForm1::BBackMouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
    Form1->BBack->Picture->LoadFromFile("back2.png");
}
//---Курсор над кнопкой "Back"------------------------------------------------------------------------
 
void __fastcall TForm1::BPauseMouseLeave(TObject *Sender)
{
    if(!fPause)
        Form1->BPause->Picture->LoadFromFile("pause.png");
}
//---Обычное состояние кнопки "Pause"------------------------------------------------------------------------
 
void __fastcall TForm1::BPauseMouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
    Form1->BPause->Picture->LoadFromFile("pause2.png");
}
//---Курсор над кнопкой "Pause"------------------------------------------------------------------------
 
void __fastcall TForm1::BPlayMouseLeave(TObject *Sender)
{
    if(!fPlay)
        Form1->BPlay->Picture->LoadFromFile("play.png");
}
//---Обычное состояние кнопки "Play"------------------------------------------------------------------------
 
void __fastcall TForm1::BPlayMouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
    Form1->BPlay->Picture->LoadFromFile("play2.png");
}
//---Курсор над кнопкой "Play"------------------------------------------------------------------------
 
void __fastcall TForm1::BStopMouseLeave(TObject *Sender)
{
    Form1->BStop->Picture->LoadFromFile("stop.png");
}
//---Обычное состояние кнопки "Stop"------------------------------------------------------------------------
 
void __fastcall TForm1::BStopMouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
    Form1->BStop->Picture->LoadFromFile("stop2.png");
}
//---Курсор над кнопкой "Stop"------------------------------------------------------------------------
 
void __fastcall TForm1::BFWDMouseLeave(TObject *Sender)
{
    Form1->BFWD->Picture->LoadFromFile("FWD.png");
}
//---Обычное состояние кнопки "FWD"------------------------------------------------------------------------
void __fastcall TForm1::BFWDMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{
    Form1->BFWD->Picture->LoadFromFile("FWD2.png");
}
//---Курсор над кнопкой "FWD"------------------------------------------------------------------------
 
void __fastcall TForm1::BBackMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    Form1->BPause->Picture->LoadFromFile("pause.png");
    fPause = false;
    fPlay = true;
    Form1->BPlay->Picture->LoadFromFile("play2.png");
    Form1->BBack->Top = Form1->BBack->Top + 2;
 
}
//---Кнопка Back нажата------------------------------------------------------------------------
 
void __fastcall TForm1::BBackMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    Form1->BBack->Top = Form1->BBack->Top - 2;
}
//---Кнопка Back отпущена------------------------------------------------------------------------
 
void __fastcall TForm1::BPauseMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    fPlay = false;
    fPause = true;
    Form1->BPause->Picture->LoadFromFile("pause2.png");
    Form1->BPlay->Picture->LoadFromFile("play.png");
    Form1->BPause->Top = Form1->BPause->Top + 2;
}
//---Кнопка Pause нажата------------------------------------------------------------------------
 
void __fastcall TForm1::BPauseMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    Form1->BPause->Top = Form1->BPause->Top - 2;
}
//---Кнопка Pause отпущена------------------------------------------------------------------------
 
void __fastcall TForm1::BPlayMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    fPlay = true;
    fPause = false;
    Form1->BPause->Picture->LoadFromFile("pause.png");
    Form1->BPlay->Picture->LoadFromFile("play2.png");
    Form1->BPlay->Top = Form1->BPlay->Top + 2;
}
//---Кнопка Play нажата------------------------------------------------------------------------
 
void __fastcall TForm1::BPlayMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    Form1->BPlay->Top = Form1->BPlay->Top - 2;
}
//---Кнопка Play отпущена------------------------------------------------------------------------
 
void __fastcall TForm1::BStopMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    fPause = false;
    Form1->BPause->Picture->LoadFromFile("pause.png");
    Form1->BPlay->Picture->LoadFromFile("play.png");
    Form1->BStop->Top = Form1->BStop->Top + 2;
}
//---Кнопка Stop нажата------------------------------------------------------------------------
 
void __fastcall TForm1::BStopMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    Form1->BStop->Top = Form1->BStop->Top - 2;
}
//---Кнопка Stop отпущена------------------------------------------------------------------------
 
void __fastcall TForm1::BFWDMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    Form1->BPause->Picture->LoadFromFile("pause.png");
    fPause = false;
    fPlay = true;
    Form1->BPlay->Picture->LoadFromFile("play2.png");
    Form1->BFWD->Top = Form1->BFWD->Top + 2;
}
//---Кнопка FWD нажата------------------------------------------------------------------------
 
void __fastcall TForm1::BFWDMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    Form1->BFWD->Top = Form1->BFWD->Top - 2;
}
//---Кнопка FWD отпущена------------------------------------------------------------------------
 
 
void __fastcall TForm1::BPlayClick(TObject *Sender)
{
    Form1->MediaPlayer1->FileName = "hugh_laurie_-_buddy_boldens_blues.mp3";
    Form1->MediaPlayer1->Open();
    Form1->MediaPlayer1->Play();
}
//---Play file------------------------------------------------------------------------

Второе окно (плейлист плеера)

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Playlist.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
void __fastcall TForm2::BPlusMouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
   Form2->BPlus->Picture->LoadFromFile("+_pl2.png");
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::BPlusMouseLeave(TObject *Sender)
{
    Form2->BPlus->Picture->LoadFromFile("+_pl.png");
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::BPlusMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    Form2->BPlus->Picture->LoadFromFile("+_pl3.png");
}
//---------------------------------------------------------------------------

Создаётся главная форма, при нажатии на кнопку "PL" открывается вторая форма.
При наведении на "кнопку" "BPlus" возникает ошибка:

Access violation at address 0040388C in module 'KKPlayer.exe'. Read of address 0000038C.

cpp_developer · 28.10.2011, 22:09

и без такой записи

C++
1
2
3
Form1->BMin->Picture->LoadFromFile("_3.png");
//...
Form2->BPlus->Picture->LoadFromFile("+_pl2.png");

не работает ? просто

C++
1
2
3
BMin->Picture->LoadFromFile("_3.png");
//...
BPlus->Picture->LoadFromFile("+_pl2.png");

если обращение к контролу формы, который принадлежит этой же форме , но это так, мысль

@DefineTrueFalse · 28.10.2011, 22:17

А в прочем, достаточно этого:

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
   if (Button == mbLeft)
   {
      ReleaseCapture();
      Perform(WM_SYSCOMMAND,0xF012,0);
      Form2->Left = Left;
      Form2->Top = Top + Height;
   }
}
//---------------------------------------------------------------------------

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

ну, не могут две формы одновременно быть StayOnTop, может, как-нибудь так

А это почему? StayOnTop не дает другим окнам заслонить указанные, в данном случае они не пересекаются, проблем быть не должно.

@Drony · 28.10.2011, 22:17 **[ТС]**

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

речь была о том, чтобы убрать TForm2 *Form2;
, достаточно #include "Playlist.h"
и вот это вызывает смутные сомнения:

C++
1
2
3
4
5
6
7
8
9
10
if (flag)
        {
                Form1->FormStyle = fsStayOnTop;
                Form2->FormStyle = fsStayOnTop;
        }
        else
        {
                Form1->FormStyle = fsNormal;
                Form2->FormStyle = fsNormal;
        }

ну, не могут две формы одновременно быть StayOnTop, ...

Да, не могут быть... Пусть будет только главная StayOnTop...)

А перемещение и так работает... я просто разогнался там комментить))

Вопрос решён) Получается, тема закрыта) Спасибо вам)) Будут ещё проблемы, создам ещё темы... думаю, проблемы ещё будут)))

@DefineTrueFalse · 28.10.2011, 22:21

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

если обращение к контролу формы, который принадлежит этой же форме , но это так, мысль

Ну этого точно не может быть. Тогда бы указания всяких Name, Titile распространялось на все дочерние компоненты, для наследования используются всякие ParentFont и т.п.
Поэтому указание обращения к конретной форме обязательно, интерпретированно оно выглядит так:

C++
1
2
3
this->BMin->Picture->LoadFromFile("_3.png");
//...
this->Form2->BPlus->Picture->LoadFromFile("+_pl2.png");

Все, понял, касательно обращения к контролам, не внимательно на код глянул

Это бы повлияло, в случае создания прототипа TForm2 динамически.

@Drony · 28.10.2011, 22:30 **[ТС]**

А есть разница между Form1-> и this->?

@DefineTrueFalse · 28.10.2011, 22:53

В первом юните this = Form1, во втором this = Form2, можно сказать, это обращение к элементу класса с которым сейчас идет работа.
Но LK, правильно заметил, что не стоит писать обращение вроде "Form1->Bmin", если можно обратиться напрямую. В текущем коде это не вызовет ошибки, но когда будет работа с динамикой - это может вызвать много головной боли. Поэтому лучше избавиться от этой привычки и обращаться подобным образом, только когда это необходимо.

@Drony · 29.10.2011, 01:00 **[ТС]**

Ладно, не буду) Просто мне казалось, что так легче)

cpp_developer · 29.10.2011, 01:12

указывать Form2 следует при обращении из Form1 к компоненту на Form2 (при условии подключения заголовочного файла Form2 ) , насколько я помню

, указывать владельца следует также при обращении из фрейма к форме и наоборот , а также при обращении к контролу на форме из функции, которая не является членом класса формы

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

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

в таком контексте да, согласен

Новые блоги и статьи Все статьи Все блоги /
Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .

@Drony 1 / 1 / 0 Регистрация: 22.10.2011 Сообщений: 18
	28.10.2011, 22:30 [ТС]
	А есть разница между Form1-> и this->? 0

@DefineTrueFalse 872 / 448 / 35 Регистрация: 25.10.2011 Сообщений: 910
	28.10.2011, 22:53
	В первом юните this = Form1, во втором this = Form2, можно сказать, это обращение к элементу класса с которым сейчас идет работа. Но LK, правильно заметил, что не стоит писать обращение вроде "Form1->Bmin", если можно обратиться напрямую. В текущем коде это не вызовет ошибки, но когда будет работа с динамикой - это может вызвать много головной боли. Поэтому лучше избавиться от этой привычки и обращаться подобным образом, только когда это необходимо. 0

@Drony 1 / 1 / 0 Регистрация: 22.10.2011 Сообщений: 18
	29.10.2011, 01:00 [ТС]
	Ладно, не буду) Просто мне казалось, что так легче) 0