Marquee

Du kunne lave en timer med et passende interval, og en label med teksten. Label'en har en Left-værdi på 0. OnTimer event'en kunne se sådan ud:

if Label1.Left = Form1.Width then
  Label1.Left := 0
else
  Label1.Left := Label1.Left + 1;

Der findes desuden et hav af freeware/sharekomponent der kan det. søg eventuelt på delphi super page http://delphi.icm.edu.pl/

delhpidaner: Tekst'en fortsætter altså bare videre ud af formen når den kommer til kanten !!!

Snowball

Whoops...en lille stavefejl i dit navn, sorry ;)

blackthorne: Af de komponenter der er på den side, er de enten shareware (med begrænset muligheder!) eller også virker de ikke i D5 Ent. !!!

Snowball

RxLib har også en http://www.rxlib.com/

her er lige et hjemmelavet forslag der ikke kræver andet en en stringvar og en timer:

var str = string:

begin
  str := table1.fieldbyname('xxx').asstring;  // sæt teksten fra db ind i str
  str := str + '  '; // et antal blanktegn (mellemrum) der passer sådan at teksten helt forsvinder inden den kommer begynder igen i højre side. F.eks. 100 eller hvor mange der nu skal til.

procedure timer1timer(sender : tobject);
begin
  str := copy(str,2,(len(str)-1)) + copy(str,1,1); // denne funktion sætter hele tiden den forreste char bagest i strengen.
  edit1.text := str;  // eller label1.caption := str;
end;

Ved at sætter timeren til et fornuftigt interval vil det se ud som om teksten forsvinder us af feltet til venster og efterfølgende kommer ind igen fra højre.
Ved at ændre på måden str sammensættes på i timeren kan du få teksten til at bevæge sig mod højre i stedet, o.s.v.

Så enkelt kan det faktisk gøres.

Jeg tror mine fingre sidder forkert idag. Se lige bort fra stavebørgerne ;-)

pellelil: Hvor i RXLib finder du lige en Marquee funktion ???

Snowball

I (Component) folderern "RX Tools" finder du componentet "SecretPanel" (nr. 12 fra Venstre). Den er (som navnet hentyder) beregnet til at lave et "skult panel" som kan scroll'e en tekst når denne "click'es".

Og i kraft af at RxLib er med fuld source så har du alle muligheder for at se hvordan det skal laves hvis "du selv vil" (sourcen finder du i "RxCtrls.pas"

pellelil: Det virker bare som det skal. Takker :-)

Snowball

Jeg har undersøgt mit forslag, og det virker også!

Vil i ikke sende et eksempel til mig på buha@sol.dk tak! hvor jeg kan åbner det i delhpi 4