>>431
TForm1 = class
private procedure CMShowingChanged(var Msg:TMessage); message CM_SHOWINGCHANGED;


procedure TFormEx.CMShowingChanged(var Msg: TMessage);
begin
　inherited;
　if Visible then
　begin
　　Update;
　　// todo:ここに処理を記述
　end;
end;