喂,楼上的,拜托给点敬业精神好不好,OnEditing参数有三个,你这样乱写一通好吗? var b :Boolean; begin b :=True; ListView1.OnEditing(Sender, ListView1.Items[0], b); end;
var b :Boolean; begin b :=True; ListView1.OnEditing(nil,nil,b); end;sorry 没仔细看 呵呵 这样也行
procedure TForm1.Button1Click(Sender: TObject); var tn:TTreeNode; T:boolean; begin tn:=TreeView1.Selected; //你选中的节点 t:=true; if tn<>nil then TreeView1.OnEditing(sender,tn,t); //触发你选中节点的onediting事件 end;
写错 procedure TForm1.Button1Click(Sender: TObject); var tn:TListItem; T:boolean; begin tn:=ListView1.Selected; //你选中的节点 t:=true; if tn<>nil then listView1.OnEditing(sender,tn,t); //触发你选中节点的onediting事件 end;
button里面调用 listview1editing(nil);
var
b :Boolean;
begin
b :=True;
ListView1.OnEditing(Sender, ListView1.Items[0], b);
end;
b :Boolean;
begin
b :=True;
ListView1.OnEditing(nil,nil,b);
end;sorry 没仔细看 呵呵
这样也行
var
tn:TTreeNode;
T:boolean;
begin
tn:=TreeView1.Selected; //你选中的节点
t:=true;
if tn<>nil then
TreeView1.OnEditing(sender,tn,t); //触发你选中节点的onediting事件
end;
procedure TForm1.Button1Click(Sender: TObject);
var
tn:TListItem;
T:boolean;
begin
tn:=ListView1.Selected; //你选中的节点
t:=true;
if tn<>nil then
listView1.OnEditing(sender,tn,t); //触发你选中节点的onediting事件
end;