如何让 PageControl锁定某个ActivePage? 我现在 想让 PageControl 的 锁定某个ActivePage这时,就不能通过鼠标来切换不同的TabSheet。这个功能该如何实现? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var bLook : boolean = false;procedure TForm1.PageControl1Changing(Sender: TObject; var AllowChange: Boolean);begin if bLook then AllowChange := false;end;procedure TForm1.CheckBox1Click(Sender: TObject);begin bLook := CheckBox1.Checked;end; 这段C++怎么翻译成Object Pascal的? 如何在窗口中接管Tab键,用setwindowlong,接管窗口默认处理函数,但是都拿不到,有无别的办法 为什么我的 OnMouseDown 不起作用? 如何自由拖动按钮? 太菜了,有分 新手的困惑:奇怪的构造器错误? 一个入门的问题 ThemeEngine 3.1.2里标题的字的大小怎么改?ThemeMenuBar里字体的大小怎么改? 关于Hint的问题!!..急... 请问DELPHI编写的程序可以不使用动态链接库等。而在别的机器上别的WIN操作系统运行吗? 想往ERP方面发展,请问学哪门语言好些?? 请教两个dll文件的作用
bLook : boolean = false;
procedure TForm1.PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);
begin
if bLook then AllowChange := false;
end;procedure TForm1.CheckBox1Click(Sender: TObject);
begin
bLook := CheckBox1.Checked;
end;