procedure MyClick(Sender : TObject)
begin
...
end;
x :=TListBox.Create(Self);
...
x.OnClick := MyClick;
begin
...
end;
x :=TListBox.Create(Self);
...
x.OnClick := MyClick;
解决方案 »
- 活动的控件的颜色问题
- 当我创建一个线程更新主窗口的内容后,退出程序时显示如下错误,但运行中一切正常,究竟是怎么回事?
- 简单问题,新手请教!
- Delphi + ADO 连接SQL Server2000,我在一台没装Sql Server ,Delphi的机器上运行不了,需要怎么配置
- 为什么动态菜单加入后不能显示?
- 讨论: 中国篮协正式做出决定 将王治郅开除出国家男篮, 来者有分!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- ★★★★★§§§§许多高手都解决不了的Excel问题,没有人能回答上的问题,想试试吗§§§§★★★★★★★
- SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE)or WS_EX_TOOLWINDOW)
- 100分换控件的安装说明。。。。。。。。。。
- 关于Image的问题
- DataModule4.ClientDataSet1.Locate的问题求救!
- ==delphi6的帮助怎么那么差劲,能自制一下吗?==
begin
ShowMessage('Hello, world!');
end;listbox1.OnClick := Click;