Flytte programmet når borders er = none

prøv denne adresse:

http://delphi.about.com/library/weekly/aa061300a.htm

Det virkede men hvis du vil have pointene så skal du lige svare

Mvh
fun22

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    procedure WMNCHitTest(var Message : TWMNCHitTest); message WM_NCHITTEST;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
  inherited;

  if Message.Result = HTCLIENT then
    Message.Result := HTCAPTION;
end;

end.

for sent :(

dette er mit svar