| Autor |
Beitrag |
Mindforce
  
Beiträge: 358
Win XP Pro / MCE, Win 98, Slax (Linux)
Delphi 07 PRO, Delphi 3+7 (mit Prdx)
|
Verfasst: Do 27.07.06 11:56
Hi,
ist es eigentlich möglich mit einem Edit eine Laufschrift zu erstellen???
Vielleicht mit einem Timer aber ich wüsste nicht wie... Kann mir da jemand helfen???
Gruss,
M!ndbyte Moderiert von  jasocul: Topic aus Open Source Units verschoben am Do 27.07.2006 um 12:10_________________ Our force; in mind.
|
|
mkinzler
Beiträge: 4106
Erhaltene Danke: 13
Delphi 2010 Pro; Delphi.Prism 2011 pro
|
Verfasst: Do 27.07.06 12:25
In der JVCL im Bereich Jv Scrollers gibt es einige möglichen Komponenten
_________________ Markus Kinzler.
|
|
Fighter#1
Beiträge: 787
Win XP, Ubuntu 8.04
Turbo Delphi 2006, Delphi 2005 Pe, Delphi 5 Pe, Netbeans 6.1, Eclipse, Microsoft VisualC#, Dev C++, PHP, HTML, CSS
|
Verfasst: Do 27.07.06 12:49
oder halt mit nem Array, wo du halt immer eins hochzählst
_________________ Wer andere beherrscht ist stark,
wer sich selbst beherrscht ist mächtig. Lao Tse
|
|
Blackheart666
Beiträge: 2195
XP
D3Prof, D6Pers.
|
Verfasst: Do 27.07.06 13:00
  Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
| procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.Text:= Copy(Edit1.Text, 2, Length(Edit1.Text) - 1) + Copy(Edit1.Text, 1, 1);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
s: string;
begin
Edit1.Text:='Hallo Wie Gehts !!!';
Timer1.Enabled:=True;
Timer1.Interval:=100;
for i := 1 to 50 do
s := s + ' ';
Edit1.Text := s + Edit1.Text;
end; |
|
|
Mindforce 
Beiträge: 358
Win XP Pro / MCE, Win 98, Slax (Linux)
Delphi 07 PRO, Delphi 3+7 (mit Prdx)
|
Verfasst: Do 27.07.06 13:01
Hi,
probier ich nachher auf. VILEN DANKBlackheart666 
Gruss,
M!ndbyte _________________ Our force; in mind.
|
|
Fighter#1
Beiträge: 787
Win XP, Ubuntu 8.04
Turbo Delphi 2006, Delphi 2005 Pe, Delphi 5 Pe, Netbeans 6.1, Eclipse, Microsoft VisualC#, Dev C++, PHP, HTML, CSS
|
Verfasst: Do 27.07.06 13:43
HIer noch eine Lösung:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
| function reverse(Text:String):String;
var i : Integer;
neu:String;
begin
neu:='';
For i := 0 to Length(Text)-1 do begin
neu:=neu+Copy(Text,Length(Text),Length(Text));
Delete(Text,Length(text),Length(text));
end;
result:= neu;
end;
procedure laufschrift(Edit1:TEdit;Inhalt:String;emptys:Integer);
var i:Integer;
Text:Array of String;
begin
inhalt:=reverse(inhalt);
For i := 0 To emptys do
inhalt:=inhalt+' ';
SetLength(Text,Length(inhalt));
For i := 1 To Length(inhalt)-1 do begin
Text[i]:=Inhalt[i];
end;
Edit1.Clear;
For i := 0 To Length(Text)-1 do begin
Edit1.Text:=Text[i]+' '+Edit1.Text;
Application.ProcessMessages;
Sleep(100);
Application.ProcessMessages;
Sleep(100);
Application.ProcessMessages;
Sleep(100);
Application.ProcessMessages;
Sleep(100);
Application.ProcessMessages;
Sleep(100);
end;
end; |
Läuft ohne Timer und ist recht einfach zu bedienen.
Also, erstmal ein Edit aussuchen, dann Text eintippen, dann noch wie viele Leerstellen es geben soll (das der Text auch aus dem Edit wieder verschwindet)
Delphi-Quelltext
1:
2:
3:
4:
| procedure TForm1.Button1Click(Sender: TObject);
begin
laufschrift(Edit1,'hallo',40);
end; |
Viel Spaß Fighter#1 _________________ Wer andere beherrscht ist stark,
wer sich selbst beherrscht ist mächtig. Lao Tse
|
|
Xion
Beiträge: 1952
Erhaltene Danke: 128
Windows XP
Delphi (2005, SmartInspect), SQL, Lua, Java (Eclipse), C++ (Visual Studio 2010, Qt Creator), Python (Blender), Prolog (SWIProlog), Haskell (ghci)
|
Verfasst: Do 27.07.06 13:51
mein Tipp: nehm ne ScrollBox und lass die scrollen...flackert wenigstens nicht  _________________ a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)
|
|
|
