Impedir que usuário mova o Form?
Bom dia companheiros..
Vejam se podem me ajudar...
Qual a propriedade, ou se não for propriedade do Form, como faço para que os form´s do meu sistema não sejam movidos.
Existe uma propriedade do form que trata isso?
Ou terei que programar este procedimento?
Gostaria de agradecer os companheiros que me ensinaram como evitar que os form´s sejam redimensionados. Agora preciso evitar também que os mesmos sejam movidos.
Vejam se podem me ajudar...
Qual a propriedade, ou se não for propriedade do Form, como faço para que os form´s do meu sistema não sejam movidos.
Existe uma propriedade do form que trata isso?
Ou terei que programar este procedimento?
Gostaria de agradecer os companheiros que me ensinaram como evitar que os form´s sejam redimensionados. Agora preciso evitar também que os mesmos sejam movidos.
Pablo_lima
Curtidas 0
Respostas
Zoom
24/03/2003
Propriedade Align setar para alCustom
[]´s
zoom
[]´s
zoom
GOSTEI 0
Anonymous
24/03/2003
fala fio!!! beleza???
gostaria que voce me passase essa manha de nao redimencionamento do form...
agradeço desde ja......
gostaria que voce me passase essa manha de nao redimencionamento do form...
agradeço desde ja......
GOSTEI 0
Aroldo Zanela
24/03/2003
Para versões mais antigas:
[list:18885097ff]
community.borland.com
Article #28186: How can one prevent a TForm from being moved or resized?
QUESTION:
How can one disable a TForm from being moved or resized?
ANSWER:
Place the following code in the FormCreate event:
procedure TForm1.FormCreate(Sender: TObject);
var
hMenuHandle : HMENU;
begin
hMenuHandle := GetSystemMenu(Form1.Handle, FALSE); //Get the handle of the Form
if (hMenuHandle <> 0) then
DeleteMenu(hMenuHandle, SC_MOVE, MF_BYCOMMAND); //disable moving
DeleteMenu(hMenuHandle, SC_SIZE, MF_BYCOMMAND); //disable resizing
end;
If you also want to prevent the user from minimizing and maximazing the form, in the Object Inspector, select the form you are concerned with and under the BorderIcons, set the biMinimize and biMaximize properties to False.
Last Modified: 02-JAN-02
[/list:u:18885097ff]
[list:18885097ff]
community.borland.com
Article #28186: How can one prevent a TForm from being moved or resized?
QUESTION:
How can one disable a TForm from being moved or resized?
ANSWER:
Place the following code in the FormCreate event:
procedure TForm1.FormCreate(Sender: TObject);
var
hMenuHandle : HMENU;
begin
hMenuHandle := GetSystemMenu(Form1.Handle, FALSE); //Get the handle of the Form
if (hMenuHandle <> 0) then
DeleteMenu(hMenuHandle, SC_MOVE, MF_BYCOMMAND); //disable moving
DeleteMenu(hMenuHandle, SC_SIZE, MF_BYCOMMAND); //disable resizing
end;
If you also want to prevent the user from minimizing and maximazing the form, in the Object Inspector, select the form you are concerned with and under the BorderIcons, set the biMinimize and biMaximize properties to False.
Last Modified: 02-JAN-02
[/list:u:18885097ff]
GOSTEI 0
Inutaishou
24/03/2003
Em borderStyle nas propriedades do form coloque bsSingle, assim o usuario não podera mover nem aumentar o tamanho do form...
mas se você quiser só que ele não mova use a propriedade align em alCustom
mas se você quiser só que ele não mova use a propriedade align em alCustom
GOSTEI 0
Aroldo Zanela
24/03/2003
Em borderStyle nas propriedades do form coloque bsSingle, assim o usuario não podera mover nem aumentar o tamanho do form...
Informação equivocada.
GOSTEI 0
Pablo_lima
24/03/2003
Caros companheiros
Obrigado pela orientação, sobre como evitar que o form seja movido.
É ao companheiro que queria saber como evitar que o form seja redimensionado:
Prop. BorderStyle = bsDialog
Um grande abaço a todos....
valeu.
Obrigado pela orientação, sobre como evitar que o form seja movido.
É ao companheiro que queria saber como evitar que o form seja redimensionado:
Prop. BorderStyle = bsDialog
Um grande abaço a todos....
valeu.
GOSTEI 0
Inutaishou
24/03/2003
Em borderStyle nas propriedades do form coloque bsSingle, assim o usuario não podera mover nem aumentar o tamanho do form...
mas se você quiser só que ele não mova use a propriedade align em alCustom
Correção:
bsSingle impede somente que o form seja redimensionado, mesmo que ainda pode ser maximizado usando o icone no canto superior direito, mas para evitar isso é só retirar o ícone setando para false o biMaximize no BorderIcons, e para não ser movido alCustom
GOSTEI 0
Anonymous
24/03/2003
Obrigado a vc RodLima e aos demais pela força...
abraços
abraços
GOSTEI 0