[求助]看不懂的代码
这几天按书本上做了一个电子时钟的程序,里面有这样一段代码,搞不懂以前见都没见过:在form1窗体onpaint事件里添加以下代码:
procedure TForm1.FormPaint(Sender:TObject);
begin
paintcolor(form1.Canvas.Handle,0,0,Width,Height,ifVertical,ifred);
end;
不知道这是什么意思啊!!
begin
paintcolor(form1.Canvas.Handle,0,0,Width,Height,ifVertical,ifred);
end;