Self nicht definiert nach dem Create?

[BigAl]

"Self" geht bei statischen Methoden nicht. Das ist ja quasi eine globale Funktion. Anstelle "Self" würde ich immer "MeinForm" verwenden.

Grundsätzlich würde ich - wenn es schon so gemacht sein soll - das "MeineForm" als lokale Variable der Funktion definieren:

Delphi-Quellcode:

function TMeinForm.Execute(): Boolean;
var 
  MeinForm: TMeinForm;
begin
  Result := false;
  MeinForm := TMeinForm.Create(Application);
  With MeinForm do
  try
    // tuwas
    Result := ShowModal = mrOk;
  finally
    Free;
  end
end;

Auf "with" würde ich ganz verzichten. Das "with" habe ich vor 20 Jahren oder aus meinem Repertoir gestrichen. Das macht den Code schwer zu lesen und teilweise zu debuggen:

Delphi-Quellcode:

function TMeinForm.Execute(): Boolean;
var 
  MeinForm: TMeinForm;
begin
  Result := false;
  MeinForm := TMeinForm.Create(Application);
  try
    // tuwas
    Result := MeinForm.ShowModal = mrOk;
  finally
    MeinForm.Free;
  end
end;