Fórum Comportamento estranho em um form.. #173795
08/08/2003
0
Estou fazendo a chamada de um form para lancto de cheques, eu tenho vários edits e uma DBgrid, e dois botões para cancelar e um de ok
O que esta acontecendo é o seguinte se eu for com tab tudo bem, ele passa de edit em edit, mas se eu teclar enter ele fecha oform e vai para o form que o chamou.. já tirei as propriedades de keypreview, e OnKeypress, Onkeydown.. e mesmo assim nada abaixo estouenviando a rotina que chama este form..
procedure TVendasForm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_F3 then
begin
CheForm := TCheForm.Create(Self);
try
if CheForm.TblChe.DatabaseName = ´´ then
CheForm.TblChe.DatabaseName := TblChe.DatabaseName;
CheForm.EditVlrChe.AsCurrency := EditTotChe.AsCurrency;
CheForm.ShowModal;
finally
CheForm.Release;
end;
end;
if Key = VK_F6 then NovaVendaBtn.Click;
if Key = VK_F10 then RetornaBtn.Click;
end;
O restante esta funcionando tudo ok.. somente no form de cheques CHEFORM, é que esta com problemas..
Se alguém puder me ajudar desde já agradeço..
[]´s
Fausto
O que esta acontecendo é o seguinte se eu for com tab tudo bem, ele passa de edit em edit, mas se eu teclar enter ele fecha oform e vai para o form que o chamou.. já tirei as propriedades de keypreview, e OnKeypress, Onkeydown.. e mesmo assim nada abaixo estouenviando a rotina que chama este form..
procedure TVendasForm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_F3 then
begin
CheForm := TCheForm.Create(Self);
try
if CheForm.TblChe.DatabaseName = ´´ then
CheForm.TblChe.DatabaseName := TblChe.DatabaseName;
CheForm.EditVlrChe.AsCurrency := EditTotChe.AsCurrency;
CheForm.ShowModal;
finally
CheForm.Release;
end;
end;
if Key = VK_F6 then NovaVendaBtn.Click;
if Key = VK_F10 then RetornaBtn.Click;
end;
O restante esta funcionando tudo ok.. somente no form de cheques CHEFORM, é que esta com problemas..
Se alguém puder me ajudar desde já agradeço..
[]´s
Fausto
Faustoalves
Curtir tópico
+ 0
Responder
Posts
08/08/2003
Vmotta
será que a propriedade default do botao cancelar nao esta true ?
t+
Vitor <vmotta@eep.br>
t+
Vitor <vmotta@eep.br>
Responder
Gostei + 0
08/08/2003
Fred
desligue a propriedade Default do botao OK mude para false 8)
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)