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.56 MB
Hora: 0.033 c
4-22462
Winnie!
2001-11-01 19:50
2002.01.08
usando BitBlt e CreateBitmap


1-22183
XeN
2001-12-21 11:21
2002.01.08
Delphix_play


1-22230
Homem vermelho
2001-12-15 23:01
2002.01.08
Como exibir um número de série no RichEdite do personagem selecionado no labele!


3-21902
Andrey Pogorelov
2001-12-02 10:49
2002.01.08
O problema com a compilação de um pedido e sua saída para o QReport


3-21954
Strahov
2001-12-05 15:32
2002.01.08
Alguém já encontrou um bug





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