---
title: "Flytta en form utan ram..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/programmering/27922-flytta-en-form-utan-ram"
topic: "Programmering"
topic_url: "https://www.webforum.nu/amne/programmering"
author: "trasher"
published: "2001-08-02T21:23:00.000Z"
updated: "2001-08-03T19:07:00.000Z"
replies: 4
views: 440
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/programmering/27922-flytta-en-form-utan-ram"
---

# Flytta en form utan ram...

## #1 — trasher, 2001-08-02T21:23Z

Går det att flytta en form som inte har en ram?

Permalänk: https://www.webforum.nu/p/27922

## #2 — jt, 2001-08-03T07:20Z

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    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 = HTCLIENT then
    Msg.Result := HTCAPTION;
end;
end.

Nu ska du kunna flytta formuläret utan att använda ramen.

Permalänk: https://www.webforum.nu/p/400702

## #3 — trasher, 2001-08-03T13:00Z

Det funkar ju men det ända problemet
då är ju att formen's knappar och dylikt
blir oanvändbara...
Du vet inte hur man kan göra samma sak
fast bara med den översta delen av rutan?

Permalänk: https://www.webforum.nu/p/400703

## #4 — jt, 2001-08-03T14:02Z

Använd t.e.x en panel som "översta del" och använd följande i panelens OnMouseDown event.

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  If Button = mbLeft then
  begin
    ReleaseCapture;
    SendMessage(hwnd(self.Handle), WM_NCLBUTTONDOWN, HTCAPTION, 0);
  end;
end;

Permalänk: https://www.webforum.nu/p/400704

## #5 — trasher, 2001-08-03T19:07Z

Tackar...
Nu fungerar det mkt bra.
Fast jag gjorde det på bilden som
föreställer en mac ram.

Permalänk: https://www.webforum.nu/p/400705

---

Tråden på webben: https://www.webforum.nu/amne/programmering/27922-flytta-en-form-utan-ram