hsr///////////////////////////////////////////////////////
혹시 resize할때는 에러가 없나요?
제일 많이 쓰는 WndProc의 Message를 가로채서 해보세요.
원인을 파악하기 힘드네요...
선언 procedure WndProc( var Message : TMessage ); override;
//SC_MINIMIZE나 SC_MAXIMIZE시 처리
procedure TForm1.WndProc( var Message : TMessage );
var
p : TPoint;
begin
case Message.Msg of
//폼이 최소될때는
WM_SysCommand:
begin
if TWMSysCommand(Message).CmdType and $FFF0 = SC_MINIMIZE then begin
//TWMSysCommand(Message).CmdType := 0;
......
end;
end;
end;
inherited;
end;
혹시 resize할때는 에러가 없나요?
제일 많이 쓰는 WndProc의 Message를 가로채서 해보세요.
원인을 파악하기 힘드네요...
선언 procedure WndProc( var Message : TMessage ); override;
//SC_MINIMIZE나 SC_MAXIMIZE시 처리
procedure TForm1.WndProc( var Message : TMessage );
var
p : TPoint;
begin
case Message.Msg of
//폼이 최소될때는
WM_SysCommand:
begin
if TWMSysCommand(Message).CmdType and $FFF0 = SC_MINIMIZE then begin
//TWMSysCommand(Message).CmdType := 0;
......
end;
end;
end;
inherited;
end;