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
<*> 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
