table记录刷新问题 |
缺席
|
zhouying82
高階會員 發表:150 回覆:272 積分:189 註冊:2004-03-16 發送簡訊給我 |
向实现的功能,有2个FORM,想在点击FORM1后出现FORM2,FORM2是用来timer循环显示FORM1表中的某些字段内容。现在的问题是,FORM2上的没显示一条记录,就会留下阴影,好像总是没有刷新记录,我用了下面的代码也不行。大大们能否帮我看看
[code delphi] procedure TForm2.Button1Click(Sender: TObject); begin timer1.Enabled:=false; Close; end; procedure TForm2.FormCreate(Sender: TObject); begin form2.brush.style:= bsclear; form2.borderstyle:= bsnone end; procedure TForm2.FormPaint(Sender: TObject); begin Timer1.Enabled :=true; end; procedure TForm2.Timer1Timer(Sender: TObject); begin form2.Canvas.Refresh ; if Form1.table1.eof then begin DBText1.Caption :=Form1.Table1.FieldByName('empno').AsString ; label1.Caption :=Form1.Table1.FieldByName('firstname').AsString ; Form1.table1.first; label1.Refresh ; label1.Invalidate ; label1.Update ; end else begin DBText1.Caption :=Form1.Table1.FieldByName('empno').AsString ; label1.Caption :=Form1.Table1.FieldByName('firstname').AsString ; Form1.table1.next; label1.Refresh ; label1.Invalidate ; label1.Update ; end; end; end. [/code]
------
断断续续的学了几年,还是一个初学者,永远支持Delphi ! |
max5020
資深會員 發表:30 回覆:277 積分:321 註冊:2003-06-04 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |