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); } } } }
void __fastcall TForm4::Image2Click(TObject *Sender) { Image1Click(NULL); }