Asunto: Simular el zumbido de MSN en un formulario Delphi
¿Cómo puedo simular el zumbido de MSN en una ventana? utilizo Delphi 7.
Publicado:
Vie Jul 23, 2010 6:43 am
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Simular el zumbido de MSN en un formulario Delphi
Anuncios
varios escribió:
¿Cómo puedo simular el zumbido de MSN en una ventana? utilizo Delphi 7.
Puedes utilizar este código, añade un botón y en el evento Click le pones lo siguiente:
Código:
procedure TForm1.btZumbidoClick(Sender: TObject);
var
i : integer;
begin
for i := 0 to 10 do
begin
Left := Left + 10;
Sleep(30);
Top := Top + 10;
Application.ProcessMessages;
Sleep(50);
Left := Left - 10;
Sleep(30);
Top := Top - 10;
end;
end;
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A