delphi 实现 托动PageControl上的标签页

本文整理自网络，侵删。

 
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;
 

相关阅读 >>

trichedit 是一个标准的rtf编辑器

Delphi httpclient async异步获取网页代码

Delphi xe6取得android智能手机的电话号码等的终端信息

Delphi xe5 android实现繁体字到简体字的转换函数

Delphi 获取国外格式日期时间

Delphi中的处理事件 application.processmessages

Delphi url protocol 让浏览器运行本地的exe程序

Delphi 获取窗体坐标触发事件

Delphi 中 tjpegimage 中的一处问题修复

Delphi posansi

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 实现 托动PageControl上的标签页