双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

如何实现拖动label

2005-10-11 05:09:13 285 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

soulhuman 墨衍会员 · AI 创作全网分发关注 + 加入社区

vb.net中实现picturebox中图片拖动和label控件数组结合，实现label和图片同步在前面的文章中，提到过在vb.net中实现picturebox中图片拖动，以及控件数组方面的东西。因为项目需要，我要实现的是，图片上有各个站点的名称，我要实现点击相应的名称，进入站点，查看相应的信息。我采取的是在图片上放一系列的label，然后点击label，进入相应的站点，这样就遇到了一个问题，要实现在拖动图片的同时，所有的label也同步拖动。下面的代码实现了这个功能：Import 阅读详情

请问如何实现拖动一个label组件

...全文

AD9826的时序分析及Verliog代码 AD9826的时序分析及Verliog代码（本文对AD9826的模式和时序进行了分析，如有错误敬请指正，关于这款ADC芯片的基本参数，本文不做过多介绍） 1、AD9826的模式 AD9826的采样模式主要有两种，一种是“CDS模式”，一种是“SHA模式”；在这两种模式下分别有1通道、2通道、3通道的采样模式（1）CDS模式简单的来说CDS模式就是，有两个采样时钟，一个是ADCCLK1，用来采样CCD波形的参考电平，一个是ADCCLK2用来采样数据电平，然后经过，偏移量调节，再经过PGA增益放大最阅读详情

soulhuman

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

fengxinwen 2006-05-22

打赏
举报

哪能找到详细介绍windows消息的资料

mylovelypig 2006-05-22

打赏
举报

用panel替代label，然后在panel的mousedown事件里

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
panel1.Perform(wm_syscommand,$f012,0)
end;

==========================================
这段代码,我查到处都有人贴,甚至象你这样的星级用户.

这段代码能否响应Panel的单击事件吗?
如果是BUTTON呢?用了这个代码,那么BUTTON的单击事件不是废了吗?

sjchao 2005-10-12

打赏
举报

学习啊

xixuemao 2005-10-12

打赏
举报

wdswcy 2005-10-12

打赏
举报

// 任意摆布一个控件 ( 拖动、放大、缩小 )******************************************
procedure ManipulateControl(Control: TControl; Shift: TShiftState; X, Y, Precision: integer);

var SC_MANIPULATE: Word;

begin

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

// 光标在控件的最左侧 **********************************************************

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

if (X<=Precision) and (Y>Precision) and (Y<Control.Height-Precision)

then begin

SC_MANIPULATE := $F001;

Control.Cursor := crSizeWE;

end

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

// 光标在控件的最右侧 **********************************************************

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

else if (X>=Control.Width-Precision) and (Y>Precision) and (Y<Control.Height-Precision)

then begin

SC_MANIPULATE := $F002;

Control.Cursor := crSizeWE;

end

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

// 光标在控件的最上侧 **********************************************************

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

else if (X>Precision) and (X<Control.Width-Precision) and (Y<=Precision)

then begin

SC_MANIPULATE := $F003;

Control.Cursor := crSizeNS;

end

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

// 光标在控件的左上角 **********************************************************

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

else if (X<=Precision) and (Y<=Precision)

then begin

SC_MANIPULATE := $F004;

Control.Cursor := crSizeNWSE;

end

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

// 光标在控件的右上角 **********************************************************

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

else if (X>=Control.Width-Precision) and (Y<=Precision)

then begin

SC_MANIPULATE := $F005;

Control.Cursor := crSizeNESW ;

end

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

// 光标在控件的最下侧 **********************************************************

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

else if (X>Precision) and (X<Control.Width-Precision) and (Y>=Control.Height-Precision)

then begin

SC_MANIPULATE := $F006;

Control.Cursor := crSizeNS;

end

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

// 光标在控件的左下角 **********************************************************

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

else if (X<=Precision) and (Y>=Control.Height-Precision)

then begin

SC_MANIPULATE := $F007;

Control.Cursor := crSizeNESW;

end

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

// 光标在控件的右下角 **********************************************************

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

else if (X>=Control.Width-Precision) and (Y>=Control.Height-Precision)

then begin

SC_MANIPULATE := $F008;

Control.Cursor := crSizeNWSE;

end

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

// 光标在控件的客户区 ( 移动整个控件 )******************************************

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

else if (X>5) and (Y>5) and (X<Control.Width-5) and (Y<Control.Height-5)

then begin

SC_MANIPULATE := $F009;

Control.Cursor := crSizeAll;

end

else begin

SC_MANIPULATE := $F000;

Control.Cursor := crDefault;

end;

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

if Shift=[ssLeft] then

begin

ReleaseCapture;

Control.Perform(WM_SYSCOMMAND, SC_MANIPULATE, 0);

end;

end;

hellolongbin 2005-10-12

打赏
举报

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
procedure Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Label1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
x1,y1:integer;
ondrag:boolean;
implementation

{$R *.dfm}

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Shift=[ssLeft] then
begin
X1:=X;
Y1:=Y;
onDrag:=true;
end;
end;

procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
OnDrag:=false;
end;

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if OnDrag then
begin
Label1.Left:=Label1.left +X-X1;
Label1.Top:=Label1.Top+Y-Y1;
end;
end;

end.

✦双11狂欢大促✦

如何实现拖动label

相关推荐

双11狂欢大促