Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Глюки с Button.OnClick, повторное нажатие все портит 
V
    Опции темы
Vetos
Дата 21.11.2007, 20:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 312
Регистрация: 4.4.2005

Репутация: 1
Всего: 4



Здравствуйте программисты!
Появилась проблемка, существует кнопка, при нажатии на нее происходят какието дествия и задержка в виде
Код

procedure TForm1.Tormoz;
var i,j:integer;
    Tim:longint;
begin
Tim:=GetTickCount;
Application.ProcessMessages;
while tim+1000>GetTickCount do;
Application.ProcessMessages;
end;

Все работает нормально кроме того что при нажатии на ету кнопочку при задержке ничего не происходит(с чего бы), а вот после задержки кнопочка нажимается сама, пробовал так
Код

procedure TForm1.Tormoz;
var i,j:integer;
    Tim:longint;
begin
Tim:=GetTickCount;
Application.ProcessMessages;
Button5.Enabled:=false;
while tim+1000>GetTickCount do;
Button5.Enabled:=true;
Application.ProcessMessages;
end;

Эффект остается таким же, а надо как то сделать чтобы она сама не нажималась smile 
Помогите пожалуйсто решить эту проблему, если решение существует)))


З.Ы.Пробовал искать по сайту, ничего не получается найти:(


--------------------
Строить нужно так, чтоб никто не сломал!
А ломать, чтоб никто не знал 8) :ne_huliganit 
PM MAIL ICQ   Вверх
lukas
Дата 21.11.2007, 21:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15



убери Application.ProcessMessages; из-за него возможно код выполняется несколько раз... для наглядности пройдись F8


--------------------
http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.
PM MAIL WWW   Вверх
ivan219
  Дата 22.11.2007, 09:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 5
Всего: 12



Vetos, а может проблема в другом так как у меня кнопка дважды не нежимается smile 
PM MAIL ICQ   Вверх
Vetos
Дата 22.11.2007, 19:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 312
Регистрация: 4.4.2005

Репутация: 1
Всего: 4



Цитата

убери Application.ProcessMessages; из-за него возможно код выполняется несколько раз... для наглядности пройдись F8 

Неа, это не помогает, если я его убераю, то остальные компоненты на форме  вообще не высвечиваются(я имею в виду лэйблы);
Сама кнопка визуально не нажимается но нажатие все равно происходит;


--------------------
Строить нужно так, чтоб никто не сломал!
А ломать, чтоб никто не знал 8) :ne_huliganit 
PM MAIL ICQ   Вверх
Vetos
Дата 22.11.2007, 19:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 312
Регистрация: 4.4.2005

Репутация: 1
Всего: 4



Все, решил проблему, правда вообще левым способом, просто убираю мышку с экрана нафиг, на время задержки))
Спасибо


--------------------
Строить нужно так, чтоб никто не сломал!
А ломать, чтоб никто не знал 8) :ne_huliganit 
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0432 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.