lukning af program

Klikker på ALT og F4 tasten.

Ej hov jeg så ikke lige det var delphi kat. Sorry.

Tror lige jeg laver en spand kaffe. :)

du misforstod - i mit program vil jeg gøre så man ikke kan lukke det ved at trykke på X'et oppe i højre hjørne!

du laver en OnClose event :
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caNone;
end;


Jens B

men så kan jeg jo ikke lukke det med en luk-knap,som kalder close - eller hvad?

he he nu kan jeg ikke engang lukke det ned med job-liste - pis

Den store HESTE-Hacker slår til igen :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    FAllowClose : Boolean;
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if not FAllowClose then
    Action := caNone;
  FAllowClose := true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FAllowClose := true;
end;

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
case Message.CmdType of
  SC_CLOSE :
  begin
    ShowMessage ('Skrid Grøn ært');
    FAllowClose := false;
  end;
end;
    inherited;
end;

end.


Jens B

jeg har en luk-knap på formen som virker, så jeg bruger bare application.terminate.

men tak for :
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caNone;
end;

Det kunne bruges !!

HESTE-hacker??

Sådan :

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

/Martin

Ingen dybe tallerkener eller "heste kunster" *GGGG* vaske ægte KIS