拖动窗体内的控件源代码

最新推荐文章于 2023-06-27 14:46:19 发布

老狼8848

最新推荐文章于 2023-06-27 14:46:19 发布

阅读量956

点赞数

分类专栏： Lazarus 文章标签： codetyphon32 源码拖动控件

本文链接：https://blog.csdn.net/bq_cui/article/details/49996595

版权

Lazarus 专栏收录该内容

168 篇文章 21 订阅

订阅专栏

编译环境：CodeTyphon 5.5

unit dy224;

//{$MODE Delphi}
{$mode objfpc}{$H+}



interface

uses
  LCLIntf, LCLType, LMessages, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
     Button1: TButton;
     ListBox1: TListBox;
     Panel1: TPanel;
    procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer
      );
    procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);

   private
     md :boolean;
     x0, y0 :integer;
   end;


var
  Form1: TForm1;


implementation

{$R *.lfm}

{ TForm1 }

// panel mouseDown
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  md := True;
  x0 := x;
  y0 := y;
end;

// button mouseDown
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  md := True;
  x0 := x;
  y0 := y;
end;

// panel mouseMove
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if md then
  begin
    Panel1.Left := Panel1.Left - x0 + x;
    Panel1.Top := Panel1.Top - y0 + y;
  end;
end;


// button mouseMove
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if md then
  begin
    Button1.Left := Button1.Left - x0 + x;
    Button1.Top := Button1.Top - y0 + y;
  end;
end;

// panel mouseUp
procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  md := False;
end;

// button mouseUp
procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  md := False;
end;



end.