2011 年 7月 20 日随笔档案 - 纯粹备忘

2011年7月20日

摘要：分别在FormCreate,FormKeyPress下编写一句代码就可以了如下:procedure TForm1.FormCreate(Sender: TObject);beginkeypreview:=true; //可以接收键盘操作end;procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);beginif key = #27 then application.terminate; //关闭程序end;#13 回车＃10换行#20为空格键盘常用ASCII码(delphi)键盘常用ASCII码(delphi) ESC键 V 阅读全文

posted @ 2011-07-20 16:34 纯粹备忘阅读(4244) 评论(0) 推荐(0)

delphi for循环

摘要： for i:=0 to 100 step 4 do begin ... end; 阅读全文

posted @ 2011-07-20 11:43 纯粹备忘阅读(3404) 评论(1) 推荐(0)

delphi建立mdi窗口多页面管理

摘要： Form1中加Panel1,Panel1的属性DockSite设为True,Form2的属性DragKind设为dkDock, DragMode设为dmAuromatic在Form1的OnShow中加：Form2:= TForm2.Create(self);Form2.ManualDock(Panel1, nil, alclient);form2.FormStyle:=fsStayOnTop;Form2.Show;如果是pagecontrolForm2.ManualDock(pagecontrol1, nil, alclient); 阅读全文

posted @ 2011-07-20 11:34 纯粹备忘阅读(2677) 评论(0) 推荐(0)

AdvPageControl或者pagecontrol 动态建立新页面

摘要： var tab1:TadvTabSheet;begin tab1:=TadvTabSheet.Create(self); tab1.Caption:='供应商资料'; tab1.AdvPageControl:=ap1;pagecontroltab1:=TTabSheet.Create(self); tab1.Caption:=timetostr(time); tab1.PageControl :=PageControl1 阅读全文

posted @ 2011-07-20 11:22 纯粹备忘阅读(723) 评论(0) 推荐(0)

左键双击关闭pagecontrol中的一个分页即一个tabsheet,功能像遨游浏览器一样

摘要：左键双击关闭pagecontrol中的一个分页即一个tabsheet,功能像遨游浏览器一样procedure TfrmServerSetup.PageControl1MouseDown(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer);varIndex: Integer;begin//左键点击并且双击if (Button = mbLeft) and (ssDouble in Shift) thenbeginIndex := PageControl1.IndexOfTabAt(X, Y);if Ind 阅读全文