Delphi de ListView Kullanımı

 

Merhaba arkadaşlar bu makalemizde Delphi de ListView uygulaması yapacağız. Formumuzdaki Edit ve ComboBox taki string değerleri ListView nesnesine ekleyeceğiz.

 

İlk önce Formumuza 12 adet Label, 10 adet Edit, 2 adet ComboBox, 1 adet Button ve 1 adet ListView ekliyoruz. Sonra ListView nesnesine sağ tıklıyoruz. Açılan pencerede Columns Editor e tıklıyoruz.  Burada Add New e tıklayarak sütun ekliyoruz. Eklediğimiz sütunun ismini, Object Inspector de seçili Column un caption kısmından değiştiriyoruz.

 

 

 

 

 

 

 

 

 

 

 

 

 

Ş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 görüşmek üzere. Bahadır ŞAHİN

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.