Cita:
Empezado por 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. |
Mucho mejor que mi code dec, gracias
Me lie demasiado aunque consegui el mismo resultado pero es mas codigo
PD: Hay alguna forma de que un form este siempre delante de todo, por ahora lo abro con showmodal pero no funciona como la mascara mini del windows media player 10.
Salu2