Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.06.11;
Скачать: CL | DM;

Вниз

Кнопка   Найти похожие ветки 

 
Helen   (2006-05-24 00:39) [0]

Каким образом можно сделать так, чтобы при нажатии на конпку, например 3 сек, запускалось одно, а при простом нажатии другое?


 
alex-drob ©   (2006-05-24 00:45) [1]

var
 t:ttime;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 t:=now;
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
if now-t<StrToTime("0:00:03") then
 caption:="Действие 1"
 else
 caption:="Действие 2"
end;


 
SedAche   (2006-05-24 01:07) [2]

А как чтобы по окончании 3 секунд, не отжимая клавишу, запускалось действие?


 
alex-drob ©   (2006-05-24 01:15) [3]

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 Timer1.Interval:=3000;
 Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Timer1.Enabled:=False;
 Действие;
end;


 
alex-drob ©   (2006-05-24 01:18) [4]

+

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 Timer1.Enabled:=False
end;


 
alex-drob ©   (2006-05-24 01:24) [5]

Вот с двумя действиями


var b:Boolean;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 b:=False;
 Timer1.Interval:=3000;
 Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Timer1.Enabled:=False;
 b:=True;
 Действие 2
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 Timer1.Enabled:=False
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if b then exit;
Действие 1
end;


 
Loginov Dmitry ©   (2006-05-24 09:34) [6]

А разве кнопки можно только мышкой нажимать?
(Есть еще пробел...)


 
ЮЮ ©   (2006-05-24 10:33) [7]


> А разве кнопки можно только мышкой нажимать?

а это будет простое нажатие. Фича достигается только мышью :)



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

Текущий архив: 2006.06.11;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.025 c
3-1145419231
OlegOren
2006-04-19 08:00
2006.06.11
Переполнение памяти безобидной функцией.


2-1148318655
Mozaika_81
2006-05-22 21:24
2006.06.11
Где взять компонент TrayIcon для Delphi7


2-1148210007
Мурзилка
2006-05-21 15:13
2006.06.11
размеры формы


15-1147774944
ilya39
2006-05-16 14:22
2006.06.11
R:Base


2-1148269241
Raf
2006-05-22 07:40
2006.06.11
ACCESS