阳光有点冷

procedure TDcpMain.N1Click(Sender: TObject); //删除选中行begin //cxListBoxmovie.Items.Delete(cxListBoxmovie.ItemIndex);//只能删除单行 cxListBoxmovie.DeleteSelected;//删除单行也可以删除多行end;procedure TDcpMai...

uses math;...procedure TForm1.Button2Click(Sender: TObject);var d1,d2,r1,r2:double;a:tdatetime;d:tdatetime;begin d1:=encodedate(1999,1,1); d2:=encodedate(2000,1,1); randomize; r1:=rando...

正常timer做动画效果会出现闪烁问题以下代码可以解决此问题procedure TForm1.FormCreate(Sender: TObject);beginform1.DoubleBuffered := True;     //开启双缓冲，使得lbl_ShowWorking描述不闪烁beginend;...