2016 年 5月 21 日随笔档案 - lypzxy

2016年5月21日

摘要： procedure TForm2.ToolButton1Click(Sender: TObject); var frm: TForm; begin frm := TForm.Create(Application); frm.Parent := self.PageControl1.ActivePage; frm.Show; frm.BorderStyle := bsNone; ... 阅读全文

posted @ 2016-05-21 13:51 lypzxy 阅读(184) 评论(0) 推荐(0)

Screen Monitors

摘要： Screen Screen->MonitorCount Monitors Screen->FormCount Screen->Forms[I]->Name 阅读全文

posted @ 2016-05-21 11:45 lypzxy 阅读(185) 评论(0) 推荐(0)