Форум: "Основная";
Текущий архив: 2004.04.04;
Скачать: [xml.tar.bz2];
Вниз
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]2 Кет.
Понятно что onClick решает проблему того, что onMouseUp не срабатывает, но как предотвратить то, что когда я нажимаю SpeedButton1 и <Cancel>, то SpeedButton1 меняет свое состояние на (Down = true), а мне нужно, когда я нажимаю <Cancel> чтоб ничего не поменялось
← →
Кет (2004-03-19 14:23) [4]mrCancel: SpeedButton2.Down := true;
← →
Opryshok © (2004-03-19 14:41) [5]2 Кет/
дякую за співпрацю.
спасибо, кет!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.04.04;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.033 c