PageControl 中指定TabSheet 不可激活

最新推荐文章于 2019-03-27 17:08:12 发布

原创最新推荐文章于 2019-03-27 17:08:12 发布 · 244 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#Java

Delphi 专栏收录该内容

4 篇文章

订阅专栏

本文介绍了一个简单的Delphi程序，用于控制PageControl组件的页签切换逻辑。通过获取鼠标位置并判断其是否位于特定页签上，来决定是否允许进行页面切换。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >


procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
var
  FPt: TPoint;
  FIndex: Integer;
begin
  if GetCursorPos(FPt) then
  begin
    FPt := PageControl1.ScreenToClient(FPt);
    FIndex := PageControl1.IndexOfTabAt(FPt.X, FPt.Y);
    AllowChange := FIndex in [0,1,2];
  end;

end;