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);
jung
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.55 MB
Zeit: 0.026 c
14-22367
Nest
2001-11-08 14:56
2002.01.08
Wohin zum Lernen?


14-22336
Ivan Shikhalev
2001-11-02 23:31
2002.01.08
Goldene Banane


1-22129
Aleksandr
2001-12-19 16:04
2002.01.08
So entfernen Sie das Flimmern Ihrer Bildlaufleiste


14-22357
Victor Shcherbakov
2001-11-01 12:40
2002.01.08
Foto Erholung


1-22097
Serzhik
2001-12-19 15:45
2002.01.08
Was sind die beiden Knöpfe, die an der unteren Mitte angebracht werden sollen?





Afrikanisch Albanien Arabisch Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarisch katalanisch Chinesisch (vereinfacht) Chinesisch (traditionell) 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 Italienisch 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