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

← →
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]

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

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

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

> Palladin © (18.05.03 13:40)

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

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