Проблема с TSpeedButton ом

← →
DelphiLexx © (2006-05-04 13:13) [0]

Возникла следующая проблема:
На форме лежат два SpeedButton"a, которые объеденены в группу, что даёт возможность при включении одного из них другой выключается. Но как только в MouseDown я помещаю сообщение(ShowMessage), то получается бред, а именно вместо того, чтобы один из них был нажат, а другой отжат, получаем что они оба нажаты. Как с этим бороться исходники прилагаю.

http://www.rsdn.ru:80/File/26841/%D0%9D%D0%BE%D0%B2%D0%B0%D1%8F%20%D0%BF%D0%B0%D0%BF%D0%BA%D0%B0%20(7).rar

← →
MBo © (2006-05-04 13:20) [1]

> в MouseDown
это настораживает... почему не в OnClick?

← →
DelphiLexx © (2006-05-04 13:33) [2]

> в MouseDown
> это настораживает... почему не в OnClick?

Есть редактор текста текущего справочника. Имеется 2 справочника, кнопки как раз-то отвечают за активизацию текущего справочника. Вот мы подредактировали текст в текущем справочнике, затем переключаемся на другой справочник и тут выскакивает сообщение "Сохранить изменения?". Как раз-то это сообщение и хранится в MouseDown"e. Если выбрано "НЕТ", то я не должен переключать справочник, если "ДА", то переключение справочника происходит.

← →
Reindeer Moss Eater © (2006-05-04 13:38) [3]

А если я табом уйду оттуда?

← →
DelphiLexx © (2006-05-04 13:42) [4]

> А если я табом уйду оттуда?

Откуда ты tab"ом уйдешь?

← →
Reindeer Moss Eater © (2006-05-04 13:43) [5]

Уйду из первого справочника не мышкой имелось ввиду

← →
DelphiLexx © (2006-05-04 13:47) [6]

> Уйду из первого справочника не мышкой имелось ввиду

А это что-ли? Нет tab"ом не получится т.к. он заблокирован.

← →
DelphiLexx © (2006-05-04 13:55) [7]

> Уйду из первого справочника не мышкой имелось ввиду

Более детально, что нужно сделать:

procedure TForm1.SpeedButtonClick(Sender: TObject); //Общий обработчик для 2-х кнопок события OnClick. var res: integer; begin res := MessageBox(self.Handle, "Запретить переключение кнопки.", "Вопрос", MB_YESNO or MB_ICONINFORMATION); if res = mrYes then {Тут нужно разместить код запрещающий переключение кнопки} else if res = mrNo then //Разрещаем переключение кнопки end.

← →
Reindeer Moss Eater © (2006-05-04 14:11) [8]

и тут выскакивает сообщение "Сохранить изменения?". Как раз-то это сообщение и хранится в MouseDown"e. Если выбрано "НЕТ", то я не должен переключать справочник, если "ДА", то переключение справочника происходит.

То есть если есть изменения и они не сохранены, то на кнопку и не следовало нажимать вообще, так как по твоей логике ничего не должно происходить при этом.

Я бы ее задисэйблил и не парил бы мозги юзеру извращенным интерфейсом.

> Я бы ее задисэйблил и не парил бы мозги юзеру извращенным
> интерфейсом.

Но не совсем так, мне хотелось чтобы ты не очень обращал на интерфейсные бред, потому как этого бреда нет. В первом своем ответе я не очень хотел в падать в подробности, но придется. Когда выскакивает сообщение "Сохранить изменения?" и пользователь нажимает "ДА", то далее в программе идёь проверка на пустоту текста в редакторе. Если тектс в редакторе не пуст, то изменения сохраняются, и кнопка переключается, иначе же если в редакторе тектс пуст, то выдается сообщение, что "Текст в редакторе не может быть пустым!" и кнопка не переключается.

Ну и чего?
Что мешает повесить кнопку на TAction и в OnUpdate у TActionList управлять доступностью акшена на основе пустоты текста, несохраненных изменений и текущего курса йены на марсе?

> Что мешает повесить кнопку на TAction и в OnUpdate у TActionList
> управлять доступностью акшена на основе пустоты текста,
> несохраненных изменений и текущего курса йены на марсе?

Ты имеешь ввиду через Action управлять Enabled"ом кнопки, то мне это не нужно, потому как все кнопки должны быть активны.

Проблема с TSpeedButton ом Найти похожие ветки