>>288
procedure CMShowingChanged(var Message: TMessage);message CM_SHOWINGCHANGED;

procedure TfrmAE002.CMShowingChanged(var Message: TMessage);
begin
　inherited;
if Visible then
begin
　
end;
end;