用 .Selected.Index
例:
procedure TFrm_Main.lvSjglDblClick(Sender: TObject);
begin
case lvSjgl.Selected.Index of
0: mmiOnlineClick(nil);
1: mmiImpExpClick(nil);
2: mmiUpDownClick(nil);
end;
end;
例:
procedure TFrm_Main.lvSjglDblClick(Sender: TObject);
begin
case lvSjgl.Selected.Index of
0: mmiOnlineClick(nil);
1: mmiImpExpClick(nil);
2: mmiUpDownClick(nil);
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货