J
jstkof
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.ClipChildren(Clipping: Boolean);<br>var<br> Style: LongInt;<br>begin<br> Style := GetWindowLong(Handle, Gwl_Style);<br> if Clipping then<br> Style := Style or Ws_ClipChildren<br> else<br> Style := Style and not Ws_ClipChildren;<br> SetWindowLong(Handle, Gwl_Style, Style);<br>end;<br>谁能告诉告诉我上面这段代码是什么意思?style有哪些值?以及这些值表示什么?<br>我查delphi的帮助居然没有,真是怪事。谢谢了