type
Tframe1 = class(TFrame)
...
private
{ Private declarations }
procedure CMShowingChanged(var Message: TMessage); message CM_SHOWINGCHANGED;
...
procedure Tframe1.CMShowingChanged(var Message: TMessage);
begin
if Showing then
begin
try
ShowMessage('frame1 show!!!!')
except
Application.HandleException(Self);
end;
end;
inherited;
end;
Tframe1 = class(TFrame)
...
private
{ Private declarations }
procedure CMShowingChanged(var Message: TMessage); message CM_SHOWINGCHANGED;
...
procedure Tframe1.CMShowingChanged(var Message: TMessage);
begin
if Showing then
begin
try
ShowMessage('frame1 show!!!!')
except
Application.HandleException(Self);
end;
end;
inherited;
end;