在运行期创建和初始化列表框
━━━━━━━━━━━━━━━━━━━━━━━━━━ 在运行期创建和初始化列表框,并指定列表框的MouseMove事件对应上一步定义的ListBoxMouseMove方法。在主窗体的Create事件中输入下面的代码: begin
Point.X:=0; Point.Y:=0; //创建自定义列表框 List:=TMyListBox.Create(Form1); List.Parent:=Form1; List.Left:=5; List.Top:=30; List.Width:=150; List.Height:=200; for i:=0 to 300 do begin List.Items.Add(inttostr(i)); //初始化 end; //指定处理MouseMove事件的方法 List.OnMouseMove := ListBoxMouseMove; end; |
|