Use esta function abaixo para deixar na posição que você deseja, quanto
a ninguém mudar, ou você usa outra function ou você remove as bordas do
Form, coloca somente um SpeedButton simulando o fechamento do mesmo.
Não sei o autor, peguei na net a muito tempo atrás:
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
procedure FormPos(Form: TForm; const Horz, Vert: byte);
{ Horz: 1 => Esquerda | 2 => Centro | 3 => Direita }
{ Vert: 1 => Topo | 2 => Centro | 3 => Abaixo }
var
R : TRect;
begin
if not SystemParametersInfo(SPI_GETWORKAREA, 0, @R, 0) then
R := Rect(0, 0, Screen.Width, Screen.Height);
with Form do
case Horz of
1: Form.Left := 0;
2: Form.Left := (R.Right - R.Left - Width) div 2;
3: Form.Left := R.Right - Width;
end;
with Form do
case Vert of
1: Form.Top := 0;
2: Form.Top := (R.Bottom - R.Top - Height) div 2;
3: Form.Top := R.Bottom - Height;
end;
end;
]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
Uso no Delphi 7, não sei se funciona em outras versões, acho que sim.
Felipe Milagres escreveu:
>
>
>
> queria saber como que eu faço para criar um form em um lugar já
> determinado (canto inferior direito) .. e que ele fique fixo .. ou
> seja. . o usuário não consegue arrastar ele para outro lugar ..
>
> []s . . .
>
> ps.: uso delphi 4 ....
>
> .
>
>
