if NOT (csDesigning in ComponentState) then
begin
SetWindowLong((Owner as TForm).Handle, GWL_STYLE, WS_DLGFRAME+WS_SIZEBOX+WS_SYSMENU);
end;
FDestroying:=false;
FOldWndProc:=(AOwner as TForm).WindowProc;
FMsgNum:=MessageNum;
inc(messagenum);
(Owner as TForm).WindowProc:=NewWndProc;
procedure TCaptionBar.NewWndProc(var Msg: TMessage);
var i:integer;
begin
FOldWndProc(MSG);
case Msg.Msg of
WM_ACTIVATE: begin
Paint;
for I:=0 to ControlCount -1 do begin
if Controls[I].Visible then Controls[I].Repaint;
end;
end;
WM_SIZE: begin
case msg.WParam of
SIZE_RESTORED: FButtons[1].Caption:=capt_maximize;
SIZE_MAXIMIZED: FButtons[1].Caption:=capt_restore;
end;
ResetButtons;
end;
end;
end;