Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
29. Mai 2004
das alte wird schon überschrieben aber ich kann ja auf das alte noch mit "inherited" zugreifen. Wenn du in den Constructor schaust wirst du sehen das ich dem "inherited OnResize" die Procedure zuweise..
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
29. Mai 2004
@Skyron: das mit dem namen ist nicht so ein problem, auf deine art und weise kann man das so lösen
TMyPanel = class(TPanel)
private
FOnResize: TNotifyEvent;
procedure FOnResizeProc(Sender: TObject);
public
constructor Create(AOwner: TComponent); override;
published
property OnResize read FOnResize write FOnResize;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
29. Mai 2004
das einfachste ist "SetBounds" zu überschreiben und wenn sich "width" oder "height" ändert dann kannst du ja reagieren...
TYourpanel = class(TPanel)
protected
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;
procedure TYourpanel.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
var Sizechanged: Boolean;