Zitat von
taktaky:
Ich wollte das Prinzip mit dem ein Shape leider hat ein Shape nicht alle Events !
Es fehlt die Event Onresize by Shape
dann bau dir das event dazu
ich würde ne klase ableiten, SetBounds überschreiben, darin inherited (also den code der Vorlageklasse) aufrufen und danach das event aufrufen, wenns definiert ist.
Delphi-Quellcode:
TMyShape=class(TShape)
private
fOnResize:TNotifyEvent;
public
procedure Setbounds(ALeft, ATop, AWidth, AHeight: Integer); override;
published
property onResize:TNotifyEvent read fOnResize write fOnResize;
...
procedure TMyShape.Setbounds(ALeft, ATop, AWidth, AHeight: Integer);
begin
inherited;
if assigned(fOnResize) then fOnResize(self);
end;
wie immer ungetested, nur ums Prinzip zu veranschaulichen.
Gruß Frank