formu sabitlemek

[programmer76]

merhaba arkadaşlar!! program çalışma esnasında açılan bir formu masaüstünde sabitlemek istiyorum yani çift kliklendiğinde ya da farenin sol tuşu ile sürüklenmek istendiğinde sürüklenmemesini istiyorum.bir kaç şey denedim borderstyle özelliklerinden bsdialog gibi ama olmadı mutlaka formu sürükleyebiliyorummm ne yapmalıyım.??
ilginize şimdiden teşekkürler..!!

[fduman]

Şöyle bir kod problemini çözebilir.

Kod: Tümünü seç

type
  TForm1 = class(TForm)
  private
    procedure WMMoving(var Message: TWMMoving); message WM_MOVING;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.WMMoving(var Message: TWMMoving);
begin
  Message.DragRect^.TopLeft:= Self.BoundsRect.TopLeft;
  Message.DragRect^.BottomRight:= Self.BoundsRect.BottomRight;
  inherited;
end;

[programmer76]

çok teşekkür ederim..boşa gidecek çok zamanlarım geri geldi..minnettarım..!!!