Miguel Angel Torres Master


Registrado: 23 Abr 2006Mensajes: 282Ubicación: Siegen, Alemania
|
Publicado: Mie 26 Abr, 2006 5:10 pm Asunto: Usar Enter como TAB dentro de un TDBGrid control |
|
|
Por ahi encontre este codigo interesante para usar el enter como tab, mi fuente es:
http://www.drbob42.com/tips/
[code]
void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key)
{
if (Key == 13)
{
Key = 0; // Eat the Beep
TDBGrid* DBGrid = dynamic_cast(ActiveControl);
if (DBGrid)
{
if (DBGrid->SelectedIndex < DBGrid->FieldCount-1)
DBGrid->SelectedIndex += 1; // next column
else
DBGrid->SelectedIndex = 0; // back to first
}
else // not (ActiveControl IS TDBGrid)
SelectNext(ActiveControl, true, true); // Forward
}
else // not (Key = #13)
if (Key == 2)
SelectNext(ActiveControl, false, true); // Backward
}
[/code]
-----------------------------
Suerte, espero les guste |
|