摘要: 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 阅读(181) 评论(0) 推荐(0) 编辑
摘要: Screen Screen->MonitorCount Monitors Screen->FormCount Screen->Forms[I]->Name 阅读全文
posted @ 2016-05-21 11:45 lypzxy 阅读(175) 评论(0) 推荐(0) 编辑