悟
悟空1
Unregistered / Unconfirmed
GUEST, unregistred user!
只能修改TForm的基类了。好像没有好的办法。或者你自己继承一个窗口下来，修改的方法如下
procedure TCustomForm.CreateWnd;
中的
FClientHandle := Windows.CreateWindowEx(WS_EX_CLIENTEDGE,
'MDICLIENT', nil, WS_CHILD or WS_VISIBLE or WS_GROUP or WS_TABSTOP or WS_CLIPCHILDREN or WS_HSCROLL or WS_VSCROLL or
WS_CLIPSIBLINGS or MDIS_ALLCHILDSTYLES, 0, 0, ClientWidth, ClientHeight, Handle, 0, HInstance, @ClientCreateStruct);
把其中的中的 WS_HSCROLL or WS_VSCROLL 去掉即可以；
请问这样的咚咚怎么在程序中使用？
procedure TCustomForm.CreateWnd;
中的
FClientHandle := Windows.CreateWindowEx(WS_EX_CLIENTEDGE,
'MDICLIENT', nil, WS_CHILD or WS_VISIBLE or WS_GROUP or WS_TABSTOP or WS_CLIPCHILDREN or WS_HSCROLL or WS_VSCROLL or
WS_CLIPSIBLINGS or MDIS_ALLCHILDSTYLES, 0, 0, ClientWidth, ClientHeight, Handle, 0, HInstance, @ClientCreateStruct);
把其中的中的 WS_HSCROLL or WS_VSCROLL 去掉即可以；
请问这样的咚咚怎么在程序中使用？