Bei schließung eines Forms result ausführen?

[VT-DA]

Hi,

Ich versuche verzweifelt eine Funktion zu schreiben die einen Wert z.B. 1 zurück gibt wenn ein Form beendet oder geschlossen wurde.
Hier mal meinen Code wie ich es dachte:

Delphi-Quellcode:

function events(): integer; stdcall;
begin
  result := 1;
  if Form1.OnDestroy then
    result := 0;
end;

Doch irgendwie klappt das nicht so ganz.

Mfg

[Khabarakh]

Es kommt darauf an, wie du das Formular geschlossen hast. Hast du es zur Laufzeit erstellt und wieder mit Free freigegeben, sollte folgendes funktionieren:

Delphi-Quellcode:

function IsClosed: Boolean;
begin 
  Result := not Assigned(MyForm);
end;

Wenn du es "nur" mit Hide geschlossen hast:
Result := not MyForm.Visible;

[VT-DA]

Hi,

Jo danke. Klappt super. Komisch das ich nicht früher drauf gekommen bin.
Leider hab ich noch ne Frage. Da es wirklich nicht lohnt nen neues Thema auf zu machen frag ich mal einfach hier.

Also ich habe eine funktion. Bei der Ausführung der Funktion wird eine Variable übergeben. Doch diese Variable soll jetzt global werden. Normaler weise muss man globale variablen dann außerhalb der proceduren und funktionen schreiben doch das geht nicht weil sie ja wirkürlich durch den Benutzer geliefert wird. Also ist es möglich variablen innerhalb einer funktion global zu deklairen?

P.S: Ich habe schon an ein Array gedacht doch das wäre etwas zu umständlich.

Mfg

[Nothine]

prinzipiell gilt hier "neue frage neuer thread"

nichtsdestotrotz, was hindert dich daran dich folgenden konstruktes zu bedienen?

Delphi-Quellcode:

var Ich_Bin_Global: Integer = 0;

function Foo(Bar: Integer): Integer;
begin
  Ich_Bin_Global := Bar;
  ...
  Result := Tu_Was(...);
end;