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
|
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton1Click(TObject *Sender)
{
RadioButton2->Checked = false;
RadioButton3->Checked = false;
RadioButton4->Checked = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton2Click(TObject *Sender)
{
RadioButton1->Checked = false;
RadioButton3->Checked = false;
RadioButton4->Checked = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton2MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
RadioButton1->Checked = false;
RadioButton3->Checked = false;
RadioButton4->Checked = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
RadioButton2->Checked = false;
RadioButton3->Checked = false;
RadioButton4->Checked = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton3Click(TObject *Sender)
{
RadioButton1->Checked = false;
RadioButton2->Checked = false;
RadioButton4->Checked = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton4Click(TObject *Sender)
{
RadioButton1->Checked = false;
RadioButton2->Checked = false;
RadioButton3->Checked = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton4MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
RadioButton1->Checked = false;
RadioButton2->Checked = false;
RadioButton3->Checked = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton3MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
RadioButton1->Checked = false;
RadioButton2->Checked = false;
RadioButton4->Checked = false;
}
//--------------------------------------------------------------------------- |
Partager