Listview - Delphi Tutorial
Delphi Tutorial work with Listview
http://xkobyx.blogspot.com/
Learn Delphi
In this video you can learn how to work with Listview in Delphi.
You can learn how to create,edit and delete items, and also how to add icons to items.
Here is also code used in this video :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ImgList, Menus, StdCtrls, ExtCtrls, ComCtrls;
type
TForm1 = class(TForm)
ListView1: TListView;
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
CheckBox1: TCheckBox;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
ImageList1: TImageList;
Button10: TButton;
CheckBox2: TCheckBox;
procedure Button1Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure ListView1DblClick(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure ListView1Edited(Sender: TObject; Item: TListItem; var S: string);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button10Click(Sender: TObject);
var
Itm:TListItem;
i:Integer;
begin
for I := 1 to 10 do
begin
Itm:=ListView1.Items.Add;
Itm.Caption:='Item '+IntToStr(ListView1.Items.Count);
Itm.SubItems.Add(Itm.Caption+' Subitem 1');
Itm.SubItems.Add(Itm.Caption+' Subitem 2');
Itm.ImageIndex:=0;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Itm:TListItem;
begin
Itm:=ListView1.Items.Add;
Itm.Caption:='Item '+IntToStr(ListView1.Items.Count);
Itm.SubItems.Add(Itm.Caption+' Subitem 1');
Itm.SubItems.Add(Itm.Caption+' Subitem 2');
Itm.ImageIndex:=0;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ListView1.DeleteSelected;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ListView1.Items.Clear;
end;
procedure TForm1.Button4Click(Sender: TObject);
var i:Integer;
begin
for I := 0 to ListView1.Items.Count-1 do
begin
ListView1.Items[i].Checked:=True;
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
var i:Integer;
begin
for I := 0 to ListView1.Items.Count-1 do
begin
ListView1.Items[i].Checked:=False;
end;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
ListView1.ViewStyle:=vsIcon;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
ListView1.ViewStyle:=vsList;
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
ListView1.ViewStyle:=vsReport;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
ListView1.ViewStyle:=vsSmallIcon;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
ListView1.Checkboxes:=CheckBox1.Checked;
end;
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
ListView1.RowSelect:=CheckBox2.Checked;
end;
procedure TForm1.ListView1DblClick(Sender: TObject);
begin
if ListView1.ItemFocused.Checked=true then
ListView1.ItemFocused.Checked:=false
else
ListView1.ItemFocused.Checked:=True;
end;
procedure TForm1.ListView1Edited(Sender: TObject; Item: TListItem;
var S: string);
begin
Item.SubItems[0]:=
S+' Subitem 1';
Item.SubItems[1]:=
S+' Subitem 2';
end;
end.
Видео Listview - Delphi Tutorial канала Delphi practical school
http://xkobyx.blogspot.com/
Learn Delphi
In this video you can learn how to work with Listview in Delphi.
You can learn how to create,edit and delete items, and also how to add icons to items.
Here is also code used in this video :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ImgList, Menus, StdCtrls, ExtCtrls, ComCtrls;
type
TForm1 = class(TForm)
ListView1: TListView;
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
CheckBox1: TCheckBox;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
ImageList1: TImageList;
Button10: TButton;
CheckBox2: TCheckBox;
procedure Button1Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure ListView1DblClick(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure ListView1Edited(Sender: TObject; Item: TListItem; var S: string);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button10Click(Sender: TObject);
var
Itm:TListItem;
i:Integer;
begin
for I := 1 to 10 do
begin
Itm:=ListView1.Items.Add;
Itm.Caption:='Item '+IntToStr(ListView1.Items.Count);
Itm.SubItems.Add(Itm.Caption+' Subitem 1');
Itm.SubItems.Add(Itm.Caption+' Subitem 2');
Itm.ImageIndex:=0;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Itm:TListItem;
begin
Itm:=ListView1.Items.Add;
Itm.Caption:='Item '+IntToStr(ListView1.Items.Count);
Itm.SubItems.Add(Itm.Caption+' Subitem 1');
Itm.SubItems.Add(Itm.Caption+' Subitem 2');
Itm.ImageIndex:=0;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ListView1.DeleteSelected;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ListView1.Items.Clear;
end;
procedure TForm1.Button4Click(Sender: TObject);
var i:Integer;
begin
for I := 0 to ListView1.Items.Count-1 do
begin
ListView1.Items[i].Checked:=True;
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
var i:Integer;
begin
for I := 0 to ListView1.Items.Count-1 do
begin
ListView1.Items[i].Checked:=False;
end;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
ListView1.ViewStyle:=vsIcon;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
ListView1.ViewStyle:=vsList;
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
ListView1.ViewStyle:=vsReport;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
ListView1.ViewStyle:=vsSmallIcon;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
ListView1.Checkboxes:=CheckBox1.Checked;
end;
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
ListView1.RowSelect:=CheckBox2.Checked;
end;
procedure TForm1.ListView1DblClick(Sender: TObject);
begin
if ListView1.ItemFocused.Checked=true then
ListView1.ItemFocused.Checked:=false
else
ListView1.ItemFocused.Checked:=True;
end;
procedure TForm1.ListView1Edited(Sender: TObject; Item: TListItem;
var S: string);
begin
Item.SubItems[0]:=
S+' Subitem 1';
Item.SubItems[1]:=
S+' Subitem 2';
end;
end.
Видео Listview - Delphi Tutorial канала Delphi practical school
Показать
Комментарии отсутствуют
Информация о видео
Другие видео канала
Delphi tutorial Delphi Lesson 1 - simple applicationWork with INI files - Delphi TutorialExport Image To PDF with DelphiGet Basic File Info Delphi tutorialCompress files and folders to zip file with Delphi using "FWZip" componentGet Computer Drives - Delphi TutorialExternal fonts - Delphi tutorialMS Access database with KADao - Delphi TutorialsText viewer - Delphi tutorialWeb browser Delphi ExampleListbox manipulate items - Delphi TutorialMedia Player Video Player Direct Show DSPack Delphi exampleMedia Player VLC ActiveX Delphi tutorialForm in a DLL file Delphi tutorialsMusic Player using BASS library +Media player Delphi tutorialDelphi tutorial Export database to ExcelDraw shapes with DelphiMedia Player - Delphi tutorialClient server application - Delphi tutorialMySQL with ZEOS components - Delphi Tutorials