Скачать: CL | DM;

Как распознать первый и второй щелчок мыши по кнопке?!?!   Найти похожие ветки 

← →
gary5555   (2003-05-18 13:23) [0]

Мне надо что бы при первом нажатие мыши на SpeedButton происходил один процесс, при нажатие на этот же SpeedButton происходил уже совсем другой процесс, подскажите пожалуйста. Заранее благодарю!!!!!!!!

---

← →
andrey_pst ©   (2003-05-18 13:33) [1]

procedure TForm1.FormCreate(Sender: TObject);
begin
SpeedButton1.Tag := 1;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if SpeedButton1.Tag = 1 then
begin
ShowMessage("Первый раз нажали");
SpeedButton1.Tag := 2;
end
else
begin
ShowMessage("Второй раз нажали");
SpeedButton1.Tag := 1;
end;
end;

---

← →
Palladin ©   (2003-05-18 13:33) [2]

менять tag ||
менять обработчик ||
:)) создать две кнопки, при нажатии на первую скрывать ее и показывать вторую....

---

← →
Malder ©   (2003-05-18 13:35) [3]

По кнопкам надо щелкать только один раз. Windows - это стандартизированный интерфейс, не надо извращаться

---

← →
Переяслов Григорий ©   (2003-05-18 13:36) [4]

Все как сказано, но это, вообще-то плохой стиль для интерфейса

---

← →
Malder ©   (2003-05-18 13:39) [5]

Не так вопрос понял, подумал рячь идет об одинарном и двойном щелчках на кнопке...

---

← →
Palladin ©   (2003-05-18 13:40) [6]

> Malder © (18.05.03 13:35)
> Переяслов Григорий © (18.05.03 13:36)

иногда чем плодить 10 кнопок, лучше одну сделать
простейший пример с Connect/Disconnect, логичней организовать это в одну кнопку, ибо действия взаимоисключающие

---

← →
Юрий Зотов ©   (2003-05-18 14:25) [7]

> Palladin © (18.05.03 13:40)

В таких случаях напрашивается синхронизировать коннект/дисконнект с состоянием кнопки Down. И лишних кнопок не требуется, и визуализация, и простой интерфейс. Плюс можно динамически менять хинт у кнопки.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c