如果在某些条件下控制某个TabSheet不可点

Question

如题,我的PageControl有4个TabSheet,如果在某些条件下控制某个TabSheet不可点
我想在Changing事件里想写一个条件控制AllowChange:=True/False
但这个条件比较棘手,也就是如何获取将点取的TabSheet的TabIndex?

Answer 1

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 [1, 3, 5];
  end;
end;