delphi调用过程问题

显示全部楼层 · 2009-1-12 14:18:47

我想通过buttion2.onclick调用TForm1.TreeView1Edited的过程。
代码如下
procedure TForm1.TreeView1Edited(Sender: TObject; Node: TTreeNode;
var S: String);
var mm :String;
begin

mm := Memo1.Text;

TreeUtil.ModifyNodeCaption(S,mm, Node);
end;
function TTreeUtils.ModifyNodeCaption(NewCaption: string; memotext : String;
Node: TTreeNode): boolean;
begin
sqlStr := 'Update ' + TableName + ' set ' + FieldCaption + '="' + NewCaption + '",' + FieldTtext +'="' + memotext + '"where '

+ FieldIndex + ' = ' + IntToStr(PNodeData(Node.Data)^.Index);
if execSQL(sqlStr, errStr) then

begin

Node.Text := NewCaption;

PNodeData(Node.Data)^.TTxt := memotext;

PNodeData(Node.Data)^.Caption := NewCaption;

end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
TreeView1.OnEdited;
end;
Button2Click那里提示出错。错在哪里了呀。有没高手说下。我刚学delphi
dongyuanfang_1的答案不行
TreeView1Edited;后果显示not enough actual parameters
bobjesse的答案事件里没有Form1.TreeView1.OnEdited事件

千问 · 2009-1-12 14:18:47

procedure TForm1.Button2Click(Sender: TObject); begin TreeView1Edited; end;...

千问 · 2009-1-12 14:18:47

users form1 之后在Button2的 click 事件里选择 Form1.TreeView1.OnEdited事件激活. 那是因为你没有引用 form1 单元入 form2! 把 Form1 的单元引入 form2 就可以调用 form1 窗体里的事件了!...

千问 · 2009-1-12 14:18:47

procedure TForm1.Button2Click(Sender: TObject);vars :string;beginif TreeView1.Selectednil thenbegin
s := Treeview1.selected.text;
TreeView1Edited(Tree...