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.56 MB
Ora: 0.077 c
1-22072
Garik
2001-12-19 11:08
2002.01.08
Come creare un'istanza figlio TFrame in modo dinamico


1-22229
Uomo in rosso
2001-12-16 14:31
2002.01.08
Ancora una volta la domanda è correlata a RichEdit!


6-22275
moscower
2001-10-08 12:43
2002.01.08
Come posso inviare un comando chmod a un server Linux tramite TNMFTP?


1-22059
Leo ^ Sole
2001-12-19 07:24
2002.01.08
Chi ha lavorato


6-22271
Vincitore
2001-10-04 20:15
2002.01.08
non c'era connessione remota durante la connessione ????





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ù
Inglese Francese tedesco italiano portoghese russo spagnolo