Comportamento estranho em um form..
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
Curtidas 0
Respostas
Vmotta
08/08/2003
será que a propriedade default do botao cancelar nao esta true ?
t+
Vitor <vmotta@eep.br>
t+
Vitor <vmotta@eep.br>
GOSTEI 0
Fred
08/08/2003
desligue a propriedade Default do botao OK mude para false 8)
GOSTEI 0