弄一个图片,里面画个黑框,和button一样大,放在image里,拖到button上
onMouseDown时
image1.visible:=true;
button1.visible:=false;
onMouseUp时相反
onMouseDown时
image1.visible:=true;
button1.visible:=false;
onMouseUp时相反
解决方案 »
- TXT文件很大,如何快速把 文件后边的内容(比如txt最后100行)的数据读取出来呢?
- 麻烦高手!!!求教,会的高手请帮帮忙,希望能说清楚,不要只是说要怎么做,而帮我写出来,谢谢了!!!
- 插件问题
- 无论数据库有无数据下,使dbgrid初始化时显示10行,用作输入数据
- 普通高手可能解决不了‘’‘’‘’加分到300
- 帮助我测试,谢谢啦
- 怎样在DLL的函数中返回记录类型的数据?怎样定义?在调用的那边又是怎样定义和调用?请给我示例!
- 为什么BDE的DataBase不能连接Access2000数据库,只能连接Access97?
- 还请高手帮我?
- 请熟悉delphi内部或者了解比较多的人来看看这个问题!
- 动态数据表和动态SQL问题。请高手解决,多谢!
- y的x次方在delphi中如何实现?有没有这样的操作符或函数?
当选中按钮时,显示该按钮的区域框,显示区域框后可拖动按钮,也通过区域框可改变按钮的大小! 如:DELPHI窗体设计时,增加一个按钮后可改变按钮的位置,也可拖动按钮!!!,请教各位如何在程序中实现??????
当选中按钮时,显示该按钮的区域框,显示区域框后可拖动按钮,也通过区域框可改变按钮的大小! 如:DELPHI窗体设计时,增加一个按钮后可改变按钮的大小,也可拖动按钮!!!,请教各位如何在程序中实现??????
//运行期拖动一个控件************************************************************
//==============================================================================
procedure DragControl(WinControl: TWincontrol);
const SC_DRAGMOVE = $F012;
begin
ReleaseCapture;
WinControl.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
onMouseMove
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
procedure TForm_Main.MoveWinControl(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
DragControl(Sender as TWinControl);
end;
var
Form1: TForm1;
OldPos,CurrentPos:TPoint;
IsLeftDown:Boolean;
implementation
{$R *.DFM}
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
OldPos.x:=X;
OldPos.y:=Y;
if Button=mbLeft then
IsLeftDown:=True;
end;
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if IsLeftDown then
begin
CurrentPos.x:=X;
CurrentPos.y:=Y;
Button1.Left:=CurrentPos.x-oldPos.x+Button1.Left;
Button1.Top:=CurrentPos.y-OldPos.y+Button1.Top ;
end;
end;
procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
IsLeftDown:=False;
end;
2)调整大小我没有把握,不过我想应该可以实现的