Demo学习： Closable Tabs

最新推荐文章于 2024-04-15 21:01:28 发布

weixin_34050427

最新推荐文章于 2024-04-15 21:01:28 发布

阅读量101

点赞数

原文链接：http://www.cnblogs.com/fengxb/p/3108833.html

版权

Closable Tabs

给tab页添加关闭按钮，设置UniTabSheet.Closable = True这样在tab页的右上角就会出现关闭图标，点击可以关闭当前tab页面；

1. 直接关闭，完成后提示：

procedure TMainForm.UniTabSheet5Close(Sender: TObject; var AllowClose: Boolean);
begin
   ShowMessage('Tab Closed.'); 
end;

2. 使用回调函数来确认是否关闭：

procedure TMainForm.CallBack(AResult: Integer);
begin
  if AResult=mrYes then
    UniTabSheet4.Free;
end;
procedure TMainForm.UniTabSheet4Close(Sender: TObject; var AllowClose: Boolean);
begin
   AllowClose:=False;
   MessageDlg('Close Tab?', mtConfirmation, mbYesNo, CallBack);
end;