Нажатие клавиш на клавиатуре вверх, вниз

[quit]

Сообщение от Droid

А эту процедуру через что ?

говорю же, что все работает... с мышкой все в порядке?

[Droid]

Сообщение от profi

Т.е.? А что тебе сейчас нужно сделать?

Эти условия срабатывают, только когда я нажимаю 2 раза на строку нужную мне, а мне надо, чтоб с 1 раза срабатывала

Сообщение от quit

говорю же, что все работает... с мышкой все в порядке?

с мышью все в порядке.

[profi]

Тебе нужно событие OnClick, а не OnDblClick

procedure TF_Uchet.OnClick(Column: TColumn);
begin

if DM.ADOQ_Udis_kon.Value='Диспансерный' then
begin
      Groupbox5.Visible:=true;
      F_Uchet.DBLCB1.Visible:=true;
end
  else if DM.ADOQ_Udis_kon.Value='Консультативный' then
    begin
    F_Uchet.DBLCB1.Visible:=false;
    Groupbox5.Visible:=false;
    end;
end;

[Droid]

Groupbox5.Visible:=false; -неактивен (

Сообщение от profi

Тебе нужно событие OnClick, а не OnDblClick

procedure TF_Uchet.OnClick(Column: TColumn);
begin

if DM.ADOQ_Udis_kon.Value='Диспансерный' then
begin
      Groupbox5.Visible:=true;
      F_Uchet.DBLCB1.Visible:=true;
end
  else if DM.ADOQ_Udis_kon.Value='Консультативный' then
    begin
    F_Uchet.DBLCB1.Visible:=false;
    Groupbox5.Visible:=false;
    end;
end;

Я на MouseUp пробовал и на OnCellclick - не работает с 1 раза только со 2 (

[uberchel]

Значит у тебя не совпадает слово Диспансерный с тем что стоит в DM.ADOQ_Udis_kon.Value, проверь может где ошибка!

[include]

а как узнать у какой клавиши какой номер?

[psycho-coder]

Пишем так

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

Потом ставим точку останова на if Key = Key then Exit;
Запускаем проект, жмем нужную кнопку и наводим мышь на Key.