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

← →
RASkov (2006-10-07 01:26) [80]

> > помоему к Application относится а не к потоку...

← →
Palladin © (2006-10-07 01:31) [81]

ну раз столько претезий :) возвращаемся к [7]

← →
Ketmar © (2006-10-07 01:33) [82]

>[81] Palladin(c) 7-Oct-2006, 01:31
>ну раз столько претезий :) возвращаемся к [7]
а-а-а! поймали, поймали! %-)

← →
Palladin © (2006-10-07 01:34) [83]

ага... и жестоко избили :)

← →
Ketmar © (2006-10-07 01:35) [84]

>[83] Palladin(c) 7-Oct-2006, 01:34
>ага... и жестоко избили :)
а потому что не надо, аднака, на ночь глядя код давать. вообще не надо код давать -- так проще ошибок не делать. %-)

← →
RASkov (2006-10-07 01:35) [85]

> [81] Palladin © (07.10.06 01:31)

Неа тоже не работает... т.е. работает не так как надо:)

← →
Palladin © (2006-10-07 01:36) [86]

хм, а как надо?

← →
Ketmar © (2006-10-07 01:36) [87]

>[86] Palladin(c) 7-Oct-2006, 01:36
>хм, а как надо?
а как я -- умно критиковать. без кода, заметь. %-)

← →
RASkov (2006-10-07 01:37) [88]

> [87] Ketmar © (07.10.06 01:36)

Форум то воощето не для критики....

← →
velimir © (2006-10-07 01:39) [89]

Все таки RASkov - рулит!!! И пример дал работающий и болото расшевелил ;)

PS. Спасибо всем и спокойной ночи!

← →
Ketmar © (2006-10-07 01:43) [90]

>[88] RASkov 7-Oct-2006, 01:37
>Форум то воощето не для критики....
это ж кто тебе так наврал? %-)

← →
Palladin © (2006-10-07 01:44) [91]

> [88] RASkov

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

> [87] Ketmar ©

не умею я так... :) чуть чуть да хочется дать пинок...

← →
RASkov (2006-10-07 01:45) [92]

> [90] Ketmar © (07.10.06 01:43)

Ну ладно, уговорил... это кому как. :)

← →
RASkov (2006-10-07 01:49) [93]

> [91] Palladin © (07.10.06 01:44)

Ну да, я согласен, должен быть такой человек...
Что по мне... т.е. как я воспринимаю "пример кодом" - начинаю копать в эту сторону и уже справку направленно читать;)...Ладно, Автор спать пошел... пора тоже баиньки.

← →
Ketmar © (2006-10-07 01:56) [94]

>[91] Palladin(c) 7-Oct-2006, 01:44
>первый пинок для применения мозга
чисто и последний. дальше как раз метла идёт. %-) метла -- это значит, что я отчаялся. %-)

← →
Ketmar © (2006-10-07 01:57) [95]

"чисто" = "часто". %-)

← →
Германн © (2006-10-07 02:01) [96]

> Palladin © (07.10.06 01:44) [91]
>
>
> > [88] RASkov
>
> критика кетмера, на этом форуме, первый пинок для применения
> мозга, бо от кетмера не бывает критики без посылок, а все
> что про метлу это нужно воспринимать как книжечки для начинающих
> для чтения сказок про паскаль и иже с ним, и главное решение
> задачек, которые идут с этими книжечками

Истину глаголешь. Но стоит при этом упомянуть и первоисточники! АП и ИШ. Если про метлу первым упомянул кто-иной, тогда и его в "первоисточники".

← →
Ketmar © (2006-10-07 02:03) [97]

>[96] Германн(c) 7-Oct-2006, 02:01
>первоисточники! АП и ИШ.
это первоисточники прежде всего не метёлок, а многих знаний Кэтмара. %-) как и ещё куча других участников форума, перечислять которых -- трафика не хватит. %-)

← →
Германн © (2006-10-07 02:11) [98]

> Ketmar © (07.10.06 02:03) [97]
>
> >[96] Германн(c) 7-Oct-2006, 02:01
> >первоисточники! АП и ИШ.
> это первоисточники прежде всего не метёлок, а многих знаний
> Кэтмара. %-) как и ещё куча других участников форума, перечислять
> которых -- трафика не хватит. %-)
>

И я тоже в их числе. Но я имел в виду прежде всего стиль ответов. :-)

← →
Palladin © (2006-10-07 02:19) [99]

ха :)
Общий стиль ответов:

Кетмар: метла, штука полезная и приносит пользу обществу
Игорь: LMD
АП: данные базе данных они далеко не такие как вы думаете...
ЮЗ: а кто сказал? А вот если я каааак....
Palladin: Да ты что?! С ума сойти...
Джо: С точки зрения банальной эрудиции...

все енто имхо :)

← →
Германн © (2006-10-07 02:34) [100]

> Palladin © (07.10.06 02:19) [99]

Позволь добавить:
АП, Кэтмар: Можно (Есть) - при ответах на вопросы, начинающиеся с этих слов.

← →
Ketmar © (2006-10-07 02:40) [101]

я бы сказал:
ЮЗ: да? а вот посмотрите... почему? <тут лекция на три страницы> %-)

← →
Германн © (2006-10-07 02:48) [102]

> Ketmar © (07.10.06 02:40) [101]
>
> я бы сказал:
> ЮЗ: да? а вот посмотрите... почему? <тут лекция на три страницы>
> %-)
>

