powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как запретить юзеру закрывать форму(через Alt+F4)
25 сообщений из 33, страница 1 из 2
Как запретить юзеру закрывать форму(через Alt+F4)
    #32083688
Фотография Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Привет!

Вопрос в теме.

Спасибо!
...
Рейтинг: 0 / 0
Как запретить юзеру закрывать форму(через Alt+F4)
    #32083689
Фотография tygra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В событии формы OnCloseQuery если юзер хочет сам закрыть, проверяй, и если закрывать не надо, ставь CanClose =False

А что за задача? Может по-другому?
...
Рейтинг: 0 / 0
Как запретить юзеру закрывать форму(через Alt+F4)
    #32083702
Фотография Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 tygra

если юзер хочет сам закрыть

А как понять - сам закрыть.

А задача такая - реплицирую данные и пока репликация не завершилась, юзер не может закрыть форму, а она модальная и соответственно юзер ниче не может сделать и смотрит на экран как баран на новые ворота :)

Спасибо.
...
Рейтинг: 0 / 0
Как запретить юзеру закрывать форму(через Alt+F4)
    #32083706
Фотография tygra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Переменную boolean сделай, например MayClose, перед началом репликации - в False, по окончании - True, а в событии делай так:
Код: plaintext
CanClose := MayClose


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

Естественно при ошибках и т.п., т.е. когда программно закрываешь, перед этим устанавливай переменную в True
...
Рейтинг: 0 / 0
Как запретить юзеру закрывать форму(через Alt+F4)
    #32083709
Фотография hDrummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview := true;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((ssAlt in Shift) and (Key = VK_F4)) then
Key := 0;
end;
...
Рейтинг: 0 / 0
Как запретить юзеру закрывать форму(через Alt+F4)
    #32083716
Фотография Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо.
...
Рейтинг: 0 / 0
Как запретить юзеру закрывать форму(через Alt+F4)
    #32084201
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ИДИОТСКИЙ запрос!
...
Рейтинг: 0 / 0
Как запретить юзеру закрывать форму(через Alt+F4)
    #32084209
Фотография hDrummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
это почему?
...
Рейтинг: 0 / 0
Как запретить юзеру закрывать форму(через Alt+F4)
    #32084228
Фотография Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 KirillovA

Да. Почему? И какой запрос?
...
Рейтинг: 0 / 0
Как запретить юзеру закрывать форму(через Alt+F4)
    #32084236
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ПИДАРИСТИЧЕСКИЙ - ДА ПУСТЬ МЕНЯ НАКАЖЕТ СИСАДМИН - БЛЯ - НУ ТАМ ВСЕ ЕСТЬ - ОН ТУПОЙ!!!!!!!!!!!!!!!!!!!!!!?????????????????????
ОТВЕЧАЮ ИЛИ Я ТУПОЙЦ - ЧТО ТОЖЕ ОТВЕЧАЮ. ЮЛЯ - ГДЕ ПРОГРАММЕРЫ - БЛЯ - не поковыряться в исходниках этим идишотам? - вопрос для идиотов - и идиотам?:!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
...
Рейтинг: 0 / 0
Как запретить юзеру закрывать форму(через Alt+F4)
    #32084239
