Моргает label при перемещении

[Maxs]

Как убрать это? Может применить какой-нибудь другой компонент вместо него? Надо всего лишь чтобы можно было в нем программно изменять шрифт, фон, было WordWrap=False, Autosize=True и чтоб входило больше 255 символов.

[Gerzs]

StaticText тебе подойдет.

[Maxs]

Он тоже мигает. Можно ли с помощью Canvas сделать так? Строка должна идти по форме, которая растянулась от начала экрана до конца (Бегущая строка) и из определенного числа Memo должен текст постепенно добавляться в Canvas.

[Gerzs]

Можно, метод TextOut(X,Y,text)

[Maxs]

Сообщение от Gerzs

Можно, метод TextOut(X,Y,text)

Там можно только 255 символов. Как это обойти? Читал про компонент Marquee OLE Control Module, но у меня его нет ни в Delphi 7, ни в 2009

[Gerzs]

Maxs, Два раза используй TextOut (или сколь там нудно), ну и конечно синхронизируй положение надписей ))

[Maxs]

Сообщение от Gerzs

Maxs, Два раза используй TextOut (или сколь там нудно), ну и конечно синхронизируй положение надписей ))

А как узнать длину получившегося TextOuta? Чтобы следом за ним другой вылез?

[Gerzs]

Сообщение от Maxs

А как узнать длину получившегося TextOuta? Чтобы следом за ним другой вылез?

Методом TextWidth(‘текст длину которого нужно узнать’)

[Maxs]

Вот в инете нашел:

var
BitMap: TBitmap;
TW,X,Y: Integer;
Txt : String;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
txt := 'Это бегущая строка.';
BitMap := TBitmap.Create;
Bitmap.Width := Form1.Width;
Bitmap.Height := 100;
Bitmap.Canvas.Brush.Color := clBlack;
Bitmap.Canvas.Font.Name := 'Times New Roman';
Bitmap.Canvas.Font.Size := 35;
Bitmap.Canvas.Font.Color := clWhite;
TW := Bitmap.Canvas.TextWidth(txt);
X := Form1.Width;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Bitmap.Width := Form1.Width;
Bitmap.Height := Form1.Height;
Bitmap.Canvas.Polygon([Point(0, 0), Point(799, 0), 
Point(799, 599), Point(0, 599)]); 
X := X - 3;
If X <= -TW then
X := Form1.Width;
Bitmap.Canvas.TextOut(X,10,txt);
Form1.Canvas.Draw(0,0,Bitmap);
end;

Работает, только как тут можно создавать неизвестное количество BitMap'ов, следить за ними чтобы они удалялись при выходе за границы и меняли атрибуты шрифта и фона при изменениях их в настройках? Если бы было известно количество их, то это было бы сделать легко. а тут как? создавать новые имена?

[Gerzs]

Maxs, Зачем создавать витмап?

var
  Form7: TForm7;
  i:integer;

implementation

{$R *.dfm}

procedure TForm7.GoButtonClick(Sender: TObject);
begin
 Form7.StopButton.Enabled:=true;
 Form7.GoButton.Enabled:=false;
end;

procedure TForm7.StopButtonClick(Sender: TObject);
begin
 Form7.GoButton.Enabled:=true;
 Form7.StopButton.Enabled:=false;
end;

procedure TForm7.Timer1Timer(Sender: TObject);
begin
 if Form7.StopButton.Enabled=true then
 begin
  i:=i+1;
  Form7.Canvas.TextOut(Form7.ClientWidth-i,100, 'Привет');
  Form7.Canvas.TextOut(Form7.ClientWidth+Form7.Canvas.TextWidth('Привет ')-i,100, 'всем!!!');
  if i=Form7.ClientWidth+Form7.Canvas.TextWidth('Привет всем!!!') then i:=0;
 end;
end;