Как давно это было!
Точнее, "как давно этого не было" :-(
А ведь было такое время!

← →
Palladin © (2006-10-07 02:54) [103]

> [102] Германн ©

Угу...
было время...
и у ИШ было время...
и у АП были внятные ответы :)
у Юрия всегда есть время, но теперь редко...

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

← →
Джо © (2006-10-07 02:54) [104]

> [99] Palladin © (07.10.06 02:19)
> ха :)
> Общий стиль ответов:
>
> Кетмар: метла, штука полезная и приносит пользу обществу
> Игорь: LMD
> АП: данные базе данных они далеко не такие как вы думаете...
> ЮЗ: а кто сказал? А вот если я каааак....
> Palladin: Да ты что?! С ума сойти...
> Джо: С точки зрения банальной эрудиции...

В эту колоритную картину осталось привнести несколько ярких пятен, например:
begin..end: Ой.
:)

П.С. Неужто я такой из себя мудреный-мудреный? :D

← →
Ketmar © (2006-10-07 03:10) [105]

>[104] Джо(c) 7-Oct-2006, 02:54
>В эту колоритную картину осталось привнести несколько
>ярких пятен:
DiamondShark: (WebBrowser1.Dodument as I<Кэтмарзабылкакойнтерфейс>).xxx

%-)

← →
Германн © (2006-10-07 03:11) [106]

> Palladin © (07.10.06 02:54) [103]
>
...
> просто замучило всех, много ответов на множество вопросов
> есть в нативном виде в поисковиках...
>

Тем более, что часто незачем лезть в поисковики, поскольку многое есть в Delphi\Demos?
Но проще задать вопрос в форуме :-(

← →
Ketmar © (2006-10-07 03:13) [107]

>[106] Германн(c) 7-Oct-2006, 03:11
>многое есть в Delphi\Demos?
а чего нет там, то на 90% есть в справке. %-)

← →
Eraser © (2006-10-07 03:18) [108]

procedure TfmMain.btnOneClick (Sender: TObject) begin SendC; TButton(Sender).Visible := False; end;

>[108] Eraser(c) 7-Oct-2006, 03:18
во-первых: садюга.
во-вторых: кнопочка-то, как я понял, многоразовой должна быть. %-)

и в третьих: твой ответ уже оффтопик. %-)

> Ketmar © (07.10.06 03:13) [107]
>
> >[106] Германн(c) 7-Oct-2006, 03:11
> >многое есть в Delphi\Demos?
> а чего нет там, то на 90% есть в справке. %-)
>

Я вчера ночью уже высказал сожаление, что в Demos нет примеров грамотной работы с Сом-портом! Это, имхо, влезло в те 10% процентов. :-(

> procedure TfmMain.btnOneClick (Sender: TObject)
> begin
> SendC;
> TButton(Sender).Visible := False;
> end;

Полумера. Следует так:

procedure TfmMain.btnOneClick (Sender: TObject) begin SendC; Sender).Free; end;
:)

>[112] Джо(c) 7-Oct-2006, 03:26
>Полумера.
не мелочись. ExitProcess(0) -- и все дела.

> [113] Ketmar © (07.10.06 03:32)
> >[112] Джо(c) 7-Oct-2006, 03:26
> >Полумера.
> не мелочись. ExitProcess(0) -- и все дела.

Ты, наверное, хотел написать ExitWindowsEx? :)

> [112] Джо © (07.10.06 03:26)

тогда уж так :))
procedure TForm1.Button1Click(Sender: TObject); var obj: TObject; begin obj := TButton(Sender).Parent; while not (obj is TFormClass) do obj := TWinControl(obj).Parent; TForm(obj).Close; end;

> Джо © (07.10.06 03:26) [112]
>
> > procedure TfmMain.btnOneClick (Sender: TObject)
> > begin
> > SendC;
> > TButton(Sender).Visible := False;
> > end;
>
> Полумера. Следует так:
>
> procedure TfmMain.btnOneClick (Sender: TObject)
> begin
> SendC;
> Sender).Free;
> end;
> :)
>

АП в квадрате!

>[114] Джо(c) 7-Oct-2006, 03:33
>Ты, наверное, хотел написать ExitWindowsEx? :)
а, ну да. с EWX_FORCE. но тут ещё привилегии надо получать... %-(

> [115] Eraser © (07.10.06 03:33)
> > [112] Джо © (07.10.06 03:26)
>
> тогда уж так :))

Тут уже пошла в ход тяжелая артиллерия, но мы с Кетмаром тебя-таки опередили ;) Остался только последний вариант — вызов взвода автоматчиков по расписанию :)

>[118] Джо(c) 7-Oct-2006, 03:36
>вызов взвода автоматчиков по расписанию :)
а вот это уже задача нетривиальная. тут надо как минимум модем с поддержкой голоса...

> [119] Ketmar © (07.10.06 03:40)
> >[118] Джо(c) 7-Oct-2006, 03:36
> >вызов взвода автоматчиков по расписанию :)
> а вот это уже задача нетривиальная. тут надо как минимум
> модем с поддержкой голоса...

Эх, программисты, программисты... Какой модем? Достаточно одной таблэтки... тьфу, то есть, достаточно договориться с коммандиром автоматчиков. Not a single line of code! :)

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