Form Close

Jeg mener, du skal bruge formens OnClose event. Nu har du fået koden til at virke men jeg tror ikke du har sat formens onclose event.

Vælg events i property inspectoren mens formen har fokus. Der er der en liste hvor du skal finde OnClose på. Trykker du på den kan du vælge en række procedurer(hvor FormClose vil optræde) eller du kan dobbeltklikke på den og få delphi til at oprette en procedure deklæration for dig

Brug OnClose eventet

Eksempel:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   ShowMessage('På gensyn');
end;

Den skriver

[Error] Unit1.pas(28): Declaration of 'FormClose' differs from previous declaration
[Hint] Unit1.pas(15): Private symbol 'Action' declared but never used
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'


kan du ik give en orginal kode, så får du pointne

Manga tak.

Har fået koden til at virke men nu lukker den bare programmet ned unden en besked

Her er koden:

unit Unit1;

interface

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

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

var
  Form1: TForm1;
  Action: TCloseAction;

implementation

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   ShowMessage('På gensyn');
end;



end.

mange tak, men forstår ik så meget af det.

Vis du ik skrive en færdig code det ville bare være den støreste hjælp