Ver Mensaje Individual
  #6  
Antiguo 12-09-2007
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.112
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

A ver qué te parece así.

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  r: TRect;
begin
  if SystemParametersInfo(SPI_GETWORKAREA,0,@r,0) then
  begin
    self.Left := r.Right-self.Width;
    self.Top := r.Bottom-self.Height;
  end;
end;

Lo que hacemos es conseguir el rectángulo del área de trabajo, y eso excluye no sólo la barra de tareas de Windows, sino cualquier otra que existiera y tengan el tamaño que tengan. Arriba sitúo el formulario en la esquina inferior derecha, pero, no te será complicado situarlo donde mejor te parezca.
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita