casa
Top.Mail.Ru Yandeks.Metrika
Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

giù

Come namut tale che ............................ Trova rami simili


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

La mia domanda è:
Nel modulo sono RichEdit e Timer. Quindi, in RichEdite, c'è un testo
e il timer evidenzia ogni secondo carattere nel testo.

1. Come posso fare in modo che il timer si fermi automaticamente quando viene evidenziato l'ultimo carattere nel testo?

2. E come spostare il carrello su una nuova linea (se, ovviamente, c'è un'altra linea, e in caso contrario, il timer si ferma, ovviamente) se il personaggio selezionato era l'ultimo della linea?

Ti prego, aiuto, grazie in anticipo!



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

Elementarno. Per RichEdit standard. (Testato Delphi 5)

procedura TForm1.Button1Click (Sender: TObject); // clic del tasto
iniziare
richedit1.SelStart: = 0; // imposta il carrello all'inizio
richedit1.SetFocus; // sottrai la messa a fuoco dal pulsante
timer1.Enabled: = true // run!
fine;

procedura TForm1.Timer1Timer (Sender: TObject);
var
a: longint;
iniziare
a: = richedit1.SelLength; // memorizza il vecchio valore
// aumenta la selezione di un carattere
richedit1.SelLength: = richedit1.SelLength + 1;
// controlla la fine del moncone di corde
se a = richedit1.SelLength allora inizia
// prova a passare a un altro
richedit1.SelLength: = richedit1.SelLength + 2;
// Controlla se la transizione è finita.
se a = richedit1.SelLength allora inizia
// riposato, tuttavia. Quindi, la fine del testo. Disabilita il timer.
timer1.Enabled: = false;
// informa l'utente, altrimenti non indovinerà ....
showmessage ("Basta, karapuziki!")
fine
fine
fine;



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

NO, NON CAPISCI!
OGNI SECONDO È ASSEGNATO UN SOLO SIMBOLO, IL PRIMO PRIMO SI ALLENTA POI SECONDO, TERZO E T. D .....................



Pagine: 1 tutto il ramo

Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

al piano di sopra









Memoria: 0.81 MB
Ora: 0.031 c
1-22062
Alexander
2001-12-19 00:17
2002.01.08
Come posso aggiungere N giorni a una certa data (TDateTime)?


1-22202
T2
2001-12-16 07:12
2002.01.08
Sulla questione dei piccoli file eseguibili


1-22178
Anastasia
2001-12-15 21:38
2002.01.08
Hai bisogno di informazioni!


6-22269
SERGX
2001-10-05 16:31
2002.01.08
Per favore, dai la fonte !!


1-21999
elefante
2001-12-15 02:02
2002.01.08
C ++ o Delphi





afrikaans albanese Arabic armeno Azero basco bielorusso Bulgarian catalano Cinese (semplificato) Cinese (tradizionale) croato Ceco danese Dutch Inglese estone filippina Finnish Francese
galiziano georgiano Tedesco greco Creolo haitiano ebraico hindi ungherese islandese Indonesian irlandese Italiano Giapponese Korean lettone lituano macedone Malay maltese Norwegian
persiano polacco Portoghese rumeno Russian serbo Slovak sloveno Spagnolo swahili Swedish Thai turco ucraino Urdu vietnamita gallese yiddish bengalese bosniaco
Cebuano esperanto Gujarati Hausa Hmong Igbo giavanese kannada khmer lao latino maori marathi mongolo nepali punjabi somalo tamil telugu Yoruba
zulù
Английский Francese tedesco italiano portoghese russo spagnolo