I
"РЛ" - НАЧИНАЮЩИМ
К
И в по-
явившемся
месте
ре-
д а к т о р а
кода пишем
наш
код
(врезка 1).
Продела-
ем данную
операцию
для всех че-
тырех Panel-
ей.
Листинг
программы
представлен
на врезке 2.
Потом удалим компонент Image и
скомпилируем нашу программу (кнопка
Run). Если вы все делали правильно, то у
вас не будет ошибок. Правда, компиляция
длится несколько минут, приблизительно
5. В это время попрошу вас ничего не де-
лать с компьютером, пускай думает себе
на здоровье ©.
Вот программа скомпилировалась и
работает (рис. 6)!
Если что-то не получилось или не понят-
ны мои действия, читайте подшивку жур-
нала “Радиолюбитель", а если и там не на-
шли ответа, пишите мне на e-mail, с радо-
стью помогу ©.
I РапеИ
Properties Events
I “ ОпСяЛы'йе '
[ OnC
lck
;
| OnConshained
i OnOrtekirccr.
; QnDbOck j
j OnDockDrop ;
I OnDockOver j
OnOregJ.op
DnDragQver
OnEndDock
OnEndDiag
OnEnlei
OnExit
OnGetSiielnfo1
3
OnMouseDowr
OnMouseMove
nnMfwwrtilln
i
z l‘
Рис. 5
//—
---------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include “Unifl.h”
//------------------------------------------------------
#pragma package(smart_init)
#pragma resource “*.dfm”
TForml *Form1;
//------------------------------------------------------
_fas teal I TForml ::TForm1 (TComponent* Owner)
: TForm(Owner)
{
}
//------------------------------------------------------
void
_fastcall TForml ::Panel1 MouseDown(TObject ‘Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
ReleaseCapture();
PaneH->Perform(WM_SYSCOMMAND,0xF012,0);
}
//------------------------------------------------------
©
void
_fastcall TForml ::Panel2MouseDown(TObject ‘Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
ReleaseCapture();
Panel2->Perform(WM_SYSCOMMAND,0xF012,0);
}
//
-------- -
---------------------------------------------
void
_fastcall TForml ::Panel3MouseDown(TObject ‘Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
ReleaseCapture();
Panel3->Perform(WM_SYSCOMMAND,0xF012,0);
}
//------------------------------------------------------
void
_fastcall TForml ::Panel4MouseDown(TObject ‘Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
ReleaseCapture();
Panel4->Perform(WM_SYSCOMMAND,0xF012,0);
}
//
-----------------------------------------------------
Радиолюбитель - 0 3 /2 0 0 8 U
37
предыдущая страница 37 Радиолюбитель 2008-03 читать онлайн следующая страница 39 Радиолюбитель 2008-03 читать онлайн Домой Выключить/включить текст