請教:TCanvas如何用?分不夠再加上,謝謝?

Question

我現在是想在Form的前面,顯示一段不斷變化的文字,顯示的位置不變,只是文字
不斷改變,顯示的時間要可由自己控制,怎么實現?有沒有這樣例子,或者說個方法?

Answer 1

加一时钟，在时钟上不断较变文字，TForm中有Canvas属性，可以在画布上画

Answer 2

定义一个局部变量DispStr:integer;procedure TmainFrm.Timer1Timer(Sender: TObject);
var
  Rect:TRect;
begin
  Rect.Left:=264;
  Rect.Top :=152;
  Rect.Right:=364;
  Rect.Bottom:=252;
  Canvas.TextOut(Rect.Left+10,Rect.Top+20,IntToStr(DispStr));
  inc(DispStr);
end;procedure TmainFrm.Button14Click(Sender: TObject);
begin
  Timer1.Enabled:=true;
end;我运行通过,你可要加分!!

Answer 3

to  lxycsdn,
  成功一定加分,謝謝您!

Answer 4

to  lxycsdn,
我要實現"顯示的時間要可由自己控制",怎么實現呢?謝了xin先!

Answer 5

先定义一个局部变量i:integer;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  form1.Canvas.Font.Size:=50;
  form1.canvas.Font.Color:=clblue;
  inc(i);
  case i of
  1:form1.Canvas.Font.Name:='hello';
  2:form1.Canvas.Font.Name:='world';
  3:form1.Canvas.Font.Name:='你好!';
  end;
  Canvas.TextOut(50,50,form1.Canvas.Font.Name);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Timer1.Enabled:=true;
form1.Timer1.Interval:=strtoint(form1.Edit1.Text);end;end.