selectfieldsfrm.pas

来自「将DataGrid或dxDbGrid或cxGrid或数据集中的数据导出到Exce」· PAS 代码 · 共 52 行

unit SelectFieldsfrm;

interface

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

type
  TfmSelectFields = class(TForm)
    ListView1: TListView;
    btnSelectALL: TButton;
    btnSelectNone: TButton;
    btnOK: TButton;
    Button4: TButton;
    procedure btnSelectALLClick(Sender: TObject);
    procedure btnSelectNoneClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmSelectFields: TfmSelectFields;

implementation

{$R *.dfm}

procedure TfmSelectFields.btnSelectALLClick(Sender: TObject);
var i:integer;
begin
 for i := 0 to ListView1.Items.Count -1 do
 begin
    ListView1.Items[i].Checked:=True;
 end;

end;

procedure TfmSelectFields.btnSelectNoneClick(Sender: TObject);
var i:integer;
begin
 for i := 0 to ListView1.Items.Count -1 do
 begin
    ListView1.Items[i].Checked:=False;
 end;

end;

end.