MagistrAnatol
Silver Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
deks
понятно
помогите довести до ума код
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{
if (Y==0) {
Cursor=crHandPoint;
} else
{
Cursor=crDefault;
Left=0;
Top=0;
Form1->WindowState=wsMaximized;
}
if (Shift.Contains(ssLeft) && Y>Screen->Height/2)Application->Terminate(); - Не хочет закрывать приложение
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
int X, int Y)
{
if(Button == mbLeft && Y==0)
{
Form1->WindowState=wsNormal;
Width=600;
Height=600;
long SC_DRAGMOVE = 0xF012;
ReleaseCapture();
SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
int X, int Y)
{
Left=0;
Top=0;
Form1->WindowState=wsMaximized;
}
//---------------------------------------------------------------------------
Добавлено:
основные проблемы - не закрывается приложение и если я передумал у меня форма по среди екрана , курсор за пределами формы и чтобы форма опять максимизировалась надо только подводить курсор на форму |
больше всего меня интересует как закрыть приложение как в 8. 
