2 спидбаттона

← →
Opryshok © (2004-03-19 13:53) [0]

Здрасти всем!
Если упростить мою проблему: то она сводится до нерозрешимости (мной) следующей задачи.

Есть форма с 2 спидбатонами, сгрупированными так чтобы только один мог быть нажат(Down). тоесть:
[Code]
...
object SpeedButton1: TSpeedButton
Left = 48
Top = 48
Width = 265
Height = 22
GroupIndex = 1
Down = True
OnClick = SpeedButton1Click
OnMouseDown = SpeedButton1MouseDown
end
object SpeedButton2: TSpeedButton
Left = 320
Top = 48
Width = 353
Height = 22
GroupIndex = 1
end

...
[/Code]

Есть некий код на клик первого батона (тек. время)
[Code]
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
ShowMessage(DateToStr(Now))
end;
[/Code]

Для первого батона пишу онМаусДаун (хочу принять решение показывать ли тек. время)
[Code]
procedure TForm1.SpeedButton1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
lRes: integer;
begin
lRes := MessageDlg("sure?", mtConfirmation, mbOKCancel, 0 );
case lRes of
mrCancel: abort;
end;
end;
[/Code]

Если нажимаю "ок", то с єтим батоном что-то странное творится. Он вроде нажат, но спидбаттон2 не отжат и дата не показывается.

если этот самый код пишу в онМаусАп, то "ок" работает нормально, а кенсел приводит ети 2 спидбатона в такое же состояние что и в МаусДаун.

Может чего нибудь подскажите?

← →
Кет (2004-03-19 14:05) [1]

Нада использовать не онМаусДаун а онКлицк патамучта Маус на самом деле Даун а патом не Ап патамучта вместа нево паказываицца МессагеБокс

← →
Opryshok © (2004-03-19 14:16) [2]

2 Кет.

Понятно что onClick решает проблему того, что onMouseUp не срабатывает, но как предотвратить то, что когда я нажимаю SpeedButton1 и <Cancel>, то SpeedButton1 меняет свое состояние на (Down = true), а мне нужно, когда я нажимаю <Cancel> чтоб ничего не поменялось

← →
Opryshok © (2004-03-19 14:17) [3]

← →
Кет (2004-03-19 14:23) [4]

mrCancel: SpeedButton2.Down := true;

2 Кет/
дякую за співпрацю.
спасибо, кет!

2 спидбаттона Найти похожие ветки