Ir al contenido


Foto

Efecto Slider


  • Por favor identifícate para responder
6 respuestas en este tema

#1 lKinGl

lKinGl

    Advanced Member

  • Moderador
  • PipPipPip
  • 118 mensajes
  • LocationVenezuela

Escrito 20 noviembre 2008 - 09:53

He aqui un codigo pequeñito para hacer un efecto bastante elegante sobre todo para las validaciones de las cosas  :p

Paso 1:
Colocar un Button

Paso 2:
En la Propiedad Heigth del Form que queremos aplicar el efecto asignamos el valor = 300

Paso 3:
En el Evento OnClick del Button ponemos este código:


delphi
  1. Button1.Visible:=False;
  2. For alto:=300 to 500 do
  3.   begin
  4.     Form1.Height:=alto;
  5.   end;
  6. Button1.Visible:=True;



Paso 4:

Prueba el efecto :p espero les guste....

Salu2
  • 0

#2 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 21 noviembre 2008 - 05:38

He aqui un codigo pequeñito para hacer un efecto bastante elegante sobre todo para las validaciones de las cosas  :p

Paso 1:
Colocar un Button

Paso 2:
En la Propiedad Heigth del Form que queremos aplicar el efecto asignamos el valor = 300

Paso 3:
En el Evento OnClick del Button ponemos este código:




delphi
  1. Button1.Visible:=False;
  2. For alto:=300 to 500 do
  3.   begin
  4.     Form1.Height:=alto;
  5.   end;
  6. Button1.Visible:=True;



Paso 4:

Prueba el efecto :p espero les guste....

Salu2


Esta muy bueno,pero no logre copilar eso. :p
Un Saludo.

#3 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 21 noviembre 2008 - 06:30

Ya logre copilar, no se si esta bien lo que hice:


delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3. alto: integer;
  4. begin
  5. Button1.Visible:=False;
  6. For alto:=100 to 500 do
  7. begin
  8. Form1.Height:=alto;
  9. end;
  10. Button1.Visible:=True;
  11. end;
  12. end.


Un Saludo.

#4 eduarcol

eduarcol

    Advanced Member

  • Administrador
  • 4.483 mensajes
  • LocationVenezuela

Escrito 21 noviembre 2008 - 06:55

en efecto, te faltaba declarar la variable, gracias por el aporte lKingGl
  • 0

#5 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.419 mensajes
  • LocationRepública Dominicana

Escrito 21 noviembre 2008 - 07:34

Dejo el código mejorado con opciones de ambos lados (Abajo/Arriba):


delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var alto: integer;
  3. begin
  4. Case RadioGroup1.ItemIndex of
  5.   0: For alto := 150 to 500 do
  6.       begin
  7.         Form1.Height:=alto;
  8.       end;
  9.   1: For alto := 500 downto 150 do
  10.       begin
  11.         Form1.Height:=alto;
  12.       end;
  13. end;
  14. end;



Screen

Imagen Enviada

Saludos.
  • 0

#6 lKinGl

lKinGl

    Advanced Member

  • Moderador
  • PipPipPip
  • 118 mensajes
  • LocationVenezuela

Escrito 21 noviembre 2008 - 09:04

Bueno me alegra que les haya gustado, pues a mi parecer si este efecto se aplica en un sistema de login y la persona no esta registrada sale el efecto y le aparecen las opciones para registrarse,,, lo hace ver bastante elegante :D
  • 0

#7 felipe

felipe

    Advanced Member

  • Administrador
  • 3.283 mensajes
  • LocationColombia

Escrito 21 noviembre 2008 - 09:46

No lo he probado, pero ¿no se ve afectado por el refresh?
  • 0




IP.Board spam blocked by CleanTalk.