Proibir Usuário de Arrastar um Form

Delphi

06/06/2003

Como faço pra proibir um usuário de arrastar um Form? eu ja desabilitei os botoes de Maximizar, Restaurar e Minimizar, e já proibi de modificar o tamanho dele, mas, se clicar na barra de cima e arrastar o form, ele arrasta.. como faço pra desabilitar isso? deixando ele sempre na mesma posição?



Allan Elias Ramos :wink:


Aersoftware

Aersoftware

Curtidas 0

Respostas

Lulinha

Lulinha

06/06/2003

Criei duas variáveis públicas (código abaixo):

public
{ Public declarations }
L,T:integer;

OnCreate (do formulário):

procedure TForm1.FormCreate(Sender: TObject);
begin
L:=left;
T:=top;
end;

E depois coloque os seguintes códigos nos eventos do fomulário:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (left<>l) or (top<>t) then
begin
Form1.left:=l;
form1.top:=t;
abort;
end;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (left<>l) or (top<>t) then
begin
Form1.left:=l;
form1.top:=t;
abort;
end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (left<>l) or (top<>t) then
begin
Form1.left:=l;
form1.top:=t;
abort;
end;
end;

OBS.: Nesse caso o usuário move o formulário só que quando o mouse volta para o formulário este retorna para a sua posição original.
Espero ter ajudado!
Um abraço! Luís Ledebour.


GOSTEI 0
Sandra

Sandra

06/06/2003

Como faço pra proibir um usuário de arrastar um Form? eu ja desabilitei os botoes de Maximizar, Restaurar e Minimizar, e já proibi de modificar o tamanho dele, mas, se clicar na barra de cima e arrastar o form, ele arrasta.. como faço pra desabilitar isso? deixando ele sempre na mesma posição?


Allan,


Procure pelas seguintes propriedades do Form:

:arrow: BorderStyle - bsSingle (não redimensionar)

:arrow: Align – alCustom (não mover)


Eu utilizo o Delphi 6 e funciona...

:wink:


GOSTEI 0
Aersoftware

Aersoftware

06/06/2003

Hmmm.. valeu pessoal.. foi grande ajuda.. abraços...



Allan Elias Ramos :wink:


GOSTEI 0
POSTAR