seltaccountfrm.pas

来自「群星医药系统源码」· PAS 代码 · 共 53 行

unit SeltAccountFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, ExtCtrls, RzPanel, ComCtrls, RzListVw, xBaseFrm,
  ImgList, RzRadChk;

type
  TFmSeltAccount = class(TxBaseForm)
    lvAccounts: TRzListView;
    RzPanel1: TRzPanel;
    BtnOK: TRzBitBtn;
    BtnCancel: TRzBitBtn;
    ImageList1: TImageList;
    chkSetDefAccount: TRzCheckBox;
    procedure BtnOKClick(Sender: TObject);
    procedure lvAccountsDblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FmSeltAccount: TFmSeltAccount;

implementation

{$R *.dfm}

procedure TFmSeltAccount.BtnOKClick(Sender: TObject);
begin
  if lvAccounts.Selected=nil then
    Exit;
  ModalResult := mrOK;
end;

procedure TFmSeltAccount.lvAccountsDblClick(Sender: TObject);
begin
  BtnOK.Click;
end;

procedure TFmSeltAccount.FormShow(Sender: TObject);
begin
  if (lvAccounts.Selected=nil)and(lvAccounts.Items.Count>0) then
    lvAccounts.TopItem.Selected := true;
end;

end.