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

Вниз

Как сделать так чтобы пользователь не нажал на кнопку много раз?   Найти похожие ветки 

 
Ketmar ©   (2006-10-09 21:34) [200]

>[199] Джо(c) 9-Oct-2006, 21:33
DooM спасёт ОДР. %-)


 
Игорь Шевченко ©   (2006-10-09 21:35) [201]

Джо ©   (09.10.06 21:33) [199]


> У меня сейчас даже кота дома нет, чтобы его пнуть после
> тяжелого дня


Заведи медведя, пни его, получишь массу положительных эмоций :)


 
Джо ©   (2006-10-09 21:41) [202]

> [200] Ketmar ©   (09.10.06 21:34)
> >[199] Джо(c) 9-Oct-2006, 21:33
> DooM спасёт ОДР. %-)

Да вот даже игрушки дома нету никакой. Один только Oblivion, но это совершенно не то... А пока только одна игра, Хроники Пикирующего Бомбардировщика: http://forum.ihome.net.ua/index.php?showtopic=13072&hl=


> [201] Игорь Шевченко ©   (09.10.06 21:35)
> Заведи медведя, пни его, получишь массу положительных эмоций
> :)

Думал над подобным, аллигатора предлагали. Жрать, зараза, много требует :)


 
RASkov   (2006-10-09 21:47) [203]

> Думал над подобным, аллигатора предлагали. Жрать, зараза,
> много требует :)

Я думаю он один раз поест и тебя это волновать больше не будет:) Шутка.


 
Пусик ©   (2006-10-10 09:49) [204]


> Джо ©   (09.10.06 21:33) [199]
> Черт, как же плохо всё... У меня сейчас даже кота дома нет,
>  чтобы его пнуть после тяжелого дня. Хоть заводи бота и
> под ним кусайся. Жаль, я ленивый. И котов люблю.


Ну так разве здесь не удается попинать?
Я так заметила, что некоторые почти исключительно для этого здесь появляются.


 
Игорь Шевченко ©   (2006-10-10 10:41) [205]

Пусик ©   (10.10.06 09:49) [204]


> некоторые почти исключительно для этого здесь появляются.


Ну тебе-то какое дело до этого ? :)
Просто интересно (с)


 
Пусик ©   (2006-10-10 10:52) [206]


> Ну тебе-то какое дело до этого ? :)


> Просто интересно (с)


Ну так и мне вот интересно-)


 
Пусик ©   (2006-10-10 10:53) [207]

Да и не люблю, когда пинают озверевшей толпой.
Как-то это выглядит противно.


 
Игорь Шевченко ©   (2006-10-10 10:55) [208]

Пусик ©   (10.10.06 10:53) [207]


> Да и не люблю, когда пинают озверевшей толпой.
> Как-то это выглядит противно.


Ну не ущемляй свои эстетические чувства, что я еще могу посоветовать ?


 
Пусик ©   (2006-10-10 10:56) [209]


> Ну не ущемляй свои эстетические чувства, что я еще могу
> посоветовать ?


Не всегда удается мимо пройти.


 
TStas ©   (2006-10-10 11:05) [210]

Может, я сабж не понял, а нельзя разьве в обработчике написать If sender is TButton then (Sender As TButton).Enabled := False? И все.


 
RASkov   (2006-10-10 15:37) [211]

> [210] TStas ©   (10.10.06 11:05)

При длительном выполнении SendC кнопка будет не доступна но сообщения от Windы принимать будет и после (в конце обработчика будет необходимо сделать Enablrd:=True) кнопка опять доступна и отработала новый клик:)


 
Nic ©   (2006-10-10 16:35) [212]

Не представляю, чего тут на 200 постов расписали, но вот рецепт:

// обработчик нажатия
// ....
Button1.Enabled := False;


 
RASkov   (2006-10-10 17:26) [213]

> [212] Nic ©   (10.10.06 16:35)

:)))
Попробуй вот это:

procedure TForm1.Button1Click(Sender: TObject);
var N: Integer;
begin
if not (Sender as TButton).Enabled then Exit;
(Sender as TButton).Enabled:=False;
for N:=0 to 3000 do Caption:=IntToStr(N);
//Application.ProcessMessages;
(Sender as TButton).Enabled:=True;
end;


понажимай быстро на кнопку несколько раз... А потом раскоментируй строку
Да уж, ветка популярная.


 
Palladin ©   (2006-10-11 21:11) [214]

Не представляю, что тут на 213 постов расписали, но вот рецепт попробуй:

// обработчик нажатия
// ....
Button1.Enabled := False;


 
Джо ©   (2006-10-11 21:14) [215]

> [214] Palladin ©   (11.10.06 21:11)
> Не представляю, что тут на 213 постов расписали, но вот
> рецепт попробуй:

Примерно раз в 50 постов повторяется твой код. С вариациями :)


 
Palladin ©   (2006-10-11 21:21) [216]

это я стебаюсь над 212 :)


 
Джо ©   (2006-10-11 21:26) [217]

> [216] Palladin ©   (11.10.06 21:21)
> это я стебаюсь над 212 :)

Теперь уже разглядел :) Тут, пока ветку читаешь — сплошное дежавю. Только ругань и разнообразивает это дело как-то :)


 
Nic ©   (2006-10-11 22:36) [218]

Palladin ©   (11.10.06 21:21) [216]
Я же написал, что ветку в 200 с хвостом постов не читал. Времени нет. Не надо стебаться над 212 ;)


 
109623   (2006-10-11 23:01) [219]

мде ппц... море постов из-за одной кнопки =))) выложите кто-нибудь нормальный рабочий код!


 
Nic ©   (2006-10-11 23:02) [220]


> 109623   (11.10.06 23:01) [219]

А чем пост 212 не устраивает?


 
MeF Dei Corvi ©   (2006-10-11 23:10) [221]


> А чем пост 212 не устраивает?

Протесть его :) Или хотя бы первый несколько постов прочитай.


 
Ketmar ©   (2006-10-12 15:28) [222]

мда. "Абрам, ты бы хоть лотерейный билет для начала купил!" (ц)
это к [219]


 
ANB ©   (2006-10-12 15:34) [223]

try
 btnOne.Enabled := False;
 Application.ProcessMessages;
 .. . Тута долгая и нудная работа
finally
 btnOne.Enabled := True;
end;


 
Ketmar ©   (2006-10-12 16:56) [224]

>[223]
БАЯН! %-)


 
RASkov   (2006-10-12 19:30) [225]

Козалось бы, до ужоса простенький вопрос.... А сколько идей:) А проверить прежде чем писать?


 
RASkov   (2006-10-12 19:52) [226]

> [224] Ketmar ©   (12.10.06 16:56)

Накручиваешь?:)))



Страницы: 1 2 3 4 5 6 вся ветка

Форум: "Прочее";
Текущий архив: 2006.11.05;
Скачать: [xml.tar.bz2];

Наверх




Память: 1.02 MB
Время: 0.061 c
3-1157904227
так себе
2006-09-10 20:03
2006.11.05
Подредактируйте запрос


2-1161257587
Helen
2006-10-19 15:33
2006.11.05
Поменять кодировку


2-1161454380
Officeman
2006-10-21 22:13
2006.11.05
ShellExecute(0, , http://www.delphimaster.r , , SW_SHOW);


2-1161281677
Нначинающий
2006-10-19 22:14
2006.11.05
Форма в середине десктопа


11-1137399364
savva
2006-01-16 11:16
2006.11.05
У кого есть оболочка для UPX от Gandalf - UGH ??





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский