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.81 MB
Zeit: 0.026 c
1-22030
Andrey Senchenko
2001-12-18 12:49
2002.01.08
Form.OnCloseQuery - Wie soll ich damit umgehen?


6-22301
Chinesisch Was für ein
2001-10-10 14:45
2002.01.08
Sklerotisch was?


1-22248
Leviathan
2001-12-17 13:07
2002.01.08
Delphi spottet !!!


14-22350
der Igel
2001-11-04 16:49
2002.01.08
Ich sitze hier und nichts zu tun!


7-22450
fsp
2001-09-21 22:32
2002.01.08
Kopieren des Programms in der Systemablage.





Afrikanisch albanisch Arabic Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarian katalanisch Chinesisch (vereinfacht) Chinesische Tradition) kroatisch Tschechisch Dänisch Dutch Englisch estnisch Philippinisch Finnish Französisch
Galicisch Georgisch Deutsch Griechisch haitian Creole hebräisch Hindi ungarisch isländisch Indonesian irisch Italian Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegian
persisch Polnisch Portugiesisch rumänisch Russisch serbisch Slovak Slowenisch Spanisch swahili Swedish 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