Não mover o form
Olá pessoal, o que faço para fazer com que o usuário não mova o form do local?
Valeu!
Valeu!
Anonymous
Curtidas 0
Respostas
Dbezerra
24/02/2003
vc pode colocar a propriedade BorderStyle do form como fbsNone, porem ele ficara sem barra de titulos.
se isso naum for um problema pra vc, pode usar essa alternativa.
falow!
se isso naum for um problema pra vc, pode usar essa alternativa.
falow!
GOSTEI 0
Anonymous
24/02/2003
Tente o seguinte
crie um timer e coloque a propriedade interval := 1;
coloque no código do timer:
if form1.top <> 200 then // o 200 é a posição que não deve ser mudada.
form1.top := 200;
if form1.left <> 200 then
form1.left := 200;
espero ter ajudado
crie um timer e coloque a propriedade interval := 1;
coloque no código do timer:
if form1.top <> 200 then // o 200 é a posição que não deve ser mudada.
form1.top := 200;
if form1.left <> 200 then
form1.left := 200;
espero ter ajudado
GOSTEI 0
Anonymous
24/02/2003
Olá pessoal, o que faço para fazer com que o usuário não mova o form do local?
Valeu!
Faça assim:
Crie um procedimento para responder a mensagem WM_NCHITTEST do form e trate-a assim:
...
type
TForm1 = class(TForm)
private
procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
begin
inherited;
if Msg.Result = HTCAPTION then
Msg.Result := HTNOWHERE;
end;
GOSTEI 0
José Silva
24/02/2003
Se você usa o Delphi 6.0 você pode abilitar a propriedade ´Align´ para ´alCustom´ que impede o from ser movido.
GOSTEI 0