Фотография hDrummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ты чё, обкурился? чего так орать? не хочешь отвечать - не отвечай...
доктора пора вызывать, блин...
...
Рейтинг: 0 / 0
Как запретить юзеру закрывать форму(через Alt+F4)
    #32084248
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> hDrummerТы врач идиотов или программеров!?
БЛЯ - ГДЕ ПРООГРАММЕРЫ - Е - МОЕ - НУ бля - человеку десять раз и мышью не щелкнуть!!!!!!!!!!!!!!!!!!!??????????????????????
А все от лени - все от лени - а ты Друммер - на такую херню отвечаешь!
...
Рейтинг: 0 / 0
Как запретить юзеру закрывать форму(через Alt+F4)
    #32084328
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
procedure TForm1.FormCreate(Sender: TObject);
var hMenuHandle:HMENU;
begin
  hMenuHandle := GetSystemMenu(Handle, FALSE);
  if (hMenuHandle <>  0 )
    then DeleteMenu (hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;


и все.
...
Рейтинг: 0 / 0
Как запретить юзеру закрывать форму(через Alt+F4)
    #32084332
Фотография mahoune
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2KirillovA, Ты че орешь-то? Жена не дает? Так нечего на других наезжать! каждый сам решает, на что он хочет ответить, а на что не хочет! Ты может и крутой програмер, спорить не стану... но это не билет в кинозал на VIP места.
Одним словом: уважайте других! И если считаешь, что они козлы - то пойми - это их личная трагедия!

Вот фигли ты столько времени тртишь на глупые сообщения, да еще и не по теме (OFFTOPIC)

C_НОВЫМ_ГОДОМ!!!
...
Рейтинг: 0 / 0
Как запретить юзеру закрывать форму(через Alt+F4)
    #32084343
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не наезжай - я 6 лет работал в российском представительстве борланда - и знаю делфю уже более 8 лет - акромя инди ((
Я сертифицированный проф... борланда (серт - 5.600 рублей зеленых) - я просто давно захожу в эту кофу чтоб людям помочь ... а борланде - у меня там много друзей .....
...
Рейтинг: 0 / 0
Как запретить юзеру закрывать форму(через Alt+F4)
    #32084359
Фотография tygra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
я 6 лет работал в российском представительстве борланда - и знаю делфю уже более 8 лет -

Некоторые даже по 10 лет в представительстве работают....
Слесарями, техничками..... И Дельфу знают... ууухх как, сколько лет пыль с коробок вытирают...
У них то поболе опыту и ума будет...10 лет - не 6
...
Рейтинг: 0 / 0
Как запретить юзеру закрывать форму(через Alt+F4)
    #32084362
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Тигра - не наезжай - .. ))))
...
Рейтинг: 0 / 0
Как запретить юзеру закрывать форму(через Alt+F4)
    #32084364
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Тигра - я работал протирщиком дисководов и смазывателем дискет ))).
...
Рейтинг: 0 / 0
Как запретить юзеру закрывать форму(через Alt+F4)
    #32084365
Фотография tygra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А серт. проф всем по 5 штук зелени платят, даже если они не работают???? Тогда я тоже пойду в серт. проф , мне так нравится
...
Рейтинг: 0 / 0
Как запретить юзеру закрывать форму(через Alt+F4)
    #32084367
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Тигра - я работаю "из рук в руки" - в питере - мне по барабану - у меня еще 3 работы - бабок хватает - и любое серверное и извращенное приложение могу спаять за три минуты - но сертификат борланда мне открывает дорогу практически везеде по сравнению с МСДИЕ - хотя учился в мгу на прикладной математики и выч техники....
...
Рейтинг: 0 / 0
Как запретить юзеру закрывать форму(через Alt+F4)
    #32084368
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Тигра - сучара - приеду в москву - побью!
...
Рейтинг: 0 / 0
Как запретить юзеру закрывать форму(через Alt+F4)
    #32084386
Фотография judge
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Эй-эй горячие финские парни!! Потише.
Осоденно Г-н KirillovA разгорячился. Пострайтесь быть взаимовежливы и измените в профиле поле "откуда" так как оно не отражает реальной действительности :) и противоречит бета-версии правил форума :)

Alex
...
Рейтинг: 0 / 0
Как запретить юзеру закрывать форму(через Alt+F4)
    #32084391
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> judge
сорри - разгорячились ))
...
Рейтинг: 0 / 0
Как запретить юзеру закрывать форму(через Alt+F4)
    #32084395
Фотография judge
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Лучше бы рассказали нам какую инсайдерскую информацию из Borlanda, раз вы там работали :))

Alex
...
Рейтинг: 0 / 0
Как запретить юзеру закрывать форму(через Alt+F4)
    #32084398
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Два блин - кантора перешла постепенно в cboss.ru - извени энтот софтер им не нужны какбы (((( - да и темболее ты меня по айпи могешь зачистить только вьет ... ))) - а что касается борланда - он живет и должен жить - не смотря на то что там работают всего 400 челов ))).
...
Рейтинг: 0 / 0
25 сообщений из 33, страница 1 из 2
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как запретить юзеру закрывать форму(через Alt+F4)
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]