各位先進:

板上找不到相關的案例，所以上來請教協助。

如何做到點選TListView中的某一列再將其中某一欄位帶至function中。

謝謝!!

試看看這小段
procedure TForm1.ListView1Click(Sender: TObject);
begin
myFunc(ListView1.Selected.Caption);
end;
procedure TForm1.myFunc(Caption: string);
begin
ShowMessage(Caption);
end;

[code delphi]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, StrUtils;
type
TForm1 = class(TForm)
ListView1: TListView;
Button1: TButton;
procedure FormActivate(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure ListView1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
var
i : integer;
Mytitle : Array of string;
MyWidth : Array of integer;
ListItem: TListItem;
alarmfile_st ,temp_st: tstringlist;
str : string;
begin
// prepare text file
alarmfile_st := tstringlist.create;
temp_st := tstringlist.create;
alarmfile_st.LoadFromFile('alarm.txt');
// title name
SetLength(Mytitle, 4);
Mytitle[0]:= '提醒日';
Mytitle[1]:= '到期日';
Mytitle[2]:= '抬頭';
Mytitle[3]:= '內容';
// field width
SetLength(Mywidth, 4);
Mywidth[0]:= listview1.Font.Size*8;
Mywidth[1]:= listview1.Font.Size*7;
Mywidth[2]:= listview1.Font.Size*10;
Mywidth[3]:= listview1.Font.Size*20;
// set title
for i := 0 to 3 do begin
listview1.Columns.Add;
listview1.Columns[i].Caption := Mytitle[i];
listview1.Columns[i].Width := Mywidth[i];
end;
// set items
with listview1 do begin
for I := 0 to alarmfile_st.Count-1 do
begin
str := alarmfile_st[i];
temp_st.Text := stringreplace(Str,'',#13,[rfReplaceAll]);
ListItem := Items.Add;
ListItem.Caption := temp_st[0];
ListItem.SubItems.Add(temp_st[1]);
ListItem.SubItems.Add(temp_st[2]);
if pos('
',temp_st[3])<>-1 then begin
ListItem.SubItems.Add(stringreplace(temp_st[3],'
',#13 #10,[rfReplaceAll]));
end;
end;
end;
// setup listview
listview1.ViewStyle := vsReport ;
listview1.RowSelect := true;

end;

procedure TForm1.ListView1Click(Sender: TObject);
var aTime,Otime,aTitle,aData : string;
i : integer;
begin
i := listview1.Selected.Index;
aTime := listview1.Items[i].Caption;
Otime := listview1.Items[i].SubItems[0];
aTitle := listview1.Items[i].SubItems[1];
showmessage('YourFunction(' aTime ',' oTime ',' aTitle ')');
end;
end.

[/code]

------
努力會更接近成功

謝謝，可以使用了，但再延伸一個問題
我想用上下鍵移動光條時也可以觸發與click一樣的行為，但我用以下的方法執行是會有類似記憶體錯息
procedure TformMain.TListVewSelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);

錯誤訊息:
Access violation at address 01CE06E4 in module 'xxxx.dl'. Read of address 00000004.



===================引 用 pceyes 文 章===================

[code delphi]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, StrUtils;
type
TForm1 = class(TForm)
ListView1: TListView;
Button1: TButton;
procedure FormActivate(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure ListView1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
var
i : integer;
Mytitle : Array of string;
MyWidth : Array of integer;
ListItem: TListItem;
alarmfile_st ,temp_st: tstringlist;
str : string;
begin
// prepare text file
alarmfile_st := tstringlist.create;
temp_st := tstringlist.create;
alarmfile_st.LoadFromFile('alarm.txt');
// title name
SetLength(Mytitle, 4);
Mytitle[0]:= '提醒日';
Mytitle[1]:= '到期日';
Mytitle[2]:= '抬頭';
Mytitle[3]:= '內容';
// field width
SetLength(Mywidth, 4);
Mywidth[0]:= listview1.Font.Size*8;
Mywidth[1]:= listview1.Font.Size*7;
Mywidth[2]:= listview1.Font.Size*10;
Mywidth[3]:= listview1.Font.Size*20;
// set title
for i := 0 to 3 do begin
listview1.Columns.Add;
listview1.Columns[i].Caption := Mytitle[i];
listview1.Columns[i].Width := Mywidth[i];
end;
// set items
with listview1 do begin
for I := 0 to alarmfile_st.Count-1 do
begin
str := alarmfile_st[i];
temp_st.Text := stringreplace(Str,'',#13,[rfReplaceAll]);
ListItem := Items.Add;
ListItem.Caption := temp_st[0];
ListItem.SubItems.Add(temp_st[1]);
ListItem.SubItems.Add(temp_st[2]);
if pos('
',temp_st[3])<>-1 then begin
ListItem.SubItems.Add(stringreplace(temp_st[3],'
',#13 #10,[rfReplaceAll]));
end;
end;
end;
// setup listview
listview1.ViewStyle := vsReport ;
listview1.RowSelect := true;

end;

procedure TForm1.ListView1Click(Sender: TObject);
var aTime,Otime,aTitle,aData : string;
i : integer;
begin
i := listview1.Selected.Index;
aTime := listview1.Items[i].Caption;
Otime := listview1.Items[i].SubItems[0];
aTitle := listview1.Items[i].SubItems[1];
showmessage('YourFunction(' aTime ',' oTime ',' aTitle ')');
end;
end.

[/code]

編輯記錄

[code delphi]
procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
var aTime,Otime,aTitle: string;
i : integer;
begin
i := item.Index;
aTime := listview1.Items[i].Caption;
Otime := listview1.Items[i].SubItems[0];
aTitle := listview1.Items[i].SubItems[1];
showmessage('YourFunction(' aTime ',' oTime ',' aTitle ')');
end;[/code]

------
努力會更接近成功

可以了，謝謝!!
===================引 用 pceyes 文 章===================

[code delphi]
procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
var aTime,Otime,aTitle: string;
i : integer;
begin
i := item.Index;
aTime := listview1.Items[i].Caption;
Otime := listview1.Items[i].SubItems[0];
aTitle := listview1.Items[i].SubItems[1];
showmessage('YourFunction(' aTime ',' oTime ',' aTitle ')');
end;[/code]