急急，不怕不会的高手请进，谢谢！

Question

试试这样呢？
Sub_List.OnClick := form1.ListBox1.OnClick;

Answer 1

直接在sub_list.onclick中调用 form1.listbox.onclick form1.listbox.onclick(sender);

Answer 2

或者这样呢，把procedure LBoxClick(Sender: TObject);写到form里，成为form的一个事件，然后可以赋值：
Sub_List.OnClick := form2.LClick;

Answer 3

type
  TForm2 = class(TForm)
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure LClick(Sender: TObject);//写到form里
  end;procedure TForm2.FormShow(Sender: TObject);
begin
  L := TListBox.Create(nil);
  L.Parent := form2;
  L.Left := 100;
  L.Top := 300;
  L.Items.Add('asdfasdf');
  L.OnClick := form2.LClick; //赋值了
end; //动态创建这个listbox；procedure TForm2.LClick(Sender: TObject);
begin
  showmessage(l.Items.Strings[l.itemindex]);
end;