LISTVIEW获得焦点问题? procedure TForm1.FormShow(Sender: TObject);beginListBox1.SetFocus;ListBox1.Selected[0] := true;end; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 加上if ListBox1.Items.Count > 0 procedure TForm1.FormResize(Sender: TObject);begin if not listview1.ComponentCount=0 then listview1.setfocus;end; 刚才用错属性了,正确如下:procedure TForm1.FormResize(Sender: TObject);begin if listview1.Items.Count<>0 then listview1.SetFocus ;end; 如何给 stringlist 进行真正的排序。 如何实现实时调用到服务器端的动态刷新的界面? 大哥们,帮我看看这是怎么回事 如何拦截'双击窗体标题栏',不能让其最大化? 刚接触游戏开发,现有一问题?在程序中如何实现敌人的自动移动? 如何只把年月日存到数据库中,不把时分秒存到数据库中? 关于文件复制的问题!! 窗体的问题,太难了!呵呵。。。。 急!急 如何在Delphi5中自动进入Excel,且打开指定Excel文件名。 请问,如何编写在程序中永远运行的线程呢?40分 请教各位,有谁知道ITC 代表什么意思吗?急 为何在窗体的create事件中调用close过程,窗口关不了?谢谢
if ListBox1.Items.Count > 0
begin
if not listview1.ComponentCount=0 then
listview1.setfocus;
end;
procedure TForm1.FormResize(Sender: TObject);
begin
if listview1.Items.Count<>0 then
listview1.SetFocus ;
end;