Programm verschieben...

[Störtebeker]

Sry. aber ich weiß nicht, woran es liegt. Die Form sitzt fest, wie ein schwerer Stein.

Delphi-Quellcode:

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, VrControls, VrGradient, ExtCtrls, StdCtrls, pngextra, SXPNGUtils;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    VrGradient1: TVrGradient;
    VrGradient2: TVrGradient;
    Label1: TLabel;
    Image1: TImage;
    Label2: TLabel;
  private
    { Private declarations }
    procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest); 
begin 
  inherited; 
  if Message.Result = htClient then 
    Message.Result := htCaption; 
end;

end.