翻新时间：2013-12-14
在Delphi中巧用Windows 的API函数
在Delphi中巧用Windows 的API函数
潘汉杰
河南金融管理学院计算机教研室
应用之一：Delphi中有控件MEMO，当使用应控件输入内容或编辑时，如何确定光标当前的位置呢？这时就可以调用Windows API函数中的EM_LINEFROMCHAR和EM_LINEINDEX消息来确定MEMO控件中光标的当前行和列，具体调用方法的过程如下：
procedure TForm1.Button1Click(Sender: TObject);
var
LineNum:longint;
CharsBeforeLine:longint;
begin
LineNum := SendMessage(Memo1.Handle,EM_LINEFROMCHAR,
Memo1.SelStart,0);
CharsBeforeLine:=SendMessage(Memo1.Handle,EM_LINEINDEX,
LineNum,0);
Label1.Caption:='Line: ' IntToStr(LineNum 1);
Label2.Caption:='Position: ' IntToStr((Memo1.SelStart -
CharsBeforeLine) 1);
end;
应用之二：Delphi中的控件TlistBox没有提供水平滚动条，如果想添加一个水平流动条，我们只需使用API函数给TListBox 发送一个LB_SetHorizontalExtent消息就行了。
源代码如下：
longint(0));
应用之三：当我们需要获取所运行程序的计算机的分辨率时，有二种方法：①可以通过访问Delphi提供的SCREEN全局变量，即SCREEN.WIDTH和SCREEN.HEIGHT以像素点给出屏幕的分辨率。②利用WINDOWS的API函数GetDeviceCaps
下载文档
网友最新关注
- 甜蜜的梦
- 三英战小狗
- 喜迎新学期
- 比童年
- 失败是成功之母
- 春天来了
- 动物应聘
- 无头苍蝇
- 种太阳
- 放烟花
- 鸡蛋布丁
- 《绿野仙踪》读后感
- 可爱的嘟嘟
- 有益的动物
- 难忘的一件事
- 中心学习小组学习实施方案
- *建设局招商引资工作方案
- 物业公司消防安全知识竞赛方案
- #局党组开展保持先进性教育主题活动的实施方案
- 城市客运秩序整治实施方案
- *办事处“三级联创”工作方案
- “金秋涌起博湖潮”大型晚会策划方案
- “青春飞扬”校园科技文化艺术节活动方案
- 2005年人大建议、政协提案办理工作方案
- 2004年城南镇联动中心工作方案
- XX市旅游局旅游网网站模块DMS项目拓展方案
- **电力"三位一体"企业文化建设实施方案
- 纪念建党83周年活动方案
- 街道党建"三级联创"实施方案
- 村民委员会换届选举工作实施方案
- 浅析舒伯特歌曲的时代内容
- 对于学生音乐欣赏能力的培养探析
- 幼儿音乐舞蹈教学模式的探索
- 二胡的气功态演奏之己见
- 音乐教学中如何培养学生的听力
- 论古筝学习的现状
- 谈高中音乐教学中音乐鉴赏能力的培养
- 小学音乐有效教学探索
- 浅析中国音乐史上的文化交流
- 高校音乐教师在现代数字环境下的应对和提升
- 开创现代古筝演奏法先河
- 运用打击乐器培养幼儿音乐节奏感的策略
- 声乐教学中的感觉与知觉
- 幼师打击乐教学的实践探索
- 浅谈音乐赏析让音乐走入学生的心灵
- 《葡萄沟》教学设计
- 《称象》教学设计之一
- 《难忘的泼水节》教学设计
- 《称象》
- 《要下雨了》教案设计
- 《画家和牧童》教学设计
- 《四个太阳》教学设计
- 《爱迪生救妈妈》第一课时说课材料
- 《和时间赛跑》教学设计
- 《小小竹排画中游》第一课时教学设计
- 《丑小鸭》教学设计之一
- 《雷雨》教学设计
- 《日月潭》教学设计
- 《称象》 四步程序式教学设计
- 《丑小鸭》教学设计之三