会员
周边
众包
新闻
博问
闪存
赞助商
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
零·红蝶
博客园
|
首页
|
新随笔
|
新文章
|
联系
|
订阅
|
管理
2015年2月5日
屏幕分辨率
摘要: SCREEN.WIDTHSCREEN.HEIGHT
阅读全文
posted @ 2015-02-05 17:06 零·红蝶
阅读(125)
评论(0)
推荐(0)
编辑
获取鼠标坐标
摘要: 1 procedure TForm1.FormClick(Sender: TObject);2 var3 P: TPoint;4 begin5 GetCursorPos(P);6 Self.Caption := Format('X: %d, Y: %d',[P.X, P.Y]);7 en...
阅读全文
posted @ 2015-02-05 17:04 零·红蝶
阅读(114)
评论(0)
推荐(0)
编辑
不存在的主窗体(自始至终隐藏)
摘要: 最近做一个小程序没有固定的主窗体,流程随机性比较大所以找寻相应的方案解决方法如下 1 program Project1; 2 3 uses 4 Forms, 5 Unit1 in 'Unit1.pas' {Form1}, 6 Unit2 in 'Unit2.pas' {Form2}; ...
阅读全文
posted @ 2015-02-05 10:12 零·红蝶
阅读(201)
评论(0)
推荐(0)
编辑
公告