文字移动？高手看看吧

Question

如果背景不能够动，那么就重新写吧。呵呵如果可以把label这种可以设置transparent的控件放到上面。就可以移动
透明控件了。只是一个想法，没有做过。

Answer 1

试下我这个var i:intger
beginfor i:=0 to 10 do
Image1.Canvas.TextOut(i,0,'hi!');end;

Answer 2

不如把字写在TLabel控件上，并把TLabel.Transparen:=True，再移动TLabel

Answer 3

to icn(icn)你的我试了，文字有的，但不能移动。
 to blazingfire(烈焰)，我是要在运行的时候写上去，我也试过，但运行的时候找不到label

Answer 4

label1.transparent:=true;
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;   a:integer;implementation{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Left :=label1.Left +a;
if label1.Left<0 then a:=-a;
if label1.Left>form1.Width-label1.Width then
 a:=-a;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
a:=10;
end;end.

Answer 5

再加一个IMage(Image2)控件。把它的隐藏起来。
再到上面用TextOut输出文字。
然后用一个循环。
for i := 0 to 10 do
begin
  Image1.canvas.copyrect(bounds(i,0,image2.canvas.textwidth(
         'Image2上写的文字'),image2.canvas.textheight(
         'Image2上写的文字')),
         image2.canvas,bounds(0,0,image2.canvas.textwidth(
         'Image2上写的文字'),image2.canvas.textheight(
         'Image2上写的文字'));
end;
用这种方法移动，没有闪烁感。
我一直都有是用这种方法的。

Answer 6

你要如何移动文件呢。
也可发到我的电邮中：
[email protected]