Delphi ListView

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

Postingan populer dari blog ini

vb6 msflexgrid

Gambar
         One of the control or component in program Visual Basic 6.0 is vb6 msflexgrid . Function and their role is similar to mshflexgrid . Which displays the data in the form of rows and columns. Or if in the form of web programming output more use html tables. Control is a little different with mshflexgrid.               The use of control is very simple and easy. To add in a form can be added as follows:         Create a new project in Visual Basic 6.0 program, and then add a form. To add a component or control vb6 msflexgrid into a then double click the control that is in the collection box components. If no then you have not added control into the collection box components.         For that you must add it by right-clicking on the area of the component box, then check that in a control called Microsoft Msflexgrid Control 6.0, after checked and then press the OK button aplly or. If there is no problem in your visual basic program, then the control will add a collection of controls
Baca selengkapnya

Tutorial Visual Basic 6.0 : Listbox in VB6

Gambar
In Visual Basic 6.0 Tutorial explained that the property on the ListBox control will determine whether the sign is displayed or not the checkbox next to each item. If the city checkbox is displayed then the ListBox displays the form of multiple choices by checking the checkboxnya. But if not shown, then only one data that can be selected. ListBox in VB6 has its own characteristics, ie when the event raised ItemCheck, propertynya has actually changed. In this control , provides an array of data as a place of shelter data. References it is the index. Array is an array list that starts from zero on the item STRING and what the user saw. ItemData array is an array of LONG INTEGER items where you can place an optional numeric data item associated with the item strings accordingly. If ItemData used, each element is always in touch with the appropriate element from the array list, which means it is not an independent array. You can not control the property Listbox i
Baca selengkapnya

How to Use Mshflexgrid

Gambar
        Now we will practice how to use the control Mshflexgrid in a form. Open a new project in VB6, then add Mshflexgrid control and a CommandButton control. Let the names of the control by default.    Type the following code in the CommandButton.    Private Sub Command1_Click()  Dim Nomor(5)  Dim Names(5)  Nomor(1) = "10001"  Nomor(2) = "10002"  Nomor(3) = "10003"  Nomor(4) = "10004"  Nomor(5) = "10005"  Names(1) = "Abraham"  Names(2) = "Pill Collin"  Names(3) = "Collina"  Names(4) = "Stoner"  Names(5) = "Paul"  With MSHFlexGrid1       .Rows = 6       .Cols = 3       .TextMatrix(1, 1) = Nomor(1)       .TextMatrix(1, 2) = Names(1)       .TextMatrix(2, 1) = Nomor(2)       .TextMatrix(2, 2) = Names(2)       .TextMatrix(3, 1) = Nomor(3)       .TextMatrix(3, 2) = Names(3)       .TextMatrix(4, 1) = Nomor(4)       .TextMatrix(4, 2) = Names(4)       .TextMatrix(5, 1) = Nomor(5)       .TextM
Baca selengkapnya