Дайте пожалуйста скрипт на банер в Delphi 7, чтобы банер не закрывался при Alt+F4 и пишите, куда вставлять скрипт!
При создании баннеров в Delphi 7, важно учесть возможность закрытия баннера при помощи комбинации клавиш Alt+F4. Если Вы не хотите, чтобы пользователи закрывали Ваш баннер не по назначению, то нужно вставить специальный скрипт, который предотвратит такую возможность.
Где вставлять скрипт?
- Откройте Delphi 7 и выберите проект, в который будете вставлять скрипт на баннер.
- Найдите вкладку "Формы" на панели инструментов и выберите форму, которая содержит баннер.
- Кликните по форме правой кнопкой мыши и выберите пункт "Просмотреть код" в контекстном меню.
- В появившемся окне кода отыщите процедуру "OnClose" и вставьте следующий код:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if (ActiveControl is TCustomEdit) then
CanClose := True
else
CanClose := False;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caNone;
end;
Что делает данный скрипт?
Данный скрипт позволяет блокировать закрытие баннера при помощи комбинации клавиш Alt+F4. В коде определены две процедуры: "OnCloseQuery" и "OnClose".
Процедура "OnCloseQuery" определяет, можно ли закрывать форму. Если активный элемент управления находится в поле ввода текста, то баннер будет закрыт. Если в поле ввода текста нет активного элемента управления, то форма не может быть закрыта.
Процедура "OnClose" определяет, что должно произойти при закрытии формы. В данном случае, выбираем "caNone", чтобы форма не закрывалась.
Этот скрипт поможет защитить Ваш баннер от случайного закрытия при помощи комбинации клавиш Alt+F4.
- Дайте пожалуйста скрипт на банер в Delphi 7, чтобы банер не закрывался при Alt+F4 и пишите, куда вставлять скрипт!
- Из Каких Фильмов Еда?
- Помогите хочу стать верующим, но не могу определиться с религией
- Как в древней Греции назывались землевладельцы
- Как поменять формат видео с wmv на 3pg
- От чего в России так много воруют