Hvordan stoppes TForm1.FormClose

Der skal du kigge på TForm'ens event OnCloseQuery, denne bruges til at validere om programmet skal lukkes, her kan du sætte parameteren CanClose og derved styre om programmet skal lukkes.

OnClose som du har fat i, benyttes når programmet lukkes.

Jeg skal have fat i den procedure der kaldes ved klik på luk [X] i øverste højre hjørne. er det FormClose eller FormCloseQuery ??

CloseQuery Kaldes først - Her kan du så bestemme om formen egentligt skal lukkes ved at sætte CanClose til sandt eller falsk. Hvis sand kaldes Close bagefter.

CloseQuery kalder i mit pgr. en anden procedure, der så bestemmer om der skal Closes eller ej, men hvordan sender jeg så parameteren CanClose(værdien) tilbage til CloseQuery ??

Du kan overføre en boolean via procedurens parameter.

Procedure Hest(var CanClose : boolean);

Du kalder således bare Hest(CanClose) fra CloseQuery, "var" gør at parametren overføres som en reference, dvs at den oprindeligt indsatte variabel tildeles værdien CanClose har ved afslutning af Hest().

f.eks

...CloseQuery(... var CanClose : boolean);
begin
  Hest(CanClose);
end;