reintroduce;

[Nothine]

ich hab als beispiel einfach mal die methode CopyToClipboard der TEdit-komponente "neugeschrieben", hab ihr einen parameter mehr verpasst und der compiler meckert nicht. nun ist die frage nur noch, ob du die alte prozedur (nach außen hin, der inherited aufruf ist sowieso möglich) behalten willst, oder ob auch die alte methode weiterhin aufgerufen werden können soll (is das deutsch? ) soll die eigentliche methode nach außen hin nich mehr existieren lässt du sämtliche compiler-direktiven weg, soll die methode weiterhin aufrufbar sein fügst du ein overload hinten an, und fertig is das

hier ma mein code zum veranschaulichen (und testen)

Delphi-Quellcode:

interface
  uses StdCtrls;

  type TEdit2 = class(TEdit)
  private
  protected
  public
    procedure CopyToClipboard(TextLength: Integer); overload;// reintroduce;
  published
  end;

implementation

  procedure TEdit2.CopyToClipboard(TextLength: Integer);
  var S: string;
  begin
    S := self.Text;
    self.Text := Copy(self.Text,1,TextLength);
    inherited CopyToClipboard;
    self.Text := S;
  end;

end.