如何自动创建panel 和随意拖动 最好要透明的panel

Question

可以到'高分寻求类似制作画图软件的例子，分不够可以再加'帖子领分

Answer 1

procedure TForm1.FormShow(Sender: TObject);
var p:Tpanel;
begin
    p:=Tpanel.Create(application);
    p.Parent:=self;
    p.DragMode:=dmAutomatic;
    p.DragKind:=dkDock;
    p.Name:='mypanel';
    p.Show;
end;

Answer 2

To jinjazz（三个小时上下班）：
你说的还可以，可是创建出来的Panel 一点就出现一个标题框，去不掉。怎么去掉，

Answer 3

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    ReleaseCapture;
    (sender as Tpanel).perform(WM_SysCommand, $F012, 0);end;

Answer 4

完整代码：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, Menus, ExtCtrls, Buttons;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure PanelMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
var krow,kcol:integer;
implementation{$R *.dfm}procedure TForm1.PanelMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    ReleaseCapture;
    (sender as Tpanel).perform(WM_SysCommand, $F012, 0);
end;procedure TForm1.FormShow(Sender: TObject);
var p:Tpanel;
begin
    p:=Tpanel.Create(application);
    p.Parent:=self;
    p.OnMouseDown:=PanelMouseDown;
    p.Name:='mypanel';
    p.Show;
end;end.

Answer 5

To jinjazz（三个小时上下班）：
  谢了 ，你去 '高分寻求类似制作画图软件的例子，分不够可以再加'帖子领分吧 ，多谢了。

Answer 6

To jinjazz（三个小时上下班）： 
  怎么做透明的Panel 啊

Answer 7

To jinjazz（三个小时上下班）：
这个又不能改动大小了,唉 ,真矛盾.