F�rum Componente est� emitindo o beep do windows. #318355

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

Curtir t�pico

+ 0

Responder

Posts

05/04/2006

Mrmarcelojr

Responder

Gostei + 0