- 1
while dlg_SmplSpk.ShowModal = mrOk do ;-
Pascal / Говнокод #5629
+102
Узрел такое! Срочно к себе в рецепты прогрессивного программирования!
Сделано это для того, чтобы окно не закрывалось при подтверждении всех сделанных действий.
Закрываться должно только при нажатии кнопочки "Закрыть".
Отсюда непонятен ход мыслей автора сия творения.Запостил:
Grizzly,
11 Февраля 2011
Follow us!
хотя нет. нахуй тогда ее закрывать ваще, внутри формы надо обрабатывать в OnCloseQuery
З.Ы. Забыл сказать, что результат ModalResult в дальнейшем, кроме как в этом цикле, больше нигде не нужен.
Ну да, можно и так как вы предложили.
И что вы подразумеваете под словом "диалог"?
Читайте внимательнее "модальная форма"
дельфисты, как всегда, не бачут разницы между типами окон, но называют их всех "формами"
так вот, няша, ShowModal() не вернет управление пока юзер не закроет диалог, нажав кнопку с ModalResult <> 0, а цикл покажет его снова, если для той кнопки ModalResult <> mrOk
Это правда.
Какие предъявы?
девочки-блондиночки, вы действительно считаете, что быстро повторно открытое окно эквивалентно незакрытому?
по нажатии ОК оно снова открывается, задумка блять такая
Видимо он один из тех кто так же сделал бы.
А то, что подобный код явно говорит (нет, даже кричит!) нам о том, что в программе точно что-то неверно задумано/сделано/реализовано, его это мало волнует.
Такие работнички как он, решают проблемы поверхностно, так сказать делают заплатки или избавляются от симптомов, а вот глянуть глубже и узреть, что можно избавиться от излишней путаницы в коде (гавнокод одним словом) ему наверно просто лень.
Открываем по-шире глазки и вчитываемся в описание ->
"...Сделано это для того, чтобы окно не закрывалось..."
Об эквивалентности тут никто не говорит. Опять вернулись к методу придумывания неуместного.
Было-тон - еще один показатель ваших умственных способностей.
Ой на смешили! Может это вы писали этот код? Признавайтесь!
Ну вот теперь вы выбрали стратегию капитана очевидность!
Конечно цикл его откроет, об это изначально и идет речь.
Так скажите мне, пожалуйста, зачем закрывать-то это окно?!!
Вы уже показали, что в Delphi опыта у вас нет, а по вашим высказываниям о "дельфистах" можно догадаться, что вы вовсе не относитесь к программистам Delphi. Так если вы не разбираетесь в этом, зачем лезть со своими граблями в чужой огород?!
Да бы пополнить ваш запас знаний, могу посоветовать вам заглянуть в исходники класса TForm и там хорошенько всмотреться в метод Close. По умолчанию для класса TForm статуса fsModal всегда будет возвращаться ModalResult = 2.
Так что не надо тут ни цикла, ни ModalResult = mrOk в обработчике кнопки "Принять". Результат в виде Незакрытого модального Окна (надеюсь так вам понятнее?) при нажатии кнопки "Принять" будет достигнут.
> программистам Delphi
но заметил, что дельфисты опять начали считать себя программистами, LOL
Поздравляю вы настоящий ТРОЛЬ!
Считаю дальней разговор с вами не имеет смысла.
Признать свою тупость вы все равно не сможете.
Зато читающие оценят ваши "умственные" способности.
Конечно, чтобы визуально кликать по формочками и копипастить код вам этого знать не нужно; но слово "тролль" пишется с двумя л.
Я даже знаю как вы это делаете. Загоняете все в какой-нибудь редактор и смотрите где подчеркнуто красненьким. И свои сообщения видимо там же пишете, жаль редактор не подсказывает где запятые ставить надо, а вам его как раз стоит подучить.
З.Ы. Вы просто недостойны второй Л
в ужасе покидает тред
В треде монстры?
так будет правильнее. толщину какбэ символизирует
Алсо, приятно познакомиться