自定义过程:
procedure treecreate1();
begin
showmessage('asdf');
end;procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
treecreate1(); //调用该过程
form3.Show ;
end;
运行时没有反应,请教哪里错了。
procedure treecreate1();
begin
showmessage('asdf');
end;procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
treecreate1(); //调用该过程
form3.Show ;
end;
运行时没有反应,请教哪里错了。
procedure tform1.dbgrid1Click(Sender: TObject);
begin
treecreate1();
form3.show;
end;
如果执行了,应该是正确的啊