摘要: this.WindowState = FormWindowState.Minimized;最小化this.WindowState = FormWindowState.Maximized;最大化 阅读全文
posted @ 2011-04-06 12:31 许明吉博客 阅读(607) 评论(0) 推荐(0) 编辑
摘要: procedure TForm1.SpeedButton2Click(Sender: TObject);beginsendmessage(form1.WindowHandle,WM_SYSCOMMAND,SC_ICON,0);//窗体最小化 任务栏中end;procedure TForm1.SpeedButton2Click(Sender: TObject);beginform1.WindowState := wsMaximized;//窗体最大化end;procedure TForm1.SpeedButton2Click(Sender: TObject);beginform1.WindowS 阅读全文
posted @ 2011-04-06 12:23 许明吉博客 阅读(14337) 评论(0) 推荐(0) 编辑
摘要: Var CRect:TRect; Width,Height:integer;Begin CRect:=Rect(10,10,50,60); Width:=WidthOf(CRect);//取宽度 Height:=HeighthOf(CRect);//取高度End; 阅读全文
posted @ 2011-04-06 09:46 许明吉博客 阅读(1154) 评论(0) 推荐(0) 编辑