实现托动PageControl上的标签页

easyboot

于 2013-03-15 15:00:46 发布

阅读量956

点赞数

分类专栏： Delphi

本文链接：https://blog.youkuaiyun.com/easyboot/article/details/8678070

版权

Delphi 专栏收录该内容

54 篇文章

订阅专栏

本文介绍了一个使用Delphi实现的页面控制(PageControl)的拖放功能，通过自定义的鼠标按下、拖动及释放事件处理函数，实现了页面间的切换效果。此功能增强了用户交互体验，使用户能够通过简单的拖拽操作来选择不同的页面。

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

procedure TMainForm.PageControl1MouseDown(Sender: TObject;
   Button: TMouseButton; Shift: TShiftState; X, Y: Integer) ;
begin
   PageControl1.BeginDrag(False) ;
end;

procedure TMainForm.PageControl1DragDrop(Sender, Source: TObject; X,
   Y: Integer) ;
const
   TCM_GETITEMRECT = $130A;
var
   TabRect: TRect;
   j: Integer;
begin
   if (Sender is TPageControl) then
   for j := 0 to PageControl1.PageCount - 1 do
   begin
     PageControl1.Perform(TCM_GETITEMRECT, j, LParam(@TabRect)) ;
     if PtInRect(TabRect, Point(X, Y)) then
     begin
       if PageControl1.ActivePage.PageIndex <> j then
         PageControl1.ActivePage.PageIndex := j;
       Exit;
     end;
   end;
end;

procedure TMainForm.PageControl1DragOver(Sender, Source: TObject; X,
   Y: Integer; State: TDragState; var Accept: Boolean) ;
begin
   if (Sender is TPageControl) then Accept := True;
end;