скрыть компонент по нажатии enter

[NewUser]

ввожу в поле текст, под Edit показывается DBGrid. нужно, чтобы по нажатии на enter DBGrid стал невидимым

использую код

Код: Выделить всё

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  {Unit1.pas(44,13) Error: Incompatible types: got "Char" expected "LongWord"}
  if Key <> #13 then
  begin
    DBGrid1.Visible := true;
  end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
  if Key = #13 then
  begin
    DBGrid1.Visible := false;
  end;
end;

но получается, что сначала KeyPress скрывает, а потом KeyUp показывает DBGrid

пытаюсь не реагировать на Enter в KeyUp

Код: Выделить всё

if Key <> #13 then

но вываливается ошибка {Unit1.pas(44,13) Error: Incompatible types: got "Char" expected "LongWord"}

подскажите как решить данную ситуацию

[m_guest]

Конечно будет ругаться.
В KeyUp параметр Key типа Word, а ты ему даешь #13
Нужно использовать вместо #13 константу VK_RETURN из модуля JwaWinUser.

А вообще, лучше использовать событие OnKeyDown у формы (не забыть у ней же поставить KeyPreview в True)
Примерно так:

Код: Выделить всё

//подключаем JwaWinUser для VK_RETURN

implementation
uses
  JwaWinUser;
//......................

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
  );
begin
  if Key=VK_RETURN then
     DBGrid1.Visible:=False;
end;

[NewUser]

тоже и происходит если использовать в форме

KeyDown скрывает, а KeyUp показывает.

сделал так

Код: Выделить всё

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    DBGrid1.Visible := false;
  end
 else
 begin
    DBGrid1.Visible := true;
 end;
end;

а где можно взять все значения констант для клавиш?

[Attid]

зажать контл и кликнуть по VK_RETURN

[NewUser]

полный список клавиш с кодами http://www.farmanager.com/viewvc/enc/meta_rus/trunk/meta/winapi/virtualkeycodes.html?revision=158

[SAK]

тоже и происходит если использовать в форме

KeyDown скрывает, а KeyUp показывает.

сделал так
................

Что-то здесь не так. Для чего надо реагировать на отпускание клавишь? Если для включения DBGrid при вводе в данных, то мне кажется логичнее перехватывать событие onChange, ведь текст может быть не только введён с клавиатуры, но и вставлен мышью из буфера.