如题?
解决方案 »
- 寻找可以斜放的Panel组件?
- 各位高手帮忙啊!怎么样把一个DBGRID中被选中的多条记录复制另一个DBGRID中
- 我发现有些用Delphi做的Form界面像是Web一样,是怎么做的呢?
- D7是最好的開發環境,不同觀點的接分點評
- 请教哪里有DELPHI编程方面的培训班,地点在无锡,苏州,上海。
- 有木有找delphi7兼职做程序的啊?
- 用delphi怎么实现象word那样在编辑文本时插入图象,最好有代码,实在不行给个思路。
- 关于在delphi中用嵌入汇编取出cpu序列号的问题
- 在DELPHI中,我怎样用两个字符去替换一字符串中的任意相邻的两个字符?
- 关于DBGRID的问题
- Delphi 调用Webservice 接口出现内存泄露
- 正则表达式的问题
1、Edit Bingtofront 意思edit置上
2、mousedown中进行大小的改变;用drag动作改变位置
3、需要获取鼠标的位置来确定目标位置
mousepos_x,mousepos_y :integer;
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
mousepos_x := x;
mousepos_y :=y;
end;procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
move_x,move_y :integer;
begin
move_x := X- mousepos_x;
move_y := Y- mousepos_y; TButton(sender).left := TButton(sender).Top+move_x;
TButton(sender).top := TButton(sender).Top+move_y;end;
你用ScreenToClient\ClientToScreen转化下