本文详细介绍了如何在TFrame类中处理CM_SHOWINGCHANGED消息，实现当窗口显示状态发生变化时触发特定操作，包括显示消息框和错误处理。
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;
扫一扫
808
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
