cancelar a opção quot;mover do formularioquot;

Delphi

26/03/2003

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


Anonymous

Anonymous

Curtidas 0

Respostas

Rafaela

Rafaela

26/03/2003

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


GOSTEI 0
POSTAR