我用了第三方控件 wwDBLookupComboDlg1 ,我里面有两个栏位,但我每次挑选完总是显示一个栏位的内容,我想两个栏位全部显示出来,可以吗?
解决方案 »
- listview显示子项的方法
- 关于开发Delphi的IDE插件的问题。
- 关于时间计算问题,急,急,急,在线等待!!!!!!
- 在线等待!!!菜鸟一问:函数应用‘ Undeclared identifier: 'aaazkl'’?
- Delphi5.0 & Paradox
- 怎样判断adoquery执行的sql是否成功?
- 一个关于TActionManager和TActionToolBar的问题!
- 广交朋友,真心的希望有一些软件方面的朋友?
- twebbrowser的问题
- 扩展名为scm为文件是什么文件,如何打开
- 怎样让DBGrid拥有多层表头?不用第三方控件
- listview里每一个ITEM可不可以用不同颜色显示?
SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, Menus, ImgList;type
TForm1 = class(TForm)
ListView1: TListView;
MainMenu1: TMainMenu;
View1: TMenuItem;
LargeIcons1: TMenuItem;
SmallIcons1: TMenuItem;
List1: TMenuItem;
Details1: TMenuItem;
N1: TMenuItem;
CheckBoxes1: TMenuItem;
ImagesLarge: TImageList;
ImagesSmall: TImageList;
procedure FormCreate(Sender: TObject);
procedure LargeIcons1Click(Sender: TObject);
procedure SmallIcons1Click(Sender: TObject);
procedure List1Click(Sender: TObject);
procedure Details1Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure CheckBoxes1Click(Sender: TObject);
procedure ListView1ColumnClick(Sender: TObject; Column: TListColumn);
procedure ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
Data: Integer; var Compare: Integer);
procedure ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormDestroy(Sender: TObject);
public
{ Public declarations }
private
nSortCol: Integer;
end;var
Form1: TForm1;implementation{$R *.DFM}
{$R BITMAPS.RES}procedure TForm1.FormCreate(Sender: TObject);
var
List: TStringList;
NewItem: TListItem;
I: Integer;
begin
NewItem := nil;
ListView1.Items.Clear;
List := TStringList.Create;
try
{读取指定文件中的视图信息}
List.LoadFromFile (ExtractFilePath (Application.ExeName) + 'Items.txt');
for I := 0 to List.Count - 1 do
if List [I][1] = #9 then
NewItem.SubItems.Add (Trim (List [I]))
else if List [I][1] = '@' then
NewItem.ImageIndex := StrToIntDef (List [I][2], 0)
else
begin
{添加一个新条目}
NewItem := ListView1.Items.Add;
NewItem.Caption := List [I];
end;
finally
List.Free;
end;
end;procedure TForm1.LargeIcons1Click(Sender: TObject);
begin
ListView1.ViewStyle := vsIcon;
LargeIcons1.Checked := True;
end;procedure TForm1.SmallIcons1Click(Sender: TObject);
begin
ListView1.ViewStyle := vsSmallIcon;
SmallIcons1.Checked := True;
end;procedure TForm1.List1Click(Sender: TObject);
begin
ListView1.ViewStyle := vsList;
List1.Checked := True;
end;procedure TForm1.Details1Click(Sender: TObject);
begin
ListView1.ViewStyle := vsReport;
Details1.Checked := True;
end;procedure TForm1.Exit1Click(Sender: TObject);
begin
Close;
end;procedure TForm1.CheckBoxes1Click(Sender: TObject);
begin
ListView1.Checkboxes :=
not ListView1.Checkboxes;
CheckBoxes1.Checked :=
not CheckBoxes1.Checked;
end;procedure TForm1.ListView1ColumnClick(Sender: TObject;
Column: TListColumn);
begin
nSortCol := Column.Index;
ListView1.AlphaSort;
end;procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
Data: Integer; var Compare: Integer);
begin
if nSortCol = 0 then
Compare := CompareStr (Item1.Caption, Item2.Caption)
else
Compare := CompareStr (Item1.SubItems [nSortCol - 1],
Item2.SubItems [nSortCol - 1]);
end;procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
strDescr: string;
I: Integer;
begin
if ListView1.Selected <> nil then
{ 左键点击可以显示描述 }
if Button = mbLeft then
begin
strDescr := ListView1.Columns [0].Caption + #9 +
ListView1.Selected.Caption + #13;
for I := 1 to ListView1.Selected.SubItems.Count do
strDescr := strDescr + ListView1.Columns [I].Caption + #9 +
ListView1.Selected.SubItems [I-1] + #13;
ShowMessage (strDescr);
end
{ 右键点击可以编辑标题 }
else if Button = mbRight then
ListView1.Selected.EditCaption;
end;procedure TForm1.FormDestroy(Sender: TObject);
var
I, J: Integer;
List: TStringList;
begin
List := TStringList.Create;
try
for I := 0 to ListView1.Items.Count - 1 do
begin
// 保存标题
List.Add (ListView1.Items[I].Caption);
// 保存索引号
List.Add ('@' + IntToStr (ListView1.Items[I].ImageIndex));
// 保存子条目
for J := 0 to ListView1.Items[I].SubItems.Count - 1 do
List.Add (#9 + ListView1.Items[I].SubItems [J]);
end;
List.SaveToFile (
ExtractFilePAth (Application.ExeName) + 'Items.txt');
finally
List.Free;
end;
end;end.
比如:你显示的字段是Name,你还要显示一栏Address,你可以在那你这样写
Name;Address就可以了!