Below is an example of LISTVIEW IN DELPHI programming.
Can someone write me code for this.

object Form1: TForm1
Left = 199
Top = 176
Width = 544
Height = 375
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object ListView1: TListView
Left = 56
Top = 24
Width = 417
Height = 137
Columns = <
item
Caption = 'URL'
Width = 200
end
item
Caption = 'INFO1'
Width = 100
end
item
Caption = 'INFO2'
end>
Items.Data = {
EC0000000400000000000000FFFFFFFFFFFFFFFF050000000000000015687474
703A2F2F7777772E676F6F676C652E636F6D0331303003323030033135300232
390000000000FFFFFFFFFFFFFFFF020000000000000014687474703A2F2F7777
772E676F6F676C652E696E02333202383900000000FFFFFFFFFFFFFFFF020000
000000000016687474703A2F2F7777772E626C73616464662E636F6D03333234
02323300000000FFFFFFFFFFFFFFFF020000000000000016687474703A2F2F77
77772E6C696E6B3433352E636F6D0331303403313536FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFF}
TabOrder = 0
ViewStyle = vsReport
end
end




Unit1.pas
========
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdHTTP, StdCtrls, ComCtrls;

type
TForm1 = class(TForm)
ListView1: TListView;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;


var
Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
end;
end.

Delphi ListView
Categories: