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.