ShowModal überladen

[bwolf]

Hi,

ich will die Funktion ShowModal eines Formulars überladen, damit ich zusätzlich einen Parameter mit übergeben kann.
Allerdings habe ich das Problem das das ModalResult der überladenen Funktion immer 0 ist.

Hier der Code:

Code:

...
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    function ShowModal(AParam : Integer): Integer; overload;
  end;
...



function TfrmTest.ShowModal(AParam : Integer): Integer;
begin
  inherited ShowModal;
end;


// iResult ist immer 0
iResult := frmTest.ShowModal(iTest);

Was mache ich Falsch?
Danke!

[himitsu]

Sei froh, daß es "zufällig 0 ist.
Dich hat Delphi (der Compiler) doch bestimmt gewarnt, wegen dem undefinierten Funktionsergebnis.

Tja, aber wenn man vergißt das Vergebnis zuzuweisen, dann braucht man sich nicht zu wundern
Result := inherited ShowModal; .

[bwolf]

Hi und danke für die Antwort!
So klappts - ich dachte eigentlich das die Zuweisung des Results im vererbten Aufruf von ShowModal passiert.

[himitsu]

In der anderen Methde wird das das Result dieser anderen Methode zugewiesen.
Das Result deiner Methode wird damit natürlich nicht gesetzt.

[bwolf]

Ja jetzt wo du es sagst erscheint das sehr logisch
Danke nochmal für die erläuterung.

[shmia]

Zitat von bwolf:

ich will die Funktion ShowModal eines Formulars überladen, damit ich zusätzlich einen Parameter mit übergeben kann.

Ich würde den Parameter als Property des Formulars deklarieren und die Methode ShowModal lassen wie sie ist.
Falls du deinen Code in einem Jahr anschaust könnte es durchaus sein, dass du einige WTFs ausrufst ("was hab' ich mir damals nur dabei gedacht?").