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!