设计了一个标签打印程序,标签上的文字、条码、图形可以由用户添加、删除,拖动位置、调整大小
标签对象在设计时,被选择的对象周围会出现8个小方块,用来调整对象的大小
这个东西怎么称呼?
当鼠标移到相应的方块上的时候,就会根据方块的拖动方向显示不同的双向箭头光标,提示用户可拖动的方向我现在是创建了一个控件,吸附在设计对象的八个点位,功能倒也像模像样得以实现,但是有一个缺点,就是当标签上摆了五六十个对象的时候,全部被选中,就会产生四五百个小方块,四五百个构件啊!这时候用鼠标拖动位置的时候,这四五百个构件稀里哗啦的移往新位置,速度有些慢。
可是在delphi中这么操作丝毫不显慢,它用的是可视对象吗?在此想问大家这八个小方块的功能应该怎么来实现,
1、在对象被选择时出现在对象四边,且是半块在对象上半块在对象外
2、鼠标移上去可以感应得到
标签对象在设计时,被选择的对象周围会出现8个小方块,用来调整对象的大小
这个东西怎么称呼?
当鼠标移到相应的方块上的时候,就会根据方块的拖动方向显示不同的双向箭头光标,提示用户可拖动的方向我现在是创建了一个控件,吸附在设计对象的八个点位,功能倒也像模像样得以实现,但是有一个缺点,就是当标签上摆了五六十个对象的时候,全部被选中,就会产生四五百个小方块,四五百个构件啊!这时候用鼠标拖动位置的时候,这四五百个构件稀里哗啦的移往新位置,速度有些慢。
可是在delphi中这么操作丝毫不显慢,它用的是可视对象吗?在此想问大家这八个小方块的功能应该怎么来实现,
1、在对象被选择时出现在对象四边,且是半块在对象上半块在对象外
2、鼠标移上去可以感应得到
解决方案 »
- 如何提高本地数库的安全性?
- 求助--急急急急急!!!!!!关于时间和数据的问题(明天面试的一个问题)
- 散分-其实我满菜的
- 各位高手请帮帮忙!后台FTP程序如何实现?急!急!
- MaskEdit的主要属性
- 欢迎大家讨论,动态选择基类的问题。
- 请问如何把一个ico文件加载成鼠标光标,并且要背景透明
- 400分求关于解密和反编译的问题!解决问题另开贴给分。急用,谢谢!
- WM_Help消息能被什么钩子捕获?
- 不想让try...except抛出异常
- 请问我做以TStringList为元素的数组是Array of TStirngList还是把TStringList放到TStringList里面去?
- 急,寻找组件!!!!
http://search.csdn.net/Expert/topic/218/218467.xml?temp=.3697626
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
TSizerControl = class(TCustomControl)
private
FControl: TControl;
FRectList: Array [1..8] of TRect;
FPosList: Array [1..8] of Integer; { Private declarations }
protected
{ Protected declarations }
public
constructor Create(AOwner: TComponent; AControl: TControl);
procedure CreateParams(var Params: TCreateParams); override;
procedure Createhandle;override;
procedure WmNcHitTest(var Msg: TWmNcHitTest); message wm_NcHitTest;
procedure WmSize(var Msg:TWmSize); message wm_Size;
procedure WmLButtonDown(var Msg: TWmLButtonDown); message wm_LButtonDown;
procedure WmMove(var Msg: TWmMove); message Wm_Move;
procedure Paint; override;
procedure SizeControlExit(Sender: TObject); { Public declarations }
published
{ Published declarations }
end;
const
sc_DragMove: Longint = $F012;
procedure Register;implementationconstructor TSizerControl.Create(AOwner: TComponent; AControl: TControl);
var
R: TRect;
begin
inherited Create(AOwner);
FControl := AControl;
OnExit := SizeControlExit; R := FControl.BoundsRect;
InflateRect(R, 2, 2);
BoundsRect := R;
Parent := FControl.Parent;
FPosList[1] := htTopLeft;
FPosList[2] := htTop;
FPosList[3] := htTopRight;
FPosList[4] := htRight;
FPosList[5] := htBottomRight;
FPosList[6] := htBottom;
FPosList[7] := htBottomLeft;
FPosList[8] := htLeft;end;
procedure TSizerControl.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
//增加透明特性
Params.ExStyle := Params.ExStyle
+ WS_EX_TRANSPARENT;
end;procedure TSizerControl.Createhandle;
begin
inherited Createhandle;
SetFocus;
end;procedure TSizerControl.WmNcHitTest(var Msg: TWmNcHitTest);
var
Pt: TPoint;
I: Integer;
begin
Pt := Point(Msg.XPos, Msg.YPos);
Pt := ScreenToClient(Pt);
Msg.Result := 0;
//检测鼠标位置并改变状态
for I := 1 to 8 do
if PtInRect(FRectList[I], Pt) then
Msg.Result := FPosList[I];
if Msg.Result = 0 then
inherited;
end;
procedure TSizerControl.WmSize(var Msg:TWmSize);
var
R: TRect;
begin
R := BoundsRect;
InflateRect( R, -2, -2);
FControl.BoundsRect := R;
//计算8个黑方框
FRectList[1] := Rect(0 ,0, 5, 5);
FRectList[2] := Rect(Width div 2 - 3, 0, Width div 2 + 2, 5);
FRectList[3] := Rect(Width - 5, 0, Width, 5);
FRectList[4] := Rect(Width - 5, height div 2 - 3, Width, Height div 2 + 2);
FRectList[5] := Rect(Width - 5, Height - 5, Width, Height);
FRectList[6] := Rect(Width div 2 - 3, Height - 5, Width div 2 + 2, Height);
FRectList[7] := Rect(0, Height -5, 5, Height);
FRectList[8] := Rect(0, Height div 2 - 3, 5, Height div 2 + 2);
end;
procedure TSizerControl.WmLButtonDown(var Msg: TWmLButtonDown);
begin
//执行拖动命令
Perform(Wm_SysCommand, sc_DragMove, 0);
end;procedure TSizerControl.WmMove(var Msg: TWmMove);
var
R: TRect;
begin
R := BoundsRect;
InflateRect( R, -2, -2);
FControl.Invalidate;
FControl.BoundsRect := R;
end;procedure TSizerControl.Paint;
var
I: Integer;
begin
Canvas.Brush.Color := clBlack;
for I := 1 to 8 do
with FRectList[I] do
Canvas.Rectangle (Left, Top, Right, Bottom);
end;procedure TSizerControl.SizeControlExit(Sender: TObject);
begin
Free;
end;procedure Register;
begin
RegisterNoicon([TSizerControl]);
end;end.
用的时候:(这是一个通用鼠标按下过程,把要显示设计状态的组件的mousedown事件指向这里就行了)
Procedure TfrmEdit.ComMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Var
Var
SizeControl: TSizerControl;
Begin
SizeControl := TSizerControl.Create(self, TControl(Sender));
end;
不然在编程工具中的速度会如此只快,不管选中多少控件。
谢谢你提供的这段程序,应该比我设计的要好一些,我是把每个小方块设计成一个control对象了,可能数量多了创建和移动起来比较慢,因为光是control本身就有大量的代码需要执行。你这个控件我估计至少提高8倍速度。呵呵仔细观察了delphi的设计工具,发现他选择单个对象时,出现8个小方块如我所述,选择多个控件时候,小方块就变成在控件里面了。由此想到delphi可能并没有为每个控件创建一个选择标示,可能是在form上或者控件本身的设备上直接绘制的小方块,而不是一个真正的控件了。我再试试这样处理