Startmenu Disablen und fenster unschließbar

[bladecs]

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=False
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;//um dein prog zu beenden
end;

du kannst es auch anderst machen wenn dir Application.Terminate nicht gefällt

Delphi-Quellcode:

var schliessbar:boolean=false;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if schliessbar=false then
CanClose:=False
else
CanClose:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
schliessbar:=true;//um dein prog zu beenden
close;
end;