Efectos de Ventanas

[[enecumene]]

Hola, al menos deberías explicar qué clase de efectos necesitas, eso es algo extenso

Saludos.

[gerald]

Empezado por enecumene

Hola, al menos deberías explicar qué clase de efectos necesitas, eso es algo extenso

Saludos.

Mostrar y ocultar la ventana como si se desvaneciera desde abajo hacia arriba cuando se oculta y arriba hacia abajo cuando se muestra. no lento pero no tan rapido me entiendes???

[ContraVeneno]

con TForms no se como se pueda hacer, pero con las DevExpress, puedes usar un TDockPanel, agregar páneles y listo.

[[Lepe]]

El efecto de desvanecerse está disponible desde windows 2000 (con algún service pack) o superior y en delphi, creo recordar que desde delphi 6 con las propiedades AlphaBlend, etc...

¿de verdad tienes windows 95/98 todavía por ahí?

Algo que sí te va a funcionar en todos los windows es el "Roll up" esto es, decrementar el Height y width del TForm hasta que sean muy pequeños y después ocultar la ventana.

Saludos

[gerald]

no entiendo exactamente lo qme dices papa y como es un programa administrativo no deseo tener problemas con que windows usan los clientes por eso no quiero meterme en eso. Si me podrias explicar eso q me dijiste seria de mucha ayuda estoy urgido por solucionar ese incomveniente

[[Lepe]]

Pon esto en un botón de la ventana que quieres ocultar:

Código Delphi [-]

var PasoAnimaciones :integer;
begin
  PasoAnimaciones := 2;

while ClientHeight >3 do
begin
  Height := Height -PasoAnimaciones;
  Top := Top + Pasoanimaciones;
  application.ProcessMessages;
  application.ProcessMessages;
end;
Hide;

En otro botón, pon este código, hará la animación de mostrarse:

Código Delphi [-]
var PasoAnimaciones :integer;
    FAlto :integer;
    FAncho:integer;
begin
  PasoAnimaciones := 2;
  FAlto := 200; // alto que se quiere de la ventana
  FAncho := 300;
    Width:=3;
    ClientHeight:= Pasoanimaciones;
    Show;
    Height := 1;
    while Height < FAlto do
    begin
      Height:= Height+Pasoanimaciones;
      application.ProcessMessages;
      application.ProcessMessages;
    end;
 end;
 Selft.SetBounds(left, top,  Falto, Fancho);

[gerald]

ok entiendo porq mandas a ejecutar dos veces el aplication.processmessages eso no lo entiendo