开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
DockPF.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

DockPF.pas：源码内容
  1. unit DockPF;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ComCtrls, ExtCtrls, StdCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     Splitter1: TSplitter;
  12.     Memo1: TMemo;
  13.     Panel1: TPanel;
  14.     ListBox1: TListBox;
  15.     PageControl1: TPageControl;
  16.     TabSheet1: TTabSheet;
  17.     procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  18.       Shift: TShiftState; X, Y: Integer);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.   end;
  25. var
  26.   Form1: TForm1;
  28. implementation
  30. {$R *.DFM}
  32. procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  33.   Shift: TShiftState; X, Y: Integer);
  34. begin
  35.   PageControl1.BeginDrag (False, 10);
  36. end;
  38. end.