Einzelnen Beitrag anzeigen

t.roller
(Gast)

n/a Beiträge
 
#9

AW: Programmabbruch über Windows-Fenster 'x' verhindern

  Alt 3. Jan 2017, 23:24
Man kann auch das ganze Geklicke "da oben" abfangen, wenn man will...
Delphi-Quellcode:
...
  protected
    procedure WMNCLBUTTONDOWN(var msg: TMessage); message WM_NCLBUTTONDOWN;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMNCLBUTTONDOWN(var msg: TMessage);
begin
if cbCLOSE.Checked then inherited; // NO CLOSE if deactivated / unchecked
// cbCLOSE kann man durch eine PW-Abfrage ersetzen, ALT-F4 muss geblockt werden
  if msg.wParam = HTCAPTION then
  begin
   Caption:= 'HTCAPTION'; Exit;//
  end;
  if msg.wParam = HTSYSMENU then
  begin
   Caption:= 'HTSYSMENU'; Exit;//
  end;
  if msg.wParam = HTCLIENT then
  begin
   Caption:= 'HTCLIENT'; Exit;//
  end;
  if msg.wParam = HTCLOSE then
  begin
   Caption:= 'HTCLOSE'; Exit;//
  end;
  if msg.wParam = HTMAXBUTTON then
  begin
   Caption:= 'HTMAXBUTTON'; Exit;//
  end;
  if msg.wParam = HTMINBUTTON then
  begin
   Caption:= 'HTMINBUTTON'; Exit;//
  end;
end;

Geändert von t.roller ( 3. Jan 2017 um 23:31 Uhr)
  Mit Zitat antworten Zitat