Technology Learning

导航

2010年3月25日

桌面滚动文字

摘要： procedure TForm10.FormCreate(Sender: TObject);beginBrush.Style:=bsclear;Fx:=0;end;procedure TForm10.Timer1Timer(Sender: TObject);var i1,i2:integer;begin //**** Form10.Visible:=false; //i1:=Random(800)... 阅读全文

posted @ 2010-03-25 22:09 浔阳渔夫 阅读(478) 评论(0) 推荐(0) 编辑

指针 问题

摘要： var i,j:integer; pi,pj:^integer;//Pointer;begin i:=12; j:=23; New(pi); New(pj); pi^:=10; pj^:=23; { if pi<>nil then FreeMemory(pi); } DisPose(pi); pi:=nil; if pi=nil then ShowMessage('nil') else... 阅读全文

posted @ 2010-03-25 13:53 浔阳渔夫 阅读(214) 评论(1) 推荐(0) 编辑

动态创建 listbox释放问题

摘要： procedure TForm5.FormCreate(Sender: TObject);begin//********** ListBox1:=TListBox.Create(self); ListBox1.Parent:=self; ListBox1.Left:=100; ListBox1.Top:=100; ListBox1.Width:=400; ListBox1.Height:=400;... 阅读全文

posted @ 2010-03-25 10:28 浔阳渔夫 阅读(672) 评论(0) 推荐(0) 编辑