首先我们建立一个过程,这个过程就是本程序的核心部份: procedure SetRing(value:word); stdcall; const ZDH =03;//设一个中断号varIDT:array[0..5]ofbyte;//保存IDT表OG:dword;//存放旧向量beginasmpushebxsidtIDT//读入中断描述符表movebx,dwordptr[IDT+2]//IDT表基地址addebx,8∗ZDH//计算中断在中断...
SetRing(strtoint('$'+inttostr(1742+(10-trackbar1.Position)*160))); 因为windows默认的值为$1742,所以我们把1742做为基数,又因为值越小越快,反之越慢的原理,所以写了这样一个公式,好了,这就是“变速齿轮”的一个Delphi+ASM版了(只适用于win9X),呵呵,试一下吧,这对你帮助会很大的,呵呵。 在win2000...
SetMetaFileBitsEx API 建立WINDOWS图元文件 SetMetaRgn API 将剪裁区选作图元区域 SetMiterLimit API 设置斜面接合长度 SetNamedPipeHandleState API 设置管道读取/阻塞模式,控制局部缓存 SetPaletteEntries API 设置彩色调色板和标志 SetParent API 改变父窗口 SetPixel API 设置像素颜色 SetPixelFormat API SetPixelV AP...
{ Call to SetForegroundWindow is required by API } SetForegroundWindow(IconMgr.HWindow); { Popup local menu at the cursor position. } GetCursorPos(Pt); TheIcon.FPopupMenu.Popup(Pt.X, Pt.Y); { Message post required by API to force task switch } PostMessage(IconMgr.HWindow, WM_USER,...
TTimer被用于简化调用WindowsAPI定时器函数SetTimer和KillTimer,简化处理WM_TIMER消息。在应用程序中一个TTimer组件对应一个定时器。定时器通过它的OnTimer事件执行。TTimer有一个Interval属性,它决定了OnTimer事件发生的频率。Interval和WindowsAPI的SetTimer函数的参数相对应。注意:全系统所能拥有的定时器的数量限制和系统...
edit1.SetFocus; end else close; end; end; 3. MESSAGEDLGPOS函数 调用MESSAGEDLGPOS函数,可以屏幕的指定位置显示信息对话框,其语法格式为: 变量=MESSAGEDLGPOS(信息内容,类型,按钮组,,HELPCTX,X,Y); 它比MESSAGEDLG只是多了一项功能,即具有X,Y显示位置坐标. ...
If a subsequent cursor position (set by the SetCursorPos function or the mouse) lies outside the rectangle, Windows automatically adjusts the position to keep the cursor inside the rectangular area. BOOL ClipCursor( CONST RECT *lpRect // pointer to structure with rectangle ); Parameters lprc Poi...
The editor now lets you set the line height as a multiple of the font size (e.g., 1.1). The Editor options are now a top-level entry in the IDE Options dialog instead of nested under User Interface. Delphi refactoring find items have been moved to a submenu: Search (main menu) > ...
使背景色的色彩加重或减少50dragcursor属性当鼠标按下时光标的形状dragmode属性按动的作用方式dropdowncount属性容许的显示数据项的数目editmask属性编辑模式enabled属性是否使标签呈现打开状态encodedate函数将年月日合成为日期格式encodetime函数将时分秒毫秒合成为时间格式endmargin属性末尾边缘eof函数对有类型或无类型文件测试...
hi, i know, this is a dummy question, but, how if i have edit1, edit2, edit3..., how can i set the mouse cursor to them, if i want it in edit5 for example...