如何在Delphi中实现在运行时动态用鼠标修改控件的大小，位置改变已经解决.高分！
如何在Delphi中实现在运行时动态用鼠标修改控件的大小和位置。
位置改变已经解决.
最好提供点源码，本人加分100！！！
多谢！！！
问题点数：120、回复次数：39Top
1 楼Hillside（河东河西）回复于 2001-08-01 13:32:08 得分 2
1.给控件加边界,上下左右和4个角,赋予不同的鼠标形状.
2.给这些边界定义OnMouseMove事件,用Canvas.DrawFocusRect画虚框
3.定义OnMouseUP事件,根据鼠标位置更新控件大小.
我手头的项目有这一部分,但不在手头,如果需要只能明天提出来(和其它代码掺在一起)Top
2 楼小星星（小星星）回复于 2001-08-01 13:35:48 得分 0
好呀，早点给我呀，我急用，要求客户可以自定义界面，我给你100分，其他的20作为别人的参与分！！！多谢！！
Top
3 楼MouseBrother（）回复于 2001-08-01 14:59:40 得分 2
让用户自定义界面，你让用户使用那几种控件。
怎么给用户定义的界面设定事件。Top
4 楼dana（dana）回复于 2001-08-01 15:04:47 得分 2
帮你upTop
5 楼chechy（www.qdocuments.net）回复于 2001-08-01 15:09:42 得分 100
我以前写过的一个控件，你可以参考一下吧。
unit CcDrag;
interface
uses
Windows, SysUtils, Classes, Graphics, Controls, Forms;
type
TMousePosition = (mpNone, mpRightBottom, mpRight, mpBottom);
TCcDrag = class(TGraphicControl)
private
{ Private Declarations }
FMouseDown: Boolean;
FDownPt: TPoint;
FMousePos: TMousePosition;
FOldWidth: Integer;
FOldHeight: Integer;
FLtdControl: TControl;
FAssignControl: Boolean;
FBoundsRect: TRect;
FFixSize: Boolean;
FFixHeight: Integer;
FFixWidth: Integer;
procedure SetLtdControl(const Value: TControl);
procedure AdjustControlBounds(const ABoundsRec: TRect);
procedure SetControlBounds(const ABoundsRect: TRect);
procedure SetFixSize(const Value: Boolean);
protected
{ Protected Declarations }
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); override;
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); override;
procedure Paint; override;
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
// Big Z Add This Procedure
// 避免在限制边缘拖动时的闪烁，使其表现更好！
procedure AdjustPosition(const OffsetX, OffsetY: Integer); virtual;
public
{ Public Declarations }
constructor Create(AOwner: TComponent); override;
published
{ Published Declarations }
property LtdControl: TControl read FLtdControl write SetLtdControl;
// Big Z Add This 2000.07.21 10:20
// 增加一个属性，是否可以改变大小
property FixSize: Boolean read FFixSize write SetFixSize;
property Width default 90;
property Height default 120;
property Align;
property Anchors;
property Constraints;
property DragCursor;
property DragKind;
property DragMode;
property Enabled;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property Visible;
property OnClick;
{$IFDEF VER130}
property OnContextPopup;
{$ENDIF}
property OnDblClick;
property OnDragDrop;
property OnDragOver;
property OnEndDock;
property OnEndDrag;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnStartDock;
property OnStartDrag;
end;
implementation
const
OFFSET = 5;
procedure TCcDrag.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y:
Integer);
begin
{Method implementation code}
inherited MouseDown(Button, Shift, X, Y);
if Button = mbLeft then
begin
FMouseDown := True;
FDownPt := Point(X, Y);
FOldWidth := Width;
FOldHeight := Height;
if Assigned(FLtdControl) then
FBoundsRect := FLtdControl.BoundsRect;
if FMousePos = mpNone then
Screen.Cursor := crDrag;
end
end; {MouseDown}
procedure TCcDrag.MouseMove(Shift: TShiftState; X, Y: Integer);
var
OffsetX, OffsetY: Integer;
begin
{Method implementation code}
inherited MouseMove(Shift, X, Y);
if FMouseDown then
begin
OffsetX := X - FDownPt.x;
OffsetY := Y - FDownPt.y;
case FMousePos of
mpNone:
begin
{Left := OffsetX + Left;
Top := OffsetY + Top;
if FAssignControl then
AdjustControlBounds(FBoundsRect)}
// Big Z Modify Here 2000.07.21 11:18
AdjustPosition(OffsetX, OffsetY);
end;
mpRight:
begin
if FOldWidth + OffsetX > 0 then
Width := FOldWidth + OffsetX;
if FAssignControl then
SetControlBounds(FBoundsRect)
end;
mpBottom:
begin
if FOldHeight + OffsetY > 0 then
Height := FOldHeight + OffsetY;
if FAssignControl then
SetControlBounds(FBoundsRect)
end;
mpRightBottom:
begin
if FOldWidth + OffsetX > 0 then
Width := FOldWidth + OffsetX;
if FOldHeight + OffsetY > 0 then
Height := FOldHeight + OffsetY;
if FAssignControl then
SetControlBounds(FBoundsRect)
end
end;
end
else
begin
if (X >= Width - OFFSET) and (Y >= Height - OFFSET) then
begin
Cursor := crSizeNWSE;
FMousePos := mpRightBottom;
end
else if X >= Width - OFFSET then
begin
Cursor := crSizeWE;
FMousePos := mpRight
end
else if Y >= Height - OFFSET then
begin
Cursor := crSizeNS;
FMousePos := mpBottom
end
else
begin
Cursor := crDefault;
FMousePos := mpNone
end;
// Big Z Add This 2000.07.21 10:26
// 如果设定了 FixSize 属性，则尺寸的固定的值
if FFixSize then
begin
Cursor := crDefault;
FMousePos := mpNone
end
end
end; {MouseMove}
procedure TCcDrag.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y:
Integer);
begin
{Method implementation code}
inherited MouseUp(Button, Shift, X, Y);
FMouseDown := False;
Screen.Cursor := crDefault
end; {MouseUp}
constructor TCcDrag.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{Add any other initialization code here}
Width := 90;
Height := 120;
end; {Create}
procedure TCcDrag.Paint;
procedure PaintDot(X, Y: Integer);
begin
Canvas.Brush.Style := bsSolid;
Canvas.Brush.Color := clBlack;
Canvas.Pen.Style := psSolid;
Canvas.Pen.Color := clBlack;
Canvas.Pen.Mode := pmCopy;
Canvas.Rectangle(X - 2, Y - 2, X + 2, Y + 2);
end;
begin
inherited;
Canvas.Pen.Style := psDot;
Canvas.Brush.Style := bsClear;
Canvas.Pen.Color := clRed;
Canvas.Pen.Mode := pmNot;
Canvas.Rectangle(0, 0, Width, Height);
// Big Z Add This 2000.07.21 11:32
if not FFixSize then
begin
PaintDot(Width, Height shr 1);
PaintDot(Width shr 1, Height);
PaintDot(Width, Height)
end;
end;
procedure TCcDrag.Notification(AComponent: TComponent;
Operation: TOperation);
begin
inherited Notification(AComponent, Operation);
if (Operation = opReMove) and (AComponent = FLtdControl) then
FLtdControl := nil
end;
procedure TCcDrag.SetLtdControl(const Value: TControl);
begin
if FLtdControl <> Value then
begin
FLtdControl := Value;
FAssignControl := Assigned(Value);
if FAssignControl then
begin
FBoundsRect := Value.BoundsRect;
SetControlBounds(FBoundsRect);
end
end
end;
procedure TCcDrag.SetControlBounds(const ABoundsRect: TRect);
begin
if ABoundsRect.Left > Left then
Left := ABoundsRect.Left;
if ABoundsRect.Top > Top then
Top := ABoundsRect.Top;
if ABoundsRect.Right < (Left + Width) then
Width := ABoundsRect.Right - Left;
if ABoundsRect.Bottom < (Top + Height) then
Height := ABoundsRect.Bottom - Top
end;
procedure TCcDrag.AdjustControlBounds(const ABoundsRec: TRect);
begin
if ABoundsRec.Left > BoundsRect.Left then
Left := ABoundsRec.Left;
if ABoundsRec.Top > BoundsRect.Top then
Top := ABoundsRec.Top;
if ABoundsRec.Right < BoundsRect.Right then
Left := ABoundsRec.Right - Width;
if ABoundsRec.Bottom < BoundsRect.Bottom then
Top := ABoundsRec.Bottom - Height
end;
// Big Z Add This 2000.07.21 10:26
// 如果设定了 FixSize 属性，则尺寸的固定的值
// ----------------------------------------------------------------------------
procedure TCcDrag.SetFixSize(const Value: Boolean);
begin
if FFixSize <> Value then
begin
FFixSize := Value;
end;
end;
// Big Z Add This Procedure
// 避免在限制边缘拖动时的闪烁，使其表现更好！
procedure TCcDrag.AdjustPosition(const OffsetX, OffsetY: Integer);
begin
if not FAssignControl then
begin
Left := Left + OffsetX;
Top := Top + OffsetY;
Exit;
end;
if Left + OffsetX < FBoundsRect.Left then
Left := FBoundsRect.Left
else if Left + OffsetX + Width > FBoundsRect.Right then
Left := FBoundsRect.Right - Width
else
Left := Left + OffsetX;
if Top + OffsetY < FBoundsRect.Top then
Top := FBoundsRect.Top
else if Top + OffsetY + Height > FBoundsRect.Bottom then
Top := FBoundsRect.Bottom - Height
else
Top := Top + OffsetY;
end;
end.
Top
6 楼小星星（小星星）回复于 2001-08-01 15:13:27 得分 0
我的意思是说，在窗体上放几个text,button,label,用户可以随意改动他们的位置和大小的效果。还有一个我自己弄的Grid。组成了一个用户自定义报表的效果，然后我打印出来呀。就是这种效果。如果有人在明天之内给我好的答案或者源码，我加分，我还有2966分！！！！多谢各位大哥大姐。我是学生。在兼职呀。要求用Delphi5.X。
Top
7 楼小星星（小星星）回复于 2001-08-01 15:16:57 得分 0
多谢chechy(chechy),不管是否可以，先给你20分！！如果可以，我再给你加！！
我先试试。多谢你。我给你加了20。如果好的话，我接着加。我有的是分！Top
8 楼小星星（小星星）回复于 2001-08-01 15:18:23 得分 0
不好意思，分数加不上去，说总分不是120，算了，我最后一起给你加吧。Top
9 楼dingzhenhhy（霸王龙）回复于 2001-08-01 15:22:56 得分 2
别着急不难得
主要就是使用控件的 MouseDown();MouseUp();MouseMove();三个事件；同时用鼠标的各个形状作配合！
OnMouseDown();//用来置可拖动标志位
OnMouseMove();//拖动事改变控件尺寸程序
OnMouseUp();//由来取消可拖动标志位
Top
10 楼小星星（小星星）回复于 2001-08-01 15:30:27 得分 0
能不能提供点代码呀？这些方法我都知道，关键是怎么让控件尺寸改变呀。凡是参与者都有分。位置改变我已经写好了，就差改变大小的那个鼠标效果了，各位阿哥阿姐，帮忙哦。Top
11 楼小星星（小星星）回复于 2001-08-01 15:32:02 得分 0
位置改变我是利用窗体的ondragover事件写的。。。。Top
12 楼flypuma（飞豹）回复于 2001-08-01 15:57:02 得分 2
你有没有发现利用Form的OnDragOver事件的时候如果窗体上有其他控件（如一个TRichEdit），
你的鼠标移过去就没有事件发生了，同样如果你鼠标起始位置在要移动的控件中间位置，为鼠标
移出控件之前也是没有事件的，如果你看一下Delphi IDE上移动控件就可以比较出不同了。
要解决这个问题，最要不要用OnDragOver事件，用SetCapture捕获鼠标，然后响应OnMouseMove
事件，这样就可以在任何时候得到鼠标事件了（当需要响应WM_LBUTTONDOWN记录初始位置）。
控件尺寸改变就是用 Width,Height两个属性啊，关键还是要在WM_LBUTTONDOWN地时候记录
操作的类型，是移动还是改变大小（也就是根据鼠标的位置点了），当然我建议不要实时地
移动或改变大小，用一个虚线框，等放开鼠标的时候再移动和改变大小。Top
13 楼小星星（小星星）回复于 2001-08-01 15:59:33 得分 0
呵呵，说的很有道理，能不能弄点源码？？？多谢。Top
14 楼flypuma（飞豹）回复于 2001-08-01 16:20:20 得分 2
源码不要意思了，我也很忙啊，还要忙着回答其他问题挣分啊，呵呵.... 不过
如果你要操作的不是自己的控件而是TEdit，TButton这样的标准控件，我建议你
重载一下变成自己的控件比较方便，这样可以在里面增加OnMouseMove响应来控制
不同位置的鼠标形状，并且在选中的时候出现一个带黑点的虚线框啊...Top
15 楼flypuma（飞豹）回复于 2001-08-01 16:22:07 得分 2
哎呀上当了，你这120都已经有主了，不玩了呀Top
16 楼小星星（小星星）回复于 2001-08-01 16:30:27 得分 0
没有主呀，问题没解决呀，我还可以加分，你没看到我说我有2900多分吗？Top
17 楼chechy（www.qdocuments.net）回复于 2001-08-01 16:37:01 得分 0
我的代码难道不能解决问题吗？Top
18 楼小星星（小星星）回复于 2001-08-01 16:42:47 得分 0
不好改，不好意思.....你的控件改变大小好像只是设计时的改动呀。别人拿去用，放在窗体里，必须用程序让你的控件的大小和位置改变，你的代码才有用呀。
帮帮忙嘛。我开发Delphi的时间不长，不过VB很熟。Top
19 楼chechy（www.qdocuments.net）回复于 2001-08-01 16:51:56 得分 2
不会的，你难道没有运行吗？这个控件是为截取图片设计的，能在自动区域内移动，修改大小。Top
20 楼小星星（小星星）回复于 2001-08-01 16:53:42 得分 0
我直接办它拷贝了，放到程序中，不能运行，给我发源代码,littlestarXp@263.net
多谢，快下班了，祝你好运！！
Top
21 楼chechy（www.qdocuments.net）回复于 2001-08-01 17:01:12 得分 2
一行代码都不用写的啊，放到Form上就可以了。
这个控件的注册代码我写在其他文件里了，你自己加一下吧。
procedure Register;
begin
RegisterComponents('chechy', [TCcDrag]);
end;
控件一定要注册到Delphi环境中去。Top
22 楼小星星（小星星）回复于 2001-08-01 17:23:23 得分 0
我新建Component，将你的代码拷贝。。，然后修改，看看吧？
运行以后什么都看不到!!!，控件栏上没有你的控件！下面是代码
unit CcDrag;
interface
uses
Windows, SysUtils, Classes, Graphics, Controls, Forms;
type
TMousePosition = (mpNone, mpRightBottom, mpRight, mpBottom);
TCcDrag = class(TGraphicControl)
private
{ Private Declarations }
FMouseDown: Boolean;
FDownPt: TPoint;
FMousePos: TMousePosition;
FOldWidth: Integer;
FOldHeight: Integer;
FLtdControl: TControl;
FAssignControl: Boolean;
FBoundsRect: TRect;
FFixSize: Boolean;
FFixHeight: Integer;
FFixWidth: Integer;
procedure SetLtdControl(const Value: TControl);
procedure AdjustControlBounds(const ABoundsRec: TRect);
procedure SetControlBounds(const ABoundsRect: TRect);
procedure SetFixSize(const Value: Boolean);
protected
{ Protected Declarations }
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); override;
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); override;
procedure Paint; override;
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
// Big Z Add This Procedure
// 避免在限制边缘拖动时的闪烁，使其表现更好！
procedure AdjustPosition(const OffsetX, OffsetY: Integer); virtual;
public
{ Public Declarations }
constructor Create(AOwner: TComponent); override;
published
{ Published Declarations }
property LtdControl: TControl read FLtdControl write SetLtdControl;
// Big Z Add This 2000.07.21 10:20
// 增加一个属性，是否可以改变大小
property FixSize: Boolean read FFixSize write SetFixSize;
property Width default 90;
property Height default 120;
property Align;
property Anchors;
property Constraints;
property DragCursor;
property DragKind;
property DragMode;
property Enabled;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property Visible;
property OnClick;
{$IFDEF VER130}
property OnContextPopup;
{$ENDIF}
property OnDblClick;
property OnDragDrop;
property OnDragOver;
property OnEndDock;
property OnEndDrag;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnStartDock;
property OnStartDrag;
end;
procedure Register;
implementation
const
OFFSET = 5;
procedure Register;
begin
RegisterComponents('MySample', [CcDrag]);
end;
procedure TCcDrag.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y:
Integer);
begin
{Method implementation code}
inherited MouseDown(Button, Shift, X, Y);
if Button = mbLeft then
begin
FMouseDown := True;
FDownPt := Point(X, Y);
FOldWidth := Width;
FOldHeight := Height;
if Assigned(FLtdControl) then
FBoundsRect := FLtdControl.BoundsRect;
if FMousePos = mpNone then
Screen.Cursor := crDrag;
end
end; {MouseDown}
procedure TCcDrag.MouseMove(Shift: TShiftState; X, Y: Integer);
var
OffsetX, OffsetY: Integer;
begin
{Method implementation code}
inherited MouseMove(Shift, X, Y);
if FMouseDown then
begin
OffsetX := X - FDownPt.x;
OffsetY := Y - FDownPt.y;
case FMousePos of
mpNone:
begin
{Left := OffsetX + Left;
Top := OffsetY + Top;
if FAssignControl then
AdjustControlBounds(FBoundsRect)}
// Big Z Modify Here 2000.07.21 11:18
AdjustPosition(OffsetX, OffsetY);
end;
mpRight:
begin
if FOldWidth + OffsetX > 0 then
Width := FOldWidth + OffsetX;
if FAssignControl then
SetControlBounds(FBoundsRect)
end;
mpBottom:
begin
if FOldHeight + OffsetY > 0 then
Height := FOldHeight + OffsetY;
if FAssignControl then
SetControlBounds(FBoundsRect)
end;
mpRightBottom:
begin
if FOldWidth + OffsetX > 0 then
Width := FOldWidth + OffsetX;
if FOldHeight + OffsetY > 0 then
Height := FOldHeight + OffsetY;
if FAssignControl then
SetControlBounds(FBoundsRect)
end
end;
end
else
begin
if (X >= Width - OFFSET) and (Y >= Height - OFFSET) then
begin
Cursor := crSizeNWSE;
FMousePos := mpRightBottom;
end
else if X >= Width - OFFSET then
begin
Cursor := crSizeWE;
FMousePos := mpRight
end
else if Y >= Height - OFFSET then
begin
Cursor := crSizeNS;
FMousePos := mpBottom
end
else
begin
Cursor := crDefault;
FMousePos := mpNone
end;
// Big Z Add This 2000.07.21 10:26
// 如果设定了 FixSize 属性，则尺寸的固定的值
if FFixSize then
begin
Cursor := crDefault;
FMousePos := mpNone
end
end
end; {MouseMove}
procedure TCcDrag.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y:
Integer);
begin
{Method implementation code}
inherited MouseUp(Button, Shift, X, Y);
FMouseDown := False;
Screen.Cursor := crDefault
end; {MouseUp}
constructor TCcDrag.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{Add any other initialization code here}
Width := 90;
Height := 120;
end; {Create}
procedure TCcDrag.Paint;
procedure PaintDot(X, Y: Integer);
begin
Canvas.Brush.Style := bsSolid;
Canvas.Brush.Color := clBlack;
Canvas.Pen.Style := psSolid;
Canvas.Pen.Color := clBlack;
Canvas.Pen.Mode := pmCopy;
Canvas.Rectangle(X - 2, Y - 2, X + 2, Y + 2);
end;
begin
inherited;
Canvas.Pen.Style := psDot;
Canvas.Brush.Style := bsClear;
Canvas.Pen.Color := clRed;
Canvas.Pen.Mode := pmNot;
Canvas.Rectangle(0, 0, Width, Height);
// Big Z Add This 2000.07.21 11:32
if not FFixSize then
begin
PaintDot(Width, Height shr 1);
PaintDot(Width shr 1, Height);
PaintDot(Width, Height)
end;
end;
procedure TCcDrag.Notification(AComponent: TComponent;
Operation: TOperation);
begin
inherited Notification(AComponent, Operation);
if (Operation = opReMove) and (AComponent = FLtdControl) then
FLtdControl := nil
end;
procedure TCcDrag.SetLtdControl(const Value: TControl);
begin
if FLtdControl <> Value then
begin
FLtdControl := Value;
FAssignControl := Assigned(Value);
if FAssignControl then
begin
FBoundsRect := Value.BoundsRect;
SetControlBounds(FBoundsRect);
end
end
end;
procedure TCcDrag.SetControlBounds(const ABoundsRect: TRect);
begin
if ABoundsRect.Left > Left then
Left := ABoundsRect.Left;
if ABoundsRect.Top > Top then
Top := ABoundsRect.Top;
if ABoundsRect.Right < (Left + Width) then
Width := ABoundsRect.Right - Left;
if ABoundsRect.Bottom < (Top + Height) then
Height := ABoundsRect.Bottom - Top
end;
procedure TCcDrag.AdjustControlBounds(const ABoundsRec: TRect);
begin
if ABoundsRec.Left > BoundsRect.Left then
Left := ABoundsRec.Left;
if ABoundsRec.Top > BoundsRect.Top then
Top := ABoundsRec.Top;
if ABoundsRec.Right < BoundsRect.Right then
Left := ABoundsRec.Right - Width;
if ABoundsRec.Bottom < BoundsRect.Bottom then
Top := ABoundsRec.Bottom - Height
end;
// Big Z Add This 2000.07.21 10:26
// 如果设定了 FixSize 属性，则尺寸的固定的值
// ----------------------------------------------------------------------------
procedure TCcDrag.SetFixSize(const Value: Boolean);
begin
if FFixSize <> Value then
begin
FFixSize := Value;
end;
end;
// Big Z Add This Procedure
// 避免在限制边缘拖动时的闪烁，使其表现更好！
procedure TCcDrag.AdjustPosition(const OffsetX, OffsetY: Integer);
begin
if not FAssignControl then
begin
Left := Left + OffsetX;
Top := Top + OffsetY;
Exit;
end;
if Left + OffsetX < FBoundsRect.Left then
Left := FBoundsRect.Left
else if Left + OffsetX + Width > FBoundsRect.Right then
Left := FBoundsRect.Right - Width
else
Left := Left + OffsetX;
if Top + OffsetY < FBoundsRect.Top then
Top := FBoundsRect.Top
else if Top + OffsetY + Height > FBoundsRect.Bottom then
Top := FBoundsRect.Bottom - Height
else
Top := Top + OffsetY;
end;
end.
Top
23 楼chechy（www.qdocuments.net）回复于 2001-08-01 17:28:10 得分 0
注册代码是正确的。
有没有将这个控件Install到某个Package中？
Top
24 楼trainbox（rain）回复于 2001-08-01 17:44:07 得分 2
upTop
25 楼小星星（小星星）回复于 2001-08-01 17:51:40 得分 0
正在修改，好像代码有点问题，可能是拷贝时，有很多隐藏的字符。。Top
26 楼小星星（小星星）回复于 2001-08-01 17:55:10 得分 0
该好了，不过好像只能弄小，不能弄大呀，
Top
27 楼chechy（www.qdocuments.net）回复于 2001-08-01 17:57:24 得分 0
不会吧，我可没加限制。Top
28 楼小星星（小星星）回复于 2001-08-01 17:59:08 得分 0
多谢，我现在开始加分！！！
chechy(chechy) 100
其它的每个人1分，表示参与，表示感谢！！
Top
29 楼小星星（小星星）回复于 2001-08-01 18:00:04 得分 0
随便问一下chechy(chechy)，能不能改成Tlabel,Tedit???
Top
30 楼chechy（www.qdocuments.net）回复于 2001-08-01 18:03:05 得分 0
这个，一种是在相应的OnMouseMove，Down，Up里面写代码，另外就是象我这样写控件。
暂时我只能想到这些。Top
31 楼小星星（小星星）回复于 2001-08-01 18:04:08 得分 0
好的，多谢，给你加了102，多谢，有机会向你请教，我下班了，多谢！！！
Top
32 楼小星星（小星星）回复于 2001-08-03 16:57:10 得分 0
有Email吗？我以后好请教你呀？Top
33 楼chechy（www.qdocuments.net）回复于 2001-08-03 17:00:31 得分 0
我发到你的邮箱里面，可以吗？Top
34 楼winsomewang（winsome）回复于 2001-08-03 18:04:36 得分 0
我正在做一个控件,将其设置为其他控件控件的父窗体,就可以实现以上的功能了.不过可能还需要几天才能出来
Top
35 楼小星星（小星星）回复于 2001-08-04 20:04:11 得分 0
好的,发到littlestarXp@263.net里吧
多谢各位了
!!Top
36 楼dypher（dypher）回复于 2001-08-04 21:49:43 得分 0
还需要用ini文件或数据库保存控件位置和大小Top
37 楼小星星（小星星）回复于 2001-08-04 23:48:57 得分 0
这个好办，存入数据库好说
有没有人有可以合并和打印StringGrid的代码？给我发,我家分，并且提供源代码Top
38 楼hety（King Of Java）回复于 2001-08-05 14:29:14 得分 0
去找一个叫做XLSheet的控件可以实现!!(还要写程序哦)Top
39 楼小星星（小星星）回复于 2001-08-05 21:32:53 得分 0
为了好维护,最好有源代码.Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
