Einzelnen Beitrag anzeigen

Natcree

Registriert seit: 5. Mär 2013
502 Beiträge
 
Delphi 7 Enterprise
 
#18

AW: Lauftext von rechts nach links

  Alt 25. Nov 2013, 11:07
Was muss ich machen wenn Der Textout in einem Label erscheinen soll ??

Habe mal das ausprobiert passiert aber nichts

Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var
a:String;
i:integer;
begin
  a:='Anrede';
  inc(i);
  if i > length(a)then
  begin
  timer1.Enabled:=false;
  exit;
  end;
  Label1.canvas.textout(296+i*16,50,a[i]);
end;
  Mit Zitat antworten Zitat