Kann man Form.ShowModal; überschreiben?

[Cubysoft]

Hey,

kenn mich mit der überschreiben von Klassenmethoden noch nicht so aus. Ich würde gerne die Prozedur "ShowModal" eines Formulars etwas abändern, und zwar so, dass man ein Argument übergeben kann. Natürlich soll sie immer noch das machen, was ShowModal eben macht. Geht das?

[jaenicke]

Dafür kannst du eine Methode nicht überschreiben, das geht nur bei gleichen Parametern. Du kannst aber einfach selbst eine Methode mit diesem Namen und mit Parameter anlegen und darin das geerbte ShowModal aufrufen.

Delphi-Quellcode:

...
  Result := inherited ShowModal;

[Zoot]

Delphi-Quellcode:

function TMyForm.MyShowModal(Const Arg : TArg) : Integer;
begin
 MyProperty := Arg;
 Result := ShowModal;
end;

[Union]

Normalerweise kann man überschreiben. Dazu wäre eine zusätzliche Property einzuführen, die den Parameter aufnimmt.

[Neutral General]

Kennt denn keiner reintroduce?

Delphi-Quellcode:

TMyForm = class(TForm)
private
  // ..
public
  function ShowModal(AMeinParam1: String; AMeinParam2: Integer): Integer; reintroduce;
end;

implementation

function TMyForm.ShowModal(AMeinParam1: String; AMeinParam2: Integer): Integer;
begin
  // Sachen tun
  Result := inherited ShowModal();
end;

[Zoot]

Zitat:

Zitat von Neutral General (Beitrag 1301226)

Kennt denn keiner reintroduce?

Delphi-Quellcode:

TMyForm = class(TForm)
private
  // ..
public
  function ShowModal(AMeinParam1: String; AMeinParam2: Integer): Integer; reintroduce;
end;

implementation

function TMyForm.ShowModal(AMeinParam1: String; AMeinParam2: Integer): Integer;
begin
  // Sachen tun
  Result := inherited ShowModal();
end;

Klar kann man das machen.
Aber warum sollte man eigentlich?
Es ist doch in Wirklichkeit eine neue Funktion. Also warum gibt man dem Kind keinen neuen Namen?

[Neutral General]

Weil das die Antwort auf seine Frage war ;) (Das ist hier im Forum oft ein kleines Problem - Es wird oft nicht die Frage beantwortet sondern 3x um den heißen Brei herumgeredet und diskutiert welche Alternative die Beste ist :roll: Und gerade wenn der Fragende ein Anfänger ist versteht er oft kein Wort und kann mit den Antworten nichts anfangen :X )
Und je nach Parametern bzw. allgemein der Semantik der überschriebenen/neuen Funktion sehe ich kein Problem darin das Original ShowModal zu überschreiben statt eine weitere ShowModal-Funktion hinzuzufügen.

[Zoot]

Nun ja, die Frage nach dem Sinn sollte schon erlaubt sein dürfen.

Zumal es im aktuellen Beispiel leicht zu Überraschungen kommt, wenn eine vorhandene Funktion überschrieben wird, sich plötzlich anders verhält und die Originalfunktion nicht mehr erreichbar ist.

[Dalai]

Zitat:

Zitat von Zoot (Beitrag 1301232)

Zumal es im aktuellen Beispiel leicht zu Überraschungen kommt, wenn eine vorhandene Funktion überschrieben wird, sich plötzlich anders verhält und die Originalfunktion nicht mehr erreichbar ist.

Das lässt sich durch ein

Delphi-Quellcode:

overload;

nach (oder auch vor?) dem

Delphi-Quellcode:

reintroduce;

verhindern/verändern.

MfG Dalai

[Neutral General]

Was heißt anders verhält?.. Klar reintroduce ist keine gute Idee wenn Showmodal plötzlich Musik abspielt.
Da sollte man lieber eine eigene Funktion schreiben. Aber wenn das überschriebene ShowModal immer noch die
gleiche Grundfunktion hat nur etwas erweitert, dann sehe ich keinen Grund das nicht zu tun. Denn dafür ist
reintroduce ja da.

Natürlich: Wenn man die original-ShowModal Funktion noch erreichen will, dann ist reintroduce eine schlechte Idee.
Aber es gibt eben auch Situationen in denen das Formular (aus diesem Beispiel genommen) ausschließlich über die
modifizierte Methode aufgerufen werden können soll, da sonst die Funktionalität des Formulars ge/zerstört werden
könnte wenn jemand dieses Formular mit der original ShowModal Methode aufrufen würde die dann gewisse Initialisierungen (oder was auch immer)
natürlich nicht vornehmen würde.