首页 > 移动平台 > 详细

Delphi中拖动的方式来移动TPageControl的Tab

时间:2017-01-20 23:14:32      阅读:432      评论:0      收藏:0      [点我收藏+]

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;

Delphi中拖动的方式来移动TPageControl的Tab

原文:http://www.cnblogs.com/yzryc/p/6329466.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!