Click и MouseDown

[Kronos913]

procedure TForm2.CheckBox1Click(Sender: TObject);
begin
   ComboBox1.Visible:=not(CheckBox1.Checked);
end;

Работает нормально

procedure TForm2.CheckBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   ComboBox1.Visible:=not(CheckBox1.Checked);
end;

Делает действие противоположное нужному

Мне нужно сделать так, чтобы обрабатывалось еще и нажатие правой кнопкой. По той причине понадобилось заменять Click на MouseDown

[macomics]

А вы одновременно определили и OnClick и OnMouseDown?

[Kronos913]

По отдельности

[macomics]

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

По отдельности

Я код спрашивал. Неизвестно что еще у вас происходит на форме. Значение not (CheckBox1.Checked) определяется однозначно. Но если вы где-то вызываете CheckBox1.Checked := not CheckBox1.Checked, тогда это приводит к генерации дополнительных сообщений (вызов обработчиков на уровне классов, WM_MOUSEDOWN при этом вы не увидите).

ADD: У вас реакция на установку/сброс состояния CheckBox выполняется по OnClick, а оно обрабатывается после OnMouseDown. Поэтому кажется, что работает на оборот - вы просто считываете состояние CheckBox и инвертируете значение до его обновления.