RSS

Efeito legal (caption do form)

29 nov

Código

//Declare as variaveis CAP e NCAR na declaração var do Form
var
  cap : String;
  ncar : Integer;
//Inicialize as variáveis no evento Show do Form
cap := ‘Digite aqui a Caption do Formulário’;
ncar := 0;
//- Coloque um objeto Timer no Form
//- Modifique a Propriedade Interval do objeto Timer1 para 100
//- No Evento OnTimer do objet Timer1 digite o seguinte
IF ncar <= length(cap) then
begin
  Form1.caption := copy(cap,1,ncar);
  ncar := ncar +1;
end
else
begin
  ncar := 0;
end;
//Pronto é só testar

Anúncios
 
1 comentário

Publicado por em 29/11/2009 em Estudos Delphi

 

Uma resposta para “Efeito legal (caption do form)

  1. Rafael Tonello

    30/11/2009 at 11:00 AM

    Dica: Hehe.. Experimente utlizar Application.Title em vez de Form1.Caption

     

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

 
%d blogueiros gostam disto: