fselect.pas

来自「数据库人寿保险通用系统 本系统主要负责保险资料的管理」· PAS 代码 · 共 67 行

unit fselect;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TF_select = class(TForm)
    ListBox1: TListBox;
    procedure createparams(var params:Tcreateparams);override;
    procedure ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Enter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    sel:integer;
  end;

var
  F_select: TF_select;
  
implementation

uses Unit4;

{$R *.dfm}

procedure Tf_select.createparams(var params:Tcreateparams);
var
  wndparnet:hwnd;
begin
  Inherited createparams(params);
  with params do
  begin
    exstyle:=exstyle or ws_ex_topmost or ws_ex_acceptfiles;
    wndparnet:=getdesktopwindow;
  end;
end;
procedure TF_select.ListBox1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if listbox1.Items.Count<>0 then
  begin
    sel:=listbox1.ItemIndex;
    if button=mbleft then
      (sender as tlistbox).BeginDrag(false);
  end;
end;

procedure TF_select.FormCreate(Sender: TObject);
begin
  Bordericons:=bordericons-[bimaximize];
end;

procedure TF_select.ListBox1Enter(Sender: TObject);
begin
  if F_customer.edit3.Enabled=true then
  F_customer.edit3.SetFocus;
end;

end.