Formulario estático
Buenas tardes me preguntaba si me podrías ayudar
Lo que pasa es que quisiera que un formulario se quedara estático esn una ubicación espacifica ya que este formulario se encuentra encima de otro
Gracias por tu ayuda
Lo que pasa es que quisiera que un formulario se quedara estático esn una ubicación espacifica ya que este formulario se encuentra encima de otro
Gracias por tu ayuda
1 respuesta
Respuesta de Enrique Bernal
1
¿Pero si quiero que quede estático como hago?
Osea que nadie lo pueda desplazar con el mouse
Osea que nadie lo pueda desplazar con el mouse
Esto me baje de la red y funciona:
En el trucomania nº 56 pone como impedir que muevan tu form:
A veces nos interesa hacer que un form no pueda ser cambiado de posición en la pantalla. Lo
podremos hacer fácilmente y sin parpadeos capturando y tratando el mensaje
WM_WINDOWPOSCHANGING:
Pon esta linea en la parte private de la declaración de tu form:
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
{Esta linea/This line}
procedure NiTeMenees(var m: TWMWINDOWPOSCHANGED); message
WM_WINDOWPOSCHANGING ;
Y luego, en la implementation pon esta procedure:
procedure TForm1.NiTeMenees(var m : TWMWINDOWPOSCHANGED);
begin
m.windowpos.x := 50; {Left/Posicion X}
m.windowpos.y := 50; {Left/Posicion X}
end;
Y conseguirás que tu form no pueda ser cambiada de la intentar 50,50
En el trucomania nº 56 pone como impedir que muevan tu form:
A veces nos interesa hacer que un form no pueda ser cambiado de posición en la pantalla. Lo
podremos hacer fácilmente y sin parpadeos capturando y tratando el mensaje
WM_WINDOWPOSCHANGING:
Pon esta linea en la parte private de la declaración de tu form:
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
{Esta linea/This line}
procedure NiTeMenees(var m: TWMWINDOWPOSCHANGED); message
WM_WINDOWPOSCHANGING ;
Y luego, en la implementation pon esta procedure:
procedure TForm1.NiTeMenees(var m : TWMWINDOWPOSCHANGED);
begin
m.windowpos.x := 50; {Left/Posicion X}
m.windowpos.y := 50; {Left/Posicion X}
end;
Y conseguirás que tu form no pueda ser cambiada de la intentar 50,50
