hallo zusammen,
ich habe einen code für einen lauftext geschrieben, und es wäre schön wenn man daraus eine komponente machen könnte. ich kenn mich halt nicht aus mit komponenten selber machen, und darum wollte ich fragen ob das einer von euch erledigen könnte.
eigentlich sollte es genau ein Tlabel sein, nur mit der zusatzfunktion active (boolean). falls true, läuft die schrift, bei false steht sie. dann sollte man noch die geschwindigkeit einstellen können (beim timer der intervall) und die variablen vorne+hinten sollte man ändern können.
hier mein code:
Delphi-Quellcode:
var
scrolllabel2: tlabel;
vorne, hinten: integer;
////////////////////////////////////////
procedure TForm1.FormCreate(Sender: TObject);
begin
vorne := 0;
hinten := form1.ClientWidth;
label1.Left := vorne;
scrolllabel2 := tlabel.Create(self);
scrolllabel2.Parent := label1.Parent;
scrolllabel2.Align := alcustom;
label1.Align := alcustom;
scrolllabel2.Left := hinten;
end;
///////////////////////////////////////////////
procedure TForm1.Timer1Timer(Sender: TObject);
begin
scrolllabel2.caption := label1.caption;
scrolllabel2.Top := label1.Top;
Label1.Left := Label1.Left -1;
scrolllabel2.Left := scrolllabel2.Left -1;
if (scrolllabel2.Left < label1.left+label1.Width+20) and (label1.Left < vorne) then scrolllabel2.Left := label1.left+label1.Width+21 ;
if (label1.Left < scrolllabel2.left+scrolllabel2.Width+20) and (scrolllabel2.Left < vorne) then label1.Left := scrolllabel2.left+scrolllabel2.Width+21 ;
if label1.Left = vorne then scrolllabel2.Left := hinten;
if scrolllabel2.Left = vorne then label1.Left := hinten;
end;
//////////////////////////////////////////////////////
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
scrolllabel2.Free; // Ist das wichtig??
end;
falls jemand eine erweiterung/änderung hätte für mein code, nur her damit
hat vielleicht jemand den code von einem TLabel? dann könnte ich selber mal ein bisschen probieren...
danke schon im voraus
MFG
urbanbruhin