Componente está emitindo o beep do windows.

Delphi

04/04/2006

Seguinte, criei um componente derivado do TDBEdit para navegar entre os componentes utilizando as setas e o enter. Está funcionando beleza, quando navego com as teclas funciona normal, mas quando dou um enter, ele eté pula pro objeto seguinte, mas da um beep do windows. O que pode estar ocorrendo? Segue o codigo abaixo

procedure TADMDBEdit.KeyDown(var Key: Word; Shift: TShiftState);
var Direcao : Integer;
begin
  Direcao:=-1;
  case Key of
     VK_DOWN,VK_RETURN : Direcao:=0;
     VK_UP : Direcao:=1
  end;
  if Direcao in [0,1] then
    begin
      //Key:=Word(0);
      Screen.ActiveForm.Perform(WM_NEXTDLGCTL,Direcao,0);
    end;
  inherited;
end;



Mrmarcelojr

Mrmarcelojr

Curtidas 0

Respostas

Mrmarcelojr

Mrmarcelojr

04/04/2006

up


GOSTEI 0
POSTAR