13 replies to this topic

[felipe]

Hola,
un pequeño y simple procedimiento que muestra un formulario al estilo "popup":

delphi

procedure popup;
begin
  Top := Screen.Height - Height;
  Left := Screen.Width - Width;
  AnimateWindow(Handle,500,AW_VER_NEGATIVE);
  SetFocus;
end;

Con solo llamar el procedimiento en el evento OnShow del formulario bastará 


Saludos!

[egostar]

Hola amigo

las variables Top, Height,  Left y Width como se declaran y/o que valores deben tener.

Salud OS

[enecumene]

Hola amigo

las variables Top, Height,  Left y Width como se declaran y/o que valores deben tener.

Salud OS

Asumo que esas variables son del Form, o sea, propiedades del Form:

Form1.Left;
Form1.Top;
Form1.Width;
Form1.Height;

ya que también se pueden escribir sin el nombre del form por delante .

Saludos

[felipe]

Hola amigo

las variables Top, Height,  Left y Width como se declaran y/o que valores deben tener.

Salud OS

Asumo que esas variables son del Form, o sea, propiedades del Form:

Form1.Left;
Form1.Top;
Form1.Width;
Form1.Height;

ya que también se pueden escribir sin el nombre del form por delante .

Saludos

Efectivamente amigo enecumene, se trata de esas y el valor que contengan no importa, lo único que no tiene en cuenta este código es el tamaño de la barra de tareas, ya que el formulario aparece desde esta y no después.


Saludos!

[egostar]

Hey, la pregunta es porque el procedimiento no está declarado en el form, en todo caso para que funcione debería estar mas o menos así

delphi

procedure TForm1.FormShow(Sender: TObject);
 
  procedure popup;
  begin
    Top := Screen.Height - Height;
    Left := Screen.Width - Width;
    AnimateWindow(Handle,500,AW_VER_NEGATIVE);
    SetFocus;
  end;
 
begin
  popup;
end;

Salud OS

[enecumene]

Y de esta manera podemos jugar con la posición del formulario:

delphi

procedure TForm1.popup(x,y: Integer);
begin
  Top := (Screen.Height - Height) - x;
  Left := (Screen.Width - Width) - y;
  AnimateWindow(Handle,500,AW_VER_NEGATIVE);
  SetFocus;
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
popup(15,15);
end;

Saludos.

[felipe]

Hey, la pregunta es porque el procedimiento no está declarado en el form, en todo caso para que funcione debería estar mas o menos así

delphi

procedure TForm1.FormShow(Sender: TObject);
 
  procedure popup;
  begin
    Top := Screen.Height - Height;
    Left := Screen.Width - Width;
    AnimateWindow(Handle,500,AW_VER_NEGATIVE);
    SetFocus;
  end;
 
begin
  popup;
end;

Salud OS

Sucedió amigo que le quité a propósito el form1 al procedimiento; basta con esto no más:

delphi

procedure TForm1.popup;
begin
  Top := Screen.Height - Height;
  Left := Screen.Width - Width;
  AnimateWindow(Handle,500,AW_VER_NEGATIVE);
  SetFocus;
end;

Y ahí esta

enecumene pregunto ¿cual es la idea de 'x' y 'y'?

Saludos!

[egostar]

Y porque no así

delphi

procedure TForm1.FormShow(Sender: TObject);
begin
    Top := Screen.Height - Height;
    Left := Screen.Width - Width;
    AnimateWindow(Handle,500,AW_VER_NEGATIVE);
    SetFocus;
end;

Salud OS

[enecumene]

enecumene pregunto ¿cual es la idea de 'x' y 'y'?

Fíjate, tal como lo tienes el popup queda pegadito a la esquina inferior derecha, la idea de x,y es que en caso de que quieras subir un poco la ventana o moverlo un poco más a la izquierda lo puedas hacer, pruebalo y vea la diferencia .

[felipe]

enecumene pregunto ¿cual es la idea de 'x' y 'y'?

Fíjate, tal como lo tienes el popup queda pegadito a la esquina inferior derecha, la idea de x,y es que en caso de que quieras subir un poco la ventana o moverlo un poco más a la izquierda lo puedas hacer, pruebalo y vea la diferencia .

Si claro, precisamente a eso me refería con la barra de tareas, pero pues no se que propiedad la maneja y por eso lo deje asi


Saludos!

[Caral]

Hola
Me gusta mucho el efecto y también los cambios.
Os felicito.
Saludos
PD: Guardado.

[enecumene]

Una versión mejorada :

delphi

procedure TForm1.popup(x,y: Integer, flag: Cardinal);
begin
  Top := (Screen.Height - Height) - x;
  Left := (Screen.Width - Width) - y;
  AnimateWindow(Handle,500,flag);
  SetFocus;
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
popup(15,15,AW_SLIDE + AW_VER_NEGATIVE);
end;

donde flag puedes colocar los efectos disponibles, los puedes ver en MSDN

Saludos.

[pepinomoretoni]

Para que me quede arriba de la barra de tareas yo lo use asi:

delphi

procedure TForm1.FormShow(Sender: TObject);
begin
    Top := Screen.WorkAreaHeight - Height;
    Left := Screen.WorkAreaWidth - Width;
    AnimateWindow(Handle,1000,AW_VER_NEGATIVE+AW_SLIDE);
    SetFocus;
end;

Gracias por sus aportes y saludos para todos.

[enecumene]

Muchas gracias por el aporte amigo pepinomoretoni