Question

delphi 怎样用api设置PageControl的Multiline属性？

我不想直接用vcl的属性设置，因为这样TabSheet上的Activex会被初始化。请问有没有用api设置的？

Answer 1

ok,我看源代码了，不认识TCS_MULTILINE的问题解决了。可是为什么下面的代码会出这样的问题呢？procedure TForm1.Multiline1Click(Sender: TObject);vardwStyle: LongWord;begin Multiline1.Checked:=not Multiline1.Checked; dwStyle GetWindowLong( PageControl1.Handle, GWL_STYLE ); if multiline1.Checked then dwStyle dwStyle or TCS_MULTILINE else dwStyle dwStyle and not TCS_MULTILINE; SetWindowLong( PageControl1.Handle, GWL_STYLE, dwStyle ); with PageControl1 do PostMessage( handle, WM_SIZE, SIZE_RESTORED, MakeLong(ClientWidth, ClientHeight) );end;//这样不但PageControl1没有反应，而且菜单Multiline1根本不会改变checked状态，难道 Multiline1.Checked:=not Multiline1.Checked; 不起作用？还是PostMessage( handle, WM_SIZE, SIZE_RESTORED, MakeLong(ClientWidth, ClientHeight) );这里有问题了？ 查看更多答案>>

采纳哦