Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
 
Рейтинг: Рейтинг темы: голосов - 14, средняя оценка - 4.71
(>Rick<)
4 / 3 / 2
Регистрация: 22.11.2010
Сообщений: 46
#1

Заблокировать одну кнопку при нажатии на другую - Delphi

15.01.2011, 22:08. Просмотров 1760. Ответов 16
Метки нет (Все метки)

Люди подскажите пожалуста можно ли так сделать и если можно то как:
1)Мне нада чтобы вот при нажатии допустим на Button2 у меня блокировался Button1(чтобы он не исчезал, а блакировался). Может есть какоенибудь своиство у Button ?
P.S. под словом блокировался я подрузамеваю то, чтобы на него нельзя было нажать...

2) И еще можно ли как нибудь сделать задержку типо такого:
Delphi
1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
begin
 
Label2.Caption:='Sos';
//Задержка секунд 10
Label2.Caption:='Eee';
 
end;

Зарание спасибо...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.01.2011, 22:08
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Заблокировать одну кнопку при нажатии на другую (Delphi):

При нажатии на кнопку вывести надпись, при нажатии на другую - сбросить - Delphi
Создайте программу, которая при нажатии на одну кнопку (объект Button) выводит на этикетку (Label) некоторую надпись, а при нажатии на...

2 процедуры при нажатии на одну кнопку. - Delphi
Как можно реализовать чтобы при первом нажатии на кнопку форма расширялась (Ширина просто увеличилась), а при повторном нажатии вернулась к...

При каждом нажатии на одну и ту же кнопку уменьшать число в едит на единицу - Delphi
Здравствуйте,мне необходимо, чтобы при нажатии на одну и ту же кнопку число в эдит уменьшалось на единицу, не могу понять алгоритм, при...

Как в Delphi, при нажатии на кнопку, данные из одной формы перекинуть на другую форму? - Delphi
При нажатии на кнопку сохранить должна октрыться следующая форма (в моём случаи это Form3), и данные фамили, отчества, имени и т.д. должны...

Как сделать, чтобы при первом нажатии на кнопку TButton появлялось одно сообщение, а при втором нажатии - другое? - Delphi
помогите как сделать в чтобы в кнопке button при первом нажатий вылазило сообщение ShowMessage('Вы ввели неверные данные, повторите...

Memo в delphi / как сделать так чтобы при нажатии на кнопку memo появляется, при повторном нажатии исчезает - Delphi
как сделать так чтобы при нажатии на кнопку текст с memo появляется, при повторном нажатии исчезает - как сделать так чтобы при нажатии...

16
New_Birth
2 / 2 / 0
Регистрация: 11.01.2011
Сообщений: 39
16.01.2011, 19:45 #16
Мне кажется, что не верно, т.к. t изменяется только один раз, при нажатии на button1.
0
virtual[ity]
156 / 136 / 47
Регистрация: 05.06.2010
Сообщений: 609
16.01.2011, 22:33 #17
Можно еще вот так!
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1:=gettickcount;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
timer2:=gettickcount;
timer12:=timer2-timer1;
msec:=timer12 mod 1000;
minsec:=((timer12-msec)div 1000);
min:=minsec div 60;
sec:=minsec mod 60;
edit1.Text:=(inttostr(min)+ 'минут(а,ы)' + inttostr(sec) + 'секунд(а,ы)');
end;
Готовый пример можешь скачать и посмотреть как работает!
0
Вложения
Тип файла: rar секундомер.rar (162.5 Кб, 7 просмотров)
16.01.2011, 22:33
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.01.2011, 22:33
Привет! Вот еще темы с ответами:

Возвращение к предыдущему действию при расчетах при нажатии на кнопку - Delphi
помогите сделать кнопку, которая будет возращать обратно. Например: мы сделали какое-то действие(нажали на кнопку и при этом что-то...

Кнопки. При запуске исчезали, а при нажатии на кнопку появлялись - Delphi
На форме 3 кнопки(bitbtn) и кнопка (button) при запуске project1 нужно что бы 3 кнопки(bitbtn) исчезли, а при нажатии на кнопку button, они...

Ошибка при нажатии на Кнопку - Delphi
У меня такая проблема. Когда запускаю проэкт все работает как нажимаю на кнопку button1 вылетает ошибка &quot;Project Project1.exe raised...

При нажатии на кнопку - ошибка - Delphi
Вот такая ошибка при нажатии на кнопку: is not a valid floating point value а вот и код программы: unit Unit1; interface ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
17
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru