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

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

Delphi控件源码

开发平台：

Delphi

TreeForm.pas：源码内容
  1. unit TreeForm;
  3. interface
  5. uses
  6.   SysUtils, Qt, Classes, QGraphics, QControls, QForms, QDialogs,
  7.   QStdCtrls, QComCtrls, QMenus, QTypes;
  9. type
  10.   TForm1 = class(TForm)
  11.     TreeView1: TTreeView;
  12.     MainMenu1: TMainMenu;
  13.     Options1: TMenuItem;
  14.     File1: TMenuItem;
  15.     Exit1: TMenuItem;
  16.     Help1: TMenuItem;
  17.     About1: TMenuItem;
  18.     Root1: TMenuItem;
  19.     Buttons1: TMenuItem;
  20.     Lines1: TMenuItem;
  21.     N1: TMenuItem;
  22.     Font1: TMenuItem;
  23.     FontDialog1: TFontDialog;
  24.     procedure FormCreate(Sender: TObject);
  25.     procedure About1Click(Sender: TObject);
  26.     procedure Root1Click(Sender: TObject);
  27.     procedure Buttons1Click(Sender: TObject);
  28.     procedure Lines1Click(Sender: TObject);
  29.     procedure Exit1Click(Sender: TObject);
  30.     procedure Font1Click(Sender: TObject);
  31.     procedure TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
  32.       State: TDragState; var Accept: Boolean);
  33.     procedure TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
  34.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  35.     procedure TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  36.       Shift: TShiftState; X, Y: Integer);
  37.   private
  38.     { Private declarations }
  39.   public
  40.     { Public declarations }
  41.   end;
  43. var
  44.   Form1: TForm1;
  46. implementation
  48. {$R *.xfm}
  50. procedure TForm1.FormCreate(Sender: TObject);
  51. begin
  52.   TreeView1.LoadFromFile (
  53.     ExtractFilePath (Application.ExeName) + 'TreeText.txt');
  54. end;
  56. procedure TForm1.About1Click(Sender: TObject);
  57. begin
  58.   MessageDlg ('DragTree Example'#13'by Marco Cant