在运行期创建和初始化列表框

来源:百度文库 编辑:神马文学网 时间:2024/04/30 01:09:30
在运行期创建和初始化列表框
━━━━━━━━━━━━━━━━━━━━━━━━━━
在运行期创建和初始化列表框,并指定列表框的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;