nickolas
02-09-2012, 06:57:54
Hola actualmente estaba probando una forma de como posicionar un formulario sobre en la parte inferior derecha de la pantalla el codigo que estoy usando paraeso es el siguiente.
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;
ahora lo se me ocurrio era poder posicionar que aparesca uno arriba del otro como hace el messenger, pero no se como. agradeceria si alguno podria decrime como podria modificar ese codigo para que haga lo que quiero.
o Como hacer que aparesca sobre la para partesuperior derecha?
Dese ya gracias por las respuestas.
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;
ahora lo se me ocurrio era poder posicionar que aparesca uno arriba del otro como hace el messenger, pero no se como. agradeceria si alguno podria decrime como podria modificar ese codigo para que haga lo que quiero.
o Como hacer que aparesca sobre la para partesuperior derecha?
Dese ya gracias por las respuestas.