我想在点击窗体右上角最小化事件中写代码,应该怎么写?请大侠赐教! 我采用的是主从窗体系统,我想在子窗体最小化时,把最小化的窗体放在特定的位置,应该写在那个事件里,代码如何写? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure OnMin(var msg:TWMSYSCOMMAND);message WM_SYSCOMMAND;procedure TForm1.OnMin(var msg: TWMSYSCOMMAND);begin if msg.CmdType=SC_MINIMIZE then begin form1.Left:=100; form1.Top:=200; form1.Width:=150; form1.Height:=20; end;end; lovelymelon: 我想改变的是最小化的窗体,现在缩小后没有办法变大了. 请教内存释放的问题 如何查詢某個部門的所有員工?一個廠分成多個部門,部門下又有子部門,子部門下又用下級子部門.......... 怎么判断一个access数据库中的表是否存在? 我是初学者请问该句该写在单元文件中的什么位置?在线等候! delphi 中有静态变量吗?如果有怎样定义,如果没有,有什么办法取代静态变量? 如何判断一个TImageEnDBView有没有图像? 请问那有播放mp3的控件,并且可以显示光谱,谢谢! 我是菜鸟,希望高手们来拿我的分 進來看一看,100分可能就是你的了............... 专业报刊杂志统计 哪里有 FastReport 的下载!! CSDN的问题
begin
if msg.CmdType=SC_MINIMIZE then
begin
form1.Left:=100;
form1.Top:=200;
form1.Width:=150;
form1.Height:=20;
end;
end;
我想改变的是最小化的窗体,现在缩小后没有办法变大了.