Hallo Danilo,
in der
VCL werden zahlreiche Nachrichten verschickt, die leider nicht alle von Borland dokumentiert wurden. In der Hoffnung, daß uns
CM_CONTROLCHANGE auch weiterhin erhalten bleibt (und hoffentlich fehlerfrei):
Delphi-Quellcode:
type
TInsertControlEvent = procedure (Sender: TObject; Control: TControl) of object;
TRemoveControlEvent = procedure (Sender: TObject; Control: TControl) of object;
TExtPanel = class (TPanel)
private
FOnInsertControl : TInsertControlEvent;
FOnRemoveControl : TRemoveControlEvent;
procedure CMControlChange (var msg: TCMControlChange);
message CM_CONTROLCHANGE;
published
property OnInsertControl: TInsertControlEvent
read FOnInsertControl write FOnInsertControl;
property OnRemoveControl: TRemoveControlEvent
read FOnRemoveControl write FOnRemoveControl;
end;
procedure TExtPanel.CMControlChange (var msg: TCMControlChange);
begin
inherited;
if msg.Inserting and Assigned(FOnInsertControl) then
FOnInsertControl (Self, msg.Control)
else
if (not msg.Inserting) and Assigned(FOnRemoveControl) then
FOnRemoveControl (Self, msg.Control);
end;
Gruß Hawkeye