主页
Top.Mail.Ru Yandeks.Metrika
论坛:“主要”;
当前存档:2004.07.18;
下载:[xml.tar.bz2];

向下

形式的联合运动。 找到类似的分支


Денис   (2004-06-23 01:20) [0]

同志们!
有人能够镇定而不会虚张声势地解释在移动其中一种或两种以上形式时,如何在屏幕上安排两种或多种形式的联合运动。
计时器选项消失了-太平常了。
我将不胜感激,也许会有所帮助。
丹尼斯。



GuAV ©   (2004-06-23 01:46) [1]

过程TForm1.FormMouseDown(发件人:TObject;按钮:TMouseButton; Shift:TShiftState; X,Y:整数); var DragForm:TForm; 开始 DragForm:= TForm.Create(无); DragForm.Visible:= True; DragForm.Top:=0; DragForm.Left:= 0; DragForm.ClientHeight:= Screen.Height; DragForm.ClientWidth:= Screen.Width; Form1.Parent:= DragForm; Form2.Parent:= DragForm; ReleaseCapture DragForm.Perform(WM_SYSCOMMAND,$ F012,0); Form1.Parent:= nil; Form2.Parent:= nil; DragForm.Release; 结束
歪歪扭扭,但想法是这样的:要在Api上执行此操作-创建一个透明窗口,将其粘贴并拖动该窗口。



GuAV ©   (2004-06-23 01:56) [2]


>歪

不是那个词...该选项被删除:(



Денис   (2004-06-25 01:23) [3]

谢谢你。
在这里给我一个:
类型
TfrmMain = class(TForm)
私立
过程OnMove(var Msg:TWMMove); 消息WM_MOVE;
结束;

过程TfrmMain.OnMove(var Msg:TWMMove);
开始
继承;
//这是您的代码,设置其他表单的坐标。
//例如
// tnewform.left:= tfrmmain.left-100;
// tnewform.top:=tfrmmain.top-100;

结束;

试试看,你。



Babay ©   (2004-06-25 07:39) [4]

也许这会做

对于第一种形式

TForm1 =类(TForm) ....... 过程WMMove(var Msg:TWMMove); 消息WM_MOVE; 结束 ........ 过程TForm1.WMMove(var Msg:TWMMove); 开始 如果未分配(Form2),则退出; //这里我们正在计算第二种形式的位置 form2.Top:= Form1.Top + Form1.Height; form2.Left:= Form1.Left; 结束

第二种形式

TForm2 =类(TForm) .... 过程WMMove(var Msg:TWMMove); 消息WM_MOVE; 结束 ...... 过程TForm2.WMMove(var Msg:TWMMove); 开始 如果未分配(Form1),则退出; //这里我们正在计算1表单的位置 form1.Top:= Form2.Top-Form1.Height; form1.Left:= Form2.Left; 结束

在此示例中,2表单位于第一个表单之下。 拖动任何形状都会导致在其后面拖动第二个形状



Babay ©   (2004-06-25 07:44) [5]

我道歉cheto看了
>丹尼斯(25.06.04 01:23)[3]
有人建议实际上是同一件事:-)



Денис   (2004-07-02 08:51) [6]

Babay,请回答:如果未分配(Form2)然后退出,该行是什么意思;我只是不明白分配的是什么,以及为什么必须退出(退出)。
在此先感谢。



begin...end ©   (2004-07-02 08:54) [7]


> [6]丹尼斯(02.07.04 08:51)

如果未创建表单,则退出。
尽管这不是一个非常正确的选择。



Денис   (2004-07-07 04:46) [8]

但是我们无法在创建表单之前移动它,为什么要处理WMMove?



NAlexey ©   (2004-07-07 09:13) [9]

>丹尼斯(25.06.04 01:23)[3]
> Babay©(25.06.04 07:39)[4]
我相信您的示例不会总是有效。 WM_MOVE是不够的。



Страницы: 1 整个分支

论坛:“主要”;
当前存档:2004.07.18;
下载:[xml.tar.bz2];

楼上





内存:0.58 MB
时间:0.051 c
1-1089216701
约翰尼生
2004-07-07 20:11
2004.07.18
关于TCanvas


4-1086362391
精灵
2004-06-04 19:19
2004.07.18
输出到视频内存


1-1088693556
代理[007]
2004-07-01 18:52
2004.07.18
循环...


1-1089101004
希什金伊利亚
2004-07-06 12:03
2004.07.18
目录选择


4-1086685199
MU
2004-06-08 12:59
2004.07.18
系统资源信息





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法语
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 淡米尔文 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский