Obrigado Walter, o duro é ter que trabalhar neste horário em casa mesmo.
grato.
Stainle
"Walter Chagas Jr (BOL)" <[EMAIL PROTECTED]> escreveu:
Eu tenho essaqui:
procedure TForm1.FormKeyPress( Sender : TObject; Var Key : Char);
begin
if (Key = chr(VK_RETURN)) AND (Self.ActiveControl IS TEdit)
then
perform( WM_NEXTDLGCTL, 0, 0);
if (Key = Chr(VK_RETURN)) AND (Self.ActiveControl IS
TStringGrid) then
begin
with TStringGrid(Self.ActiveControl) do
if Col < ColCount - 1 then
Col := Col + 1
else
begin
Row := Row + 1;
Col := 0;
end;
end;
if (Key = Chr(VK_RETURN)) AND (Self.ActiveControl IS
TDBGrid) then
begin
if TDBGrid(ActiveControl).SelectedIndex <
TDBGrid(ActiveControl).FieldCount - 1 then
TDBGrid(ActiveControl).SelectedIndex :=
TDBGrid(ActiveControl).SelectedIndex+1
end;
end;
Cara, trabalhar sabado 23:30 da noite aqui na empresa, ninguém merece....
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
http://www.geocities.com/SiliconValley/Bay/1058
MSN: [EMAIL PROTECTED]
SKYPE: WalterChagasJr
----- Original Message -----
From: stainle2003
To: delphi-br@yahoogrupos.com.br
Sent: Saturday, February 09, 2008 11:32 PM
Subject: [delphi-br] DBGrid
Como posso através do ENTER mudar de coluna no DBGrid, está saindo
dele e indo para o próximo campo.
grato
Stainle
[As partes desta mensagem que não continham texto foram removidas]
---------------------------------
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
