Ejemplo n.º 1
0
void __fastcall TForm22::Edit1KeyPress(TObject *Sender, char &Key)
{
        Key=toupper(Key);
        if(Key==13){
                Image1Click(Sender);
        }
}
//---------------------------------------------------------------------------
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);
      }
    }
  }
}
Ejemplo n.º 3
0
void __fastcall TForm4::Image2Click(TObject *Sender)
{
Image1Click(NULL);
}