Delphi FAQ

Jak zablokować przycisk zamykający okno

a_s_f
Ten artykuł został przeznaczony do usunięcia. Powody możesz znaleźć na stronie: Artykuły do usunięcia.

W skutek użycia poniższego kodu, przycisk X (umiejscowiony na belce tytułowej okien systemu Windows) będzie nieaktywny:

var
  m: Integer;
begin
  m:= GetSystemMenu(Handle, False);
  if (m<> 0) then
    DeleteMenu(m, SC_CLOSE, MF_BYCOMMAND);
end;

3 komentarzy

Nie dość, że było, to jeszcze nie jest tym czego się spodziewać można po przeczytaniu tytułu :/ Powinieneś dodać jeszcze dodawanie z powrotem tego itema do menu :|
Jak włączyć/wyłączyć Close okna opisałem tutaj :)

Bru2s: Twoim sposobem po kliknięciu na ten X poprostu nic się nie stanie, a sposobem a_s_f ów X będzie wyszarzony :]

A tak pozatym to to już było ;] (ostatnio się coraz częsciej mówie \"ale to już było...\" ;])

A nie lepiej w OnCloseQuery dać CanClose=false; (to w BCB ale w Delphi zmieni się chyba tylko = na := )