Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.06.11;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.014 c
15-1147897314
palva
2006-05-18 00:21
2006.06.11
Подарок русским программистам


2-1148540767
_RusLAN
2006-05-25 11:06
2006.06.11
Динамическое создание фреймов. Acces Violation;


1-1146726447
petun
2006-05-04 11:07
2006.06.11
окно ввода пароля


15-1147166720
Der Nechk@ssoff
2006-05-09 13:25
2006.06.11
Засиделся...


11-1128439970
shalex
2005-10-04 19:32
2006.06.11
Как узнать размер иконки Bitmap в меню?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский