RE:MENSAJES PARA OPCIONES DE UN MAIN MENU
GRACIAS POR LA INFORMACION ACA TE ENVIO UN CODIGO PARA MOSTRAR LAS ETIQUETAS AL ESTILO DE UNA PAGINA WEB, ESPERO TE SIRVA(AUQUE ES POSIBLE QUE YA LO SUPIERAS) AHI VA:
AÑADE UN TBUTTON Y UN TSTATUSBAR, DECLARA LAS SIGUIENTES VARIABLES Y CONSTANTES:
Var
Form1: TForm1;
I,VECES:INTEGER;
CAD,CAR:STRING;
Const
MENSAJE:ARRAY[0..2] OF STRING = ('Mensaje en la Computadora 1','Segundo Mensaje Enviado','Ultimo Mensaje Evniado');
LUEGO COLOCA EN EL EVENTO ONCLICK DEL BOTON:
VECES:= 0;
REPEAT
FOR I:= 1 TO LENGTH(MENSAJE[VECES]) DO
BEGIN
CAR:= COPY(MENSAJE[VECES],I,1);
STATUSBAR1.Panels[0].Text:= STATUSBAR1.Panels[1].Text + CAR;
SLEEP(100);
APPLICATION.ProcessMessages;
END;
SLEEP(750);
APPLICATION.ProcessMessages;
STATUSBAR1.Panels[0].Text:= '';
CAR:= '';
INC(VECES);
UNTIL VECES = 3;
Aunque Aún No sé como detenerlo en el Momento que lo desee, espero tu si lo sepas, hasta pronto y gracias.