Não mover o form
24/02/2003
0
Valeu!
Anonymous
Posts
24/02/2003
Dbezerra
se isso naum for um problema pra vc, pode usar essa alternativa.
falow!
24/02/2003
Anonymous
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
24/02/2003
Anonymous
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;
24/02/2003
José Silva
Clique aqui para fazer login e interagir na Comunidade :)