 |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
 
|
|
приостановить программу, и подождать действий пользователя 
| neweraser |
|
|||
 Опытный  Профиль Группа: Участник Сообщений: 598 Регистрация: 17.2.2008 Репутация: нет Всего: 6 |
только без модальных форм, наверно это глупо, но уж так захотелось...
смысл в том, что программа будет задавать вопросы, а потом на основе ответов делать вывод.... возможно тупо придумал - в голову ничего не приходит, помогите  -------------------- Кто ищет, тот всегда найдет. |
|||
|
||||
Загрузка ...
| Frees |
|
|||
 Эксперт Профиль Группа: Завсегдатай Сообщений: 2233 Регистрация: 2.12.2005 Где: Екатеринбург Репутация: 9 Всего: 54 |
типо вопросы в Memo1 написаны да?
потом в событиях которые говорят о отм что пользователь чето нажал в OnKeyUp напимер пишеш Flag := false; Это сообщение отредактировал(а) Frees - 17.10.2008, 09:31 -------------------- Кольцов Виктор Владимирович |
|||
|
||||
| neweraser |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 598 Регистрация: 17.2.2008 Репутация: нет Всего: 6 |
можно поподробнее? пробую - ничего не получается, может я просто не понимаю что делаю
вместо
нужно ставить свой код, так? и еще создать процедуру button1.OnKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState) и в ней прописать Flag:= false? -------------------- Кто ищет, тот всегда найдет. |
|||
|
||||
| Данкинг |
|
|||
 Yersinia pestis Профиль Группа: Завсегдатай Сообщений: 8302 Регистрация: 7.11.2006 Где: მოსკოვი Репутация: 9 Всего: 130 |
В процедуре, например, по нажатию клавиши на форме пишем Flag:= false, чтобы выйти из бесконечного цикла, который написан в примере. -------------------- There's nothing left but silent epitaphs. |
|||
|
||||
| Frees |
|
|||
|
Эксперт Профиль Группа: Завсегдатай Сообщений: 2233 Регистрация: 2.12.2005 Где: Екатеринбург Репутация: 9 Всего: 54 |
про какой код ты говориш? Application.ProcessMessages; убирать нельзя -------------------- Кольцов Виктор Владимирович |
|||
|
||||
| neweraser |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 598 Регистрация: 17.2.2008 Репутация: нет Всего: 6 |
это я сразу понял, после того как убрал, потом дошло все, разобрался, спасибо всем -------------------- Кто ищет, тот всегда найдет. |
|||
|
||||
| Poseidon |
|
|||
 Delphi developer Профиль Группа: Комодератор Сообщений: 5273 Регистрация: 4.2.2005 Где: Гомель, Беларусь Репутация: 53 Всего: 133 |
Ну раз уж начали извращаться, то почему бы не загонять задание вопросов в отдельный поток и не останавливать поток когда надо?
-------------------- Если хочешь, что бы что-то работало - используй написанное, если хочешь что-то понять - пиши сам... |
|||
|
||||
| neweraser |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 598 Регистрация: 17.2.2008 Репутация: нет Всего: 6 |
зачем?
-------------------- Кто ищет, тот всегда найдет. |
|||
|
||||
| Poseidon |
|
|||
|
Delphi developer Профиль Группа: Комодератор Сообщений: 5273 Регистрация: 4.2.2005 Где: Гомель, Беларусь Репутация: 53 Всего: 133 |
neweraser, это ты у меня спрашиваешь? Я бы вообще спросил бы у тебя, зачем извращаться, если ShowModal справится с задачей на ура.
-------------------- Если хочешь, что бы что-то работало - используй написанное, если хочешь что-то понять - пиши сам... |
|||
|
||||
| neweraser |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 598 Регистрация: 17.2.2008 Репутация: нет Всего: 6 |
просто не хочу эти формы модальные, надоели, это получается, что на каждый вопрос в программе будет окошко выскакивать, но если showmodal можно еще как-нибудь применить - я только за
Это сообщение отредактировал(а) neweraser - 21.10.2008, 08:47 -------------------- Кто ищет, тот всегда найдет. |
|||
|
||||
| Poseidon |
|
|||
|
Delphi developer Профиль Группа: Комодератор Сообщений: 5273 Регистрация: 4.2.2005 Где: Гомель, Беларусь Репутация: 53 Всего: 133 |
Давай тогда разберемся...
-------------------- Если хочешь, что бы что-то работало - используй написанное, если хочешь что-то понять - пиши сам... |
|||
|
||||
| neweraser |
|
||||
|
Опытный Профиль Группа: Участник Сообщений: 598 Регистрация: 17.2.2008 Репутация: нет Всего: 6 |
тут не совсем понятно, у меня исп. 3 кнопки-ответа - "Да", "Нет", "Незнаю", в каждой кнопке забиты if-ы, напр.
и в конце flag:= false; -------------------- Кто ищет, тот всегда найдет. |
||||
|
|||||
| Frees |
|
||||||
|
Эксперт Профиль Группа: Завсегдатай Сообщений: 2233 Регистрация: 2.12.2005 Где: Екатеринбург Репутация: 9 Всего: 54 |
и в конце напиши не flag:= false а GetNextQuest; -------------------- Кольцов Виктор Владимирович |
||||||
|
|||||||
| Poseidon |
|
|||
|
Delphi developer Профиль Группа: Комодератор Сообщений: 5273 Регистрация: 4.2.2005 Где: Гомель, Беларусь Репутация: 53 Всего: 133 |
 -------------------- Если хочешь, что бы что-то работало - используй написанное, если хочешь что-то понять - пиши сам... |
|||
|
||||
| neweraser |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 598 Регистрация: 17.2.2008 Репутация: нет Всего: 6 |
Это намного лучше, спасибо, разобрался как все сделать
главный недостаток того бесконечного цикла - это полное "торможение" программы, т.е. нажатия др. кнопок игнорировались (но на самом деле нет, они выполнялись после завершения этого цикла), но, согласитесь, не приятно, когда нажимаешь на крестик, а программа не закрывается, пришлось до того извратиться, что вместо flag: boolean ставить byte или integer, потом нов. кнопку, а в ней
и вначале того цикла забивать if flag:= 2 then break // или exit (не помню) и это все только для того, чтобы выйти из программы... вот так вот еще раз спасибо за ответы -------------------- Кто ищет, тот всегда найдет. |
|||
|
||||
|
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.0966 ] [ Использовано запросов: 21 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |