M micro73 Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-18 #3 procedure TForm1.Button1Click(Sender: TObject); begin showmessage('这是第一个按钮的过程提示'); end; procedure TForm1.Button2Click(Sender: TObject); begin Button1Click(sender); end;
procedure TForm1.Button1Click(Sender: TObject); begin showmessage('这是第一个按钮的过程提示'); end; procedure TForm1.Button2Click(Sender: TObject); begin Button1Click(sender); end;
K knock Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-18 #5 同一个unit里直接调用,不同的unit里先uses一下再调用。