Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

Como namut tais que ............................ Encontre agências semelhantes


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

Minha pergunta é:
No formulário estão RichEdit e Timer. Então, em RichEdite, há um texto
e o temporizador a cada segundo um caractere no texto é realçado.

1. Como posso fazer com que o timer pare automaticamente quando o último caractere do texto estiver realçado?

2. E como fazer a carruagem se mover para uma nova linha (Se, é claro, houver outra linha, e se não, o temporizador pára, é claro) se o personagem selecionado foi o último da linha?

Eu te imploro, ajuda, obrigado antecipadamente!



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

Elementar. Para RichEdit padrão. (Delphi 5 testado)

procedimento TForm1.Button1Click (Sender: TObject); // clique do botão
começar
richedit1.SelStart: = 0; // define o carro para o começo
richedit1.SetFocus; // subtrai o foco do botão
timer1.Enabled: = true // run!
end;

procedimento TForm1.Timer1Timer (Sender: TObject);
var
um: longint;
começar
a: = richedit1.SelLength; // armazena o valor antigo
// aumenta a seleção por um caractere
richedit1.SelLength: = richedit1.SelLength + 1;
// verifica o final do pilar de string
se a = richedit1.SelLength então comece
// tentando mudar para outro
richedit1.SelLength: = richedit1.SelLength + 2;
// Verifique se a transição acabou.
se a = richedit1.SelLength então comece
// descansou, no entanto. Então, o final do texto. Desativar o temporizador.
timer1.Enabled: = false;
// informar o usuário, caso contrário ele não irá adivinhar ....
showmessage ("Basta, karapuziki!")
final
final
end;



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

NÃO, VOCÊ NÃO ENTENDE!
CADA SEGUNDO APENAS UM SÍMBOLO É AFECTADO, PRIMEIRO É INCLUÍDO ENTÃO SEGUNDO, TERCEIRO E T. D .....................



Страницы: 1 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima





Memória: 0.55 MB
Hora: 0.023 c
3-21947
Obstinado
2001-12-05 13:18
2002.01.08
Recuperando uma lista de índices de uma tabela do Oracle


3-21965
Sarja
2001-12-05 06:13
2002.01.08
Indexação FoxPro


1-22191
stalker_boss
2001-12-16 02:50
2002.01.08
Som


1-22225
Reyst
2001-12-16 15:56
2002.01.08
Eu não posso salvar o recurso em um arquivo


3-21910
Wladimir
2001-12-04 08:01
2002.01.08
O número de entradas na tabela?





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese Romeno Russa sérvio Slovak esloveno Espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol