Архив форумов ЦИТФорума

[markus]

Есть: форма, Grid1 и кнопка (Button) на форме.
Задача: Заиметь возможность закрыть форму по F10
Результат: Хрен. При клике по кнопке - все ОК. При нажатии на F10 - Table1 на Grid1 закрывается, а сама форма висит.

Листинг в кастрированном виде:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
fBtnF10Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DBGrid1KeyUp(TObject *Sender, WORD &Key,
TShiftState Shift)
{
switch(Key)
{
case VK_F10:
fBtnF10Close();
break;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::fBtnF10Close()
{
Form1->AdsTable1->Active = false;
Form1->AdsTable1->Close();
Form1->AdsConnection1->Disconnect();
Form1->Close();
}

ЗЫ
Кореш конкретно предложил рубить анод:
FSlovTovar->Hide();
Application->Terminate();
но мне не нравится, не красиво как-то.

Уважаемые, посоветуйте сироте (по вопросу, конечно)
Спасибо.

[Neron]

Form1->Free();