Form close

I din Object Inspector indsætter du koden:
ShowMessage('Programmet lukkes');

for din main form.

Dvs.:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    ShowMessage('Programmet lukkes');
end;

Alså vis jeg bare sætter:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    ShowMessage('Programmet lukkes');
end;

Og sætter "procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
" ind i type, så kommer fejlen "Expected '=' '(' found."

Har denne kode, men programmet starter, men beskeden kommer ikke når jeg lukker :S

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  procedure FormClose(Sender : TObject; var Action : TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormClose(Sender : TObject; var Action : TCloseAction);
begin
    ShowMessage('Programmet lukkes');
end;

end.

Så kommer det trin for trin:
Jeg får ud fra at du kører med standart opsætning i delphi 7.

Marker din form (TForm) ved at klikke på den således at der til venstre i "Object Inspector" vinduet står "Form1  TForm1" øverst. Hvis du har givet din form et navn så står det i stedet for Form1.

Klik på Events fanen i "Object Inspector" vinduet.

Dobbelt klik til højre for "OnClose" i "Object Inspector" vinduet. Der vil nu automatisk blive oprettet en procedure der hedder DinFormNavn.FormClose(Sender: TObject; var Action: TCloseAction);

Der hvor mus makøren nu står indsætter du:
ShowMessage('Programmet lukkes');
altså mellem begin og end.

Nice nu virker det ;P Takker mange gange :)

Skriver du ik lige noget igen så jeg kan gide dig dine point :)

Må jeg ikke lige have lov til at rette en lille fejl i koden. Der SKULLE stå :

procedure TForm1.FormClose(Sender : TObject; var Action : TCloseAction);
begin
  if Action = caFree then
    ShowMessage('Programmet lukkes');
end;