Delphi de ListView Kullanimi

Merhaba arkada lar bu makalemizde Delphi de ListView uygulamasi yapacagiz. Formumuzdaki Edit ve ComboBox taki string degerleri ListView nesnesine ekleyecegiz.

Ilk once Formumuza 12 adet Label, 10 adet Edit, 2 adet ComboBox, 1 adet Button ve 1 adet ListView ekliyoruz. Sonra ListView nesnesine sag tikliyoruz. Acilan pencerede Columns Editor e tikliyoruz.  Burada Add New e tiklayarak sutun ekliyoruz. Ekledigimiz sutunun ismini, Object Inspector de secili Column un caption kismindan degistiriyoruz.

ekil 1

ekil 2

unit Unit1;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Edit3: TEdit;

Label4: TLabel;

Edit4: TEdit;

Label5: TLabel;

ComboBox1: TComboBox;

Label6: TLabel;

ComboBox2: TComboBox;

Label7: TLabel;

Edit5: TEdit;

Label8: TLabel;

Edit6: TEdit;

Label9: TLabel;

Edit7: TEdit;

Label10: TLabel;

Edit8: TEdit;

Label11: TLabel;

Edit9: TEdit;

Button1: TButton;

ListView1: TListView;

Label12: TLabel;

Edit10: TEdit;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

ListView1.Items.Add;//add row

ListView1.Items[0].Caption:=Edit10.Text;

ListView1.Items[0].SubItems.Add(Edit1.Text);

ListView1.Items[0].SubItems.Add(Edit2.Text);

ListView1.Items[0].SubItems.Add(Edit3.Text);

ListView1.Items[0].SubItems.Add(Edit4.Text);

ListView1.Items[0].SubItems.Add(ComboBox1.Text);

ListView1.Items[0].SubItems.Add(ComboBox2.Text);

ListView1.Items[0].SubItems.Add(Edit5.Text);

ListView1.Items[0].SubItems.Add(Edit6.Text);

ListView1.Items[0].SubItems.Add(Edit7.Text);

ListView1.Items[0].SubItems.Add(Edit8.Text);

ListView1.Items[0].SubItems.Add(Edit9.Text);

end;

end.

Bir makalenin daha sonuna geldik. Bir sonraki makalede gorusmek uzere. BahadirSAHIN