(在线等待..初程问题..)我编程时遇到几个问题，希望大家帮忙！

Question

1.如何使用Buttom的Click事件使窗口最小化？
2.Program unit 'registry'vecusively uses itself
  程序或单元递归！怎样处理？
3。Listbox控件里的滚动条能改变成特殊效果么，如果能怎么改！
4。如何在Listbox的选项前增加序号，思路源码均可！

Answer 1

1.使用showwindow(form1.handle,sw_minimize)应该可以吧。不然，sendmessage(HWND_BROADCAST,WM_SYSCOMMAND,SC_MINIMIZE,0) 也可以吧。

Answer 2

TForm1.Button1Click(Sender:TObject);
begin
  WindowState:=wsMinmize;
end;

Answer 3

4 你要的不会是下面这个吧
    for i:=0 to listbox1.Items.Count-1 do
        self.ListBox1.items[i]:=inttostr(i+1)+'.'+listbox1.items[i];

Answer 4

application.Minimize;
var
 i:integer;
begin
for i:=0 to 10 do
    ListBox1.items[i]:=formatfloat('00',i)+'.'+'你的文本';