iskander писал(а):вы в пример заглядывали?
Вы же понимаете, что:
- Код: Выделить всё
TForm = class(Forms.TForm, IWcObserved)
private
FOnCtrlInsert: TOnCtrlInsert;
FOnCtrlRemove: TOnCtrlRemove;
protected
procedure Loaded; override;
public
procedure InsertControl(aControl: TControl; aIndex: Integer); override;
procedure RemoveControl(AControl: TControl); override;
procedure AddHandlerInsert(aHandler: TOnCtrlInsert);
procedure AddHandlerRemove(aHandler: TOnCtrlRemove);
end;
TPanel = class(ExtCtrls.TPanel, IWcObserved)
private
FOnCtrlInsert: TOnCtrlInsert;
FOnCtrlRemove: TOnCtrlRemove;
public
procedure InsertControl(aControl: TControl; aIndex: Integer); override;
procedure RemoveControl(AControl: TControl); override;
procedure AddHandlerInsert(aHandler: TOnCtrlInsert);
procedure AddHandlerRemove(aHandler: TOnCtrlRemove);
end;
TGroupBox = class(StdCtrls.TGroupBox, IWcObserved)
private
FOnCtrlInsert: TOnCtrlInsert;
FOnCtrlRemove: TOnCtrlRemove;
public
procedure InsertControl(aControl: TControl; aIndex: Integer); override;
procedure RemoveControl(AControl: TControl); override;
procedure AddHandlerInsert(aHandler: TOnCtrlInsert);
procedure AddHandlerRemove(aHandler: TOnCtrlRemove);
end;
это Вы написали похожий враппер, как и у меня?
Но я хочу избавиться от этого... Но если нет возможности, то придется так и оставить.
Вот подумываю написать рацпредложение команде Lazarus, чтобы
- Код: Выделить всё
...
property OnInsertControl: TOnInsertControl read FOnInsertControl write FOnInsertControl;
property OnRemoveControl: TOnRemoveControl read FOnRemoveControl write FOnRemoveControl;
были в TForm, TFrame, Tpanel, etc по умолчанию... Но думаю - это кроме меня никому не нужно)))