コード例 #1
0
ファイル: Unit22.cpp プロジェクト: jose1zapata/guardando
void __fastcall TForm22::Edit1KeyPress(TObject *Sender, char &Key)
{
        Key=toupper(Key);
        if(Key==13){
                Image1Click(Sender);
        }
}
コード例 #2
0
//---------------------------------------------------------------------------
void __fastcall TPrintRecord::Panel2MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  AnsiString troll=dynamic_cast<TStaticText*>(Sender)->Name;
  if(troll.Length() >1)
  {
    for(int i=0;i<ListBox1->Items->Count;i++)
    {
      if (ListBox1->Items->Strings[i]==troll)
      {
        ListBox1->ItemIndex=i;
        Image1Click(this);
      }
    }
  }
}
コード例 #3
0
ファイル: Unit4.cpp プロジェクト: rogertl/cbuilder
void __fastcall TForm4::Image2Click(TObject *Sender)
{
Image1Click(NULL);
}