Fórum cancelar a opção quot;mover do formularioquot; #149806
26/03/2003
0
já vis isso em alguns projeto e gostaria de saber como faço para que a opção ´mover´ do meu formulário seja desabilitada.
peguei uma dica mais ela é só para não arrastar fora das margens do monitor.
mais o que eu queria mesmo era que essa opção ficasse desabilitada quando eu clicar no icone da barra de titulo do meu formulário
obrigado
peguei uma dica mais ela é só para não arrastar fora das margens do monitor.
mais o que eu queria mesmo era que essa opção ficasse desabilitada quando eu clicar no icone da barra de titulo do meu formulário
obrigado
Anonymous
Curtir tópico
+ 0
Responder
Posts
26/03/2003
Rafaela
Tenta isso no onshow ou no oncreate do form
procedure Tform1.FormShow(Sender: TObject);
var
hMenuHandle : HMENU;
begin
hMenuHandle := GetSystemMenu(Form1.Handle, FALSE);
if (hMenuHandle <> 0) then
begin
DeleteMenu(hMenuHandle, SC_MOVE, MF_BYCOMMAND);
DeleteMenu(hMenuHandle, SC_SIZE, MF_BYCOMMAND);
end;
Espero ter ajudado
procedure Tform1.FormShow(Sender: TObject);
var
hMenuHandle : HMENU;
begin
hMenuHandle := GetSystemMenu(Form1.Handle, FALSE);
if (hMenuHandle <> 0) then
begin
DeleteMenu(hMenuHandle, SC_MOVE, MF_BYCOMMAND);
DeleteMenu(hMenuHandle, SC_SIZE, MF_BYCOMMAND);
end;
Espero ter ajudado
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)