Oops..
Mensagem anterior não foi enviada corretamente.
Faz assim no ontimer:
procedure TFMenuPrincipal.TimerLetreiroTimer(Sender: TObject);
var
Texto : String;
begin
Texto := sTitulo;
sTitulo := Copy(Texto,2,Length(Texto))+Texto[1];
IF STATICLABEL.Visible = true then
STATICLABEL.caption :=
Copy(STATICLABEL.Caption,2,Length(STATICLABEL.Caption))+
STATICLABEL.Caption[1];
end;
O label tem que ser TStaticlabel. Seu sTitulo (que deve ser declarado como
public) deve ser igual a 'KOBRA SISTEMAS'. Toda vez que sair do form e
voltar, restaure o sTitulo (antes de retornar) com 'KOBRA SISTEMAS', tipo.
with TFrmTeste.Create(Self) do
try
ShowModal;
Finally
sTitulo := 'KOBRA SISTEMAS';
Free;
end;
Vê se ajuda..
Alexandre Oliveira
-----Mensagem original-----
De: Mauricio Almeida Filho [mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 17 de novembro de 2004 00:36
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Preciso arrumar esse letreiro urgente
1) Vc deve usar Threads para poder fazer duas coisas ao mesmo tempo,
qualquer livro te explica.
2) Experimenta dar um Form.Update que o efeito deve melhorar.
At 14:32 14/11/2004, you wrote:
>Galera, fiz a rotina abaixo para fazer um letreiro, só que estou tento
>alguns problemas:
>
>- não consigo fechar o form antes de executar todo o procedimento;
>- tem hora que o label fica piscando e aparece um fundo branco;
>- não consigo executar nenhuma outra ação enquanto todo o letreiro não é
>escrito
>
>Alguém pode me dar uma mão ?
>
>procedure TForm1.PiscaPisca;
>var
> sMostra, sTitulo : string;
> i, iSoma, iVelocidade : integer;
>begin
> iSoma := 1;
> iVelocidade := 400;
> sTitulo := 'KOBRA SISTEMAS';
>
> for i := Length(sTitulo) downto 0 do
> begin
> sMostra := Copy(sTitulo,1,iSoma);
> iSoma := iSoma + 1;
> Label1.Caption := sMostra;
> sleep(iVelocidade);
> refresh;
> if iSoma = Length(sTitulo) + 1 then
> begin
> sTitulo := '';
> iSoma := 1;
> end;
> end;
>end;
>
>procedure TForm1.Timer1Timer(Sender: TObject);
>begin
> PiscaPisca;
>end;
>
>
>Obrigado desde já.
>
>
> _ __________________________________ _
> / )| |( \
> / / | Eduardo de Almeida Silva | \ \
> _( (_ | _ * [EMAIL PROTECTED] _ | _) )_
>(((\ \)|_/ )__________________________( \_|(/ /)))
>(\\\\ \_/ / \ \_/ ////)
> \ / \ /
> \ _/ \_ /
> / / \ \
>
>
>---
>Outgoing mail is certified Virus Free.
>Checked by AVG anti-virus system (http://www.grisoft.com).
>Version: 6.0.789 / Virus Database: 534 - Release Date: 07/11/2004
>
>
>
>--
><<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
>Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
>Links do Yahoo! Grupos
>
>
>
>
>
Mauricio Almeida Filho
Diretor de Negócios
MSN : [EMAIL PROTECTED]
UNIT SOFTWARE
Empresa virtual solução real
Atuação : Consultoria e Desenvolvimento de Sistemas
Sistemas Para : Comércio, Escolas, Factorings, Locação, Transportadoras.
Desenvolvimento de sistemas sob medida - apresente-nos seu problema.
Unit Software
Fone/Fax : (81) 9242-2292
e-Mail: [EMAIL PROTECTED]
Home Page: http://www.unitsoft.com.br
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.289 / Virus Database: 265.3.1 - Release Date: 15/11/2004
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.289 / Virus Database: 265.3.1 - Release Date: 15/11/2004
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
