utree_sel.pas

来自「相关的销售服务管理行业的一个软件」· PAS 代码 · 共 62 行

unit UTree_Sel;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  UClass_Base, Menus, Db, ADODB, ComCtrls, ExtCtrls, ToolWin, UDataVar,
  StdCtrls;

type
  TfrmTree_Sel = class(TfrmClass_Base)
    procedure TvMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormHide(Sender: TObject);
  private
    { Private declarations }                                              
  public
    SB:TSelBack;
    { Public declarations }
  end;

var
  frmTree_Sel: TfrmTree_Sel;
  SB:TSelBack=sbNone;
implementation


{$R *.DFM}

procedure TfrmTree_Sel.TvMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  if Tv.Items.Count=0 then Close;
  if (Tv.Selected.getFirstChild=nil) and (Tv.GetHitTestInfoAt(X,Y)=[htOnItem,htOnLabel]) then
  Hide;
end;

procedure TfrmTree_Sel.FormCreate(Sender: TObject);
begin
  inherited;
  ADOQry.Close;
  ADOQry.Open;
end;

procedure TfrmTree_Sel.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  SB:=sbClose;
end;

procedure TfrmTree_Sel.FormHide(Sender: TObject);
begin
  inherited;
  if SB<>sbClose then SB:=sbHide;
end;

end.