我想让 ListView 的在vsReport状态下 SubItems 可以编辑,怎么样才能实现?
解决方案 »
- 如何控制mdi子窗口位置和大小
- 如何在 mxoutlookbarpro 的button上添加图片!!
- ---------------- 关于局域网管理软件中附件的问题 ----------------
- 最新Delphi版电子体温单控件
- 新手50分求救:图片跟着鼠标走,效果惨不忍睹,如何加快图片的跟进速度?
- 动态创建登入验证窗体问题
- 新年散分之一
- 在线请救!!关于FILESTREAM的问题,急!!拜托各位了!
- delphi2007,.aspx中的<asp:button>标签是自动生成还是手动写
- 如何在TreeView,ListView中添加背景图片,好象有点难度?
- delphi6 用idsmtp控件 发送邮件验证失败怎么办?
- ListItem 的标题是中文的,如何快速定位?
你学着做,在edit的onChange中一起修改subitems
再控制edit的出现和消失就可以了
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;type
TForm1 = class(TForm)
ListView1: TListView;
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure Edit1Exit(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
if ListView1.SelCount < 1 then Exit;
Edit1.Left := ListView1.Left + ListView1.Column[0].Width + 5;
Edit1.Top := ListView1.Top + ListView1.Selected.Top;
Edit1.Text := ListView1.Selected.SubItems.Strings[0];
Edit1.Visible := True;
Edit1.SetFocus;
end;procedure TForm1.Edit1Exit(Sender: TObject);
begin
ListView1.Selected.SubItems.Strings[0] := Edit1.Text;
Edit1.Visible := False;
end;
唉我已经会了。怎么办啊,分不会是给我自己吧?哈