Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 12-05-2007
JXJ JXJ is offline
Miembro
 
Registrado: abr 2005
Posts: 2.475
Poder: 22
JXJ Va por buen camino
Question PopUPForm sobre PopUPForm

Hola.

No saben como puedo obtener la posicion y tamaño de una
forma, creada, en tiempo de ejecucion.

Estoy haciendo mi popup tipo msn y ya casi quedo.
solo que no se como hacer que la forma nueva. este encima
de una anterior ya creada.

----------
|popup3 |
---------
|popup2 |
---------
|popup1|
---------
Systemtray
---------


en el boton empleo

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var ordenes : Integer;
         NVN: TVNotF; //<- Form que quiero que funcione como la del  mssenger
begin
//if  condicion para mostrar PopUp = 0 then exit;
   NVN := TVNotF.Create(Form1);
  { Metemos los datos a la ventanita de notificación
  }
    ordenes := random(100);
    NVN.Label1.Caption := 'Notificacion de suceso ' + inttostr(ordenes);
    NVN.show;
end;



en la forma que quiero que sea popup tipo messenger
en el evento onformshow

Código Delphi [-]

procedure TVNotF.FormShow(Sender: TObject);
begin
// Aqui definimos el Tamaño del popup, al mostrarse.
self.clientheight:=200;  //Alto de la ventana
self.ClientWidth :=300;  //Ancho de la ventana
//Definimos posicion del la ventana en la pantalla
  self.Left := Screen.WorkAreaWidth - self.Width ; //ponemos la ventana a la Derecha de la pantalla
  self.Top := Screen.WorkAreaHeight - self.Height; //ponemos la ventana en la parte inferior de la pantalla
try  //si queremos cargar una imagen.
// Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\carpeta\'+'imagen.jpg');
except
end;
end;

les adjunto el codigo que empleo.

gracias

Última edición por JXJ fecha: 02-12-2008 a las 19:11:18.
Responder Con Cita
  #2  
Antiguo 12-05-2007
Avatar de droguerman
droguerman droguerman is offline
Miembro
 
Registrado: abr 2005
Ubicación: tierra
Posts: 999
Poder: 20
droguerman Va por buen camino
revisa lo que te envio:
Archivos Adjuntos
Tipo de Archivo: zip popw3.zip (9,0 KB, 22 visitas)
__________________
self.free;
Responder Con Cita
  #3  
Antiguo 12-05-2007
JXJ JXJ is offline
Miembro
 
Registrado: abr 2005
Posts: 2.475
Poder: 22
JXJ Va por buen camino
muchas gracias droguerman
nunca se me ubiera ocurrido usar el timer de esa forma.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 19:50:23.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi