Situar form a la esquina de la pantalla

[Khronos]

Pues me gustaria situar el forma en la esquina inferior derecha, pero dependiendo de la resolucion cambia.
Estuve mirando la funcion windows.getclientrect pero no se si es lo que busco.

Porfavor ayudarme, no se que hacer.

Foto:

[jhonny]

Estoy seguro que deben haber mejores trucos para hacerlo y que ademas tenagn en cuenta la posición, altura y anchura de la barra de tareas, pero por lo pronto se me ocurre esta:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Left := Screen.Width-Width;
  Top  := Screen.Height-Height;
end;

[martinzcr]

Hola:

Tambien puedes hacerlo así

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
     Left := 0;
     Top  := 0;
end;

Saludos!

[jhonny]

Empezado por martinzcr

Hola:

Tambien puedes hacerlo así

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
     Left := 0;
     Top  := 0;
end;

Saludos!

Bueno, pero creo que eso la situaria en la equina superior izquierda y no en la inferiro derecha .

[Khronos]

Muchas gracias por las respuestas pero ya encontre la solucion con 2 sencillas funciones que hice:

Código Delphi [-]
function ScreenHeigth(y : integer): integer;
const
BarraTareas=29;
var
Altura: integer;
begin
Altura:= screen.Height - BarraTareas;
result:= Altura - y;

end;

function ScreenWidth(x : integer): integer;
var
Ancho: integer;
begin
Ancho:= screen.Width +2; // 2 es el borderwith del form
result:= Ancho - x;
end;



var
Rectangulo :TRect;
begin
with Rectangulo do
   begin
     Left:=0;
     Top:=0;
     Right:=Fmini.Width;
     Bottom:=FMini.Height;
   end;
mediaplayer1.Display:=FMIni.PVideo;
   MediaPlayer1.DisplayRect:=Rectangulo;
FMini.timer2.enabled:=true;
   FMini.PControles.Top:=104;
   FMini.Top:=ScreenHeigth(FMini.Height);
   FMini.Left:=ScreenWidth(FMini.Width);
   Fmini.showmodal;

Como sospechareis es para hacer una mini ventanita en la esquina de la pantalla como hace el reproductor de windows, por fin lo consegui

Que bien se ven los videos!!

Salu2

[dec]

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.

[Khronos]

Muchas gracias, ya lo solucione

Salu2