Текущий архив: 2002.08.19;
Скачать: CL | DM;
Вниз
не опходимо перехватить событие закрытия окна идля закрытия запр Найти похожие ветки
← →
alexsandri © (2002-08-07 18:10) [0]не опходимо перехватить событие закрытия окна
идля закрытия запросить пароль для выхода из программы
← →
Вечно молодой © (2002-08-07 19:44) [1]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
{ Здесь выводишь окно для ввода пароля }
if { пароль введён неверно } then CanClose := False;
end;
Страницы: 1 вся ветка
Текущий архив: 2002.08.19;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.022 c
