Efeito legal no caption do form ii
Código
//declare as variaveis CAP e NCAR como gloobais.
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;
Publicidade
Vote na dica
Quantidade de votos: 0 votos
Aceitação: 0%
Detalhes da dica
Categoria: Forms
Adicionada dia: 12/06/03
Por: Felipe Monteiro
Visualizada: 2882 vezes
Adicionada dia: 12/06/03
Por: Felipe Monteiro
Visualizada: 2882 vezes
COLUNISTAS
Publicidade
Enquete
O que achou do novo site?
Validações
Publicidade
Enquete
O que achou do novo site?
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009