Nach Hause
Top.Mail.Ru Yandeks.Metrika
Forum: "Haupt";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

Nach unten

Wie namut so ............................ Finden Sie ähnliche Zweige


Man In Red   (2001-12-15 20:12) [0]

Meine Frage ist:
Auf dem Formular befinden sich RichEdit und Timer. In RichEdite gibt es also einen Text
und der Timer wird jedes zweite Zeichen im Text hervorgehoben.

1. Wie kann ich den Timer automatisch anhalten lassen, wenn das letzte Zeichen im Text markiert ist?

2. Und wie lässt sich der Wagen in eine neue Zeile verschieben? (Wenn natürlich eine andere Zeile vorhanden ist und wenn nicht, stoppt der Timer natürlich), wenn das ausgewählte Zeichen das letzte Zeichen in der Zeile war?

Bitte helfen, danke im voraus!



KilkennyCat   (2001-12-16 06:56) [1]

Grundstufe Für Standard RichEdit. (Delphi 5 getestet)

Prozedur TForm1.Button1Click (Sender: TObject); // Schaltfläche klicken
beginnen
richedit1.SelStart: = 0; // setze den Wagen auf den Anfang
richedit1.SetFocus; // den Fokus von der Schaltfläche abziehen
timer1.Enabled: = true // run!
end;

Prozedur TForm1.Timer1Timer (Sender: TObject);
war
a: longint;
beginnen
a: = richedit1.SelLength; // den alten Wert speichern
// Auswahl um ein Zeichen erhöhen
richedit1.SelLength: = richedit1.SelLength + 1;
// das Ende des Saitenanschlags prüfen
Wenn a = richedit1.SelLength, beginnen Sie
// Versuch, zu einem anderen zu wechseln
richedit1.SelLength: = richedit1.SelLength + 2;
// Prüfen Sie, ob der Übergang beendet ist.
Wenn a = richedit1.SelLength, beginnen Sie
// ruhte sich jedoch aus. Also das Ende des Textes. Deaktivieren Sie den Timer.
timer1.Enabled: = false;
// den Benutzer informieren, sonst wird er nicht raten ....
showmessage ("Basta, Karapuziki!")
Ende
Ende
end;



Man In Red   (2001-12-16 13:29) [2]

NEIN, VERSTEHEN SIE NICHT!
JEDES ZWEITE NUR EIN SYMBOL IST ZUGEWIESEN, ERSTE ERSTE ERSTE DANN, ZWEITE, DRITTE UND T. D .....................



Seiten: 1 ganze Branche

Forum: "Haupt";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

nach oben









Speicher: 0.56 MB
Zeit: 0.024 c
3-21913
SklifF
2001-12-03 19:08
2002.01.08
Spalte Summe Pro


1-22081
Andrewv
2001-12-18 14:14
2002.01.08
Wie kann ich einen Systemfehler verursachen?


14-22393
Felix
2001-11-08 21:54
2002.01.08
Was zu tun ist?


14-22411
Madburro
2001-11-12 20:52
2002.01.08
WinXP-CD-Key


1-22192
Träumer
2001-12-15 19:34
2002.01.08
Ab und zu nur Sekunden ziehen und übertragen





Afrikanisch Albanien Arabisch Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarisch katalanisch Chinesisch (vereinfacht) Chinesische Tradition) kroatisch Tschechisch Dänisch Niederländisch Englisch estnisch Philippinisch Finnisch Französisch
Galicisch Georgisch Deutsch Griechisch haitian Creole Hebräisch Hindi ungarisch isländisch Indonesian irisch Italian Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegisch
persisch Polnisch Portugiesisch Rumänisch Russisch serbisch Slovakisch Slowenisch Spanisch Suaheli Schwedisch Thai Türkisch Ukrainisch Urdu Vietnamesisch Walisisch Jiddisch Bengalisch bosnisch
cebuano Esperanto Gujarati Hausa Hmong igbo Javanisch kannada khmer Laotisch Lateinisch Maorisch Marathi Mongolisch nepali Pandschabi Somalisch Tamilisch Telugu Yoruba
Zulu
Английский Französisch Deutsch Italienisch Португальский Russisch Spanisch