//Screen.Cursor := crHourGlass;//忙 //Screen.Cursor := crDefault;//不忙时

procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState;   X, Y: Integer); var   Node: TTreeNode; begin   with TreeView1 do   begin     Node := GetNodeAt(X, Y);     ShowHint := (Node <> nil);     if ShowHint then     begin       Hint

delphi修改QQ快捷方式的目标地址达到在启动QQ的同时也能运行自己想要启动的EXE可执行文件. 直接上代码,自已体会 !! Unit1.pas代码如下: unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCt

Delphi 修改新建窗体时候的默认字体格式 操作步骤: 1.运行输入“regedit” 2.找到目录(这里默认以Delphi 7为例) HKEY_CURRENT_USER\Software\Borland\Delphi\7.0 3.新建项名为“FormDesign”的项,在下面新建一个字符串值:名称:DefaultFont 值为例如:微软雅黑,10 注意:这个FormDesign 不是原来的 Form Design,没有空格 图例以下:        创建时间:2019.12.19 来源:ht

delphi 的IDE快捷键与输入法切换键中突,以往的解决方法是下载一个ImeTool修改 windows 系统的快捷键 在 xp win7 都好使,但在win 10经常是修改完后,重启又失效了. 本方法采用 Open Tools API 编写是一个组件.安装方法: 菜单-->Component -->install Component 然后选择此本单元,然后就瞎折腾吧.就好了. 源码下载 unit EagleBufferList; interface procedure Register;

delphi 的IDE快捷键与输入法切换键中突,以往的解决方法是下载一个ImeTool修改 windows 系统的快捷键 在 xp win7 都好使,但在win 10经常是修改完后,重启又失效了. 本方法采用 Open Tools API 编写是一个组件.安装方法: 菜单-->Component -->install Component 然后选择此本单元,然后就瞎折腾吧.就好了. 源码下载 unit EagleBufferList; interface procedure Register;

在Delphi代码编辑器中使用Ctrl+鼠标左键可跳转到鼠标下的类所在的定义处,但今天发现一个奇怪的问题,EhLib组件的类无法跳转(包括uses中的pas文件),重新安装也是如此,后来经过验证,发现有些组件可跳转,有些则不可,比如EhLib.ReportMachine不可,但FastReport和有些组件却可以,在Delphi IDE中查看半天,也百思不得其解,希望有知情者高手指教! Library Path我早已加上,用的所有组件都是有源码的,可以打开查看,组件本身可以正常使用. 一般跳转不

在mac 上玩习惯了,使用windows 时的鼠标实在觉得别扭,在网上百度了一下,找到一个方法,这里记录一下 1 打开windows 的控制面板,点击“硬件和声音” 2 点击“鼠标” 3 然后点击上面的“硬件” 4 选择“设备”的一个,因为我也不知道哪个对应的是我的鼠标,所以先找一个来试,如果后面设置后没有生效,再选择一个设备来操作吧 选择一个设备,点击“属性” 5 点击“详细信息” 然后在“属性”里选择“设备实例路径“ 将”值“ 记录下来,或者不要关闭这个窗口,等一下有用 6 用root 权限

http://blog.csdn.net/nerdy/article/details/8702568 虽然indy有一身的毛病,但是一般情况下使用起来还是多方便的. 今天在做一个使用到indy的程序的时候,发现无论你怎么修改idhttp.request.accept-encoding,他都会在其后添加一个值 identity,追查了下源码,发现indy在源码中强行的添加了它,虽然说修改他的意义并不是很大,但是被强迫的感觉真心不好,正好也借此文说明一下,如何重新编译并更新编译过的组件单元(.dcu

响应窗体的 OnSetCursor 消息响应 鼠标移动到某空间时改变 形状 BOOL CQQBulkDlg::OnSetCursor(CWnd* pWnd, UINT nHitTest, UINT message) { // TODO: 在此添加消息处理程序代码和/或调用默认值 // TODO: 在此添加消息处理程序代码和/或调用默认值 CPoint pos; GetCursorPos(&pos);  //获取当前鼠标位置 CRect rc; GetDlgItem(IDC_Link)->Ge

在鼠标的MouseWheel事件里写入以下内容 if WheelDelta < 0 then    SendMessage(scrollBox1.Handle, WM_VSCROLL, SB_LINEDOWN, 0) //向下滚  else    SendMessage(scrollBox1.Handle, WM_VSCROLL, SB_LINEUP, 0); //向上滚 即可响应鼠标滚轮

//修改Hint的字体和颜色   public    { Public declarations }    procedure Sshowhint(var hintstr:string;var canshow:Boolean;var HintInfo:THintInfo);procedure TForm1.FormCreate(Sender: TObject);begin  form1.Hint:= '改变提示栏';  form1.ShowHint:=true;  Application.OnS

//提示:此代码需要use Registry, Common; function WriteMAC(model:integer):integer; var reg:TRegistry; begin reg:=TRegistry.Create; //创建注册表对象 reg.RootKey:=HKEY_LOCAL_MACHINE; //指定注册表根为HKLM if reg.OpenKey('\System\CurrentControlSet\Control\Class\ {4D36E972-E325

procedure MSGEnter(var msg:TMessage);message CM_MOUSEENTER;//响应进入的消息 procedure MSGLeave(var msg: TMessage);message CM_MOUSELEAVE;//响应离开的消息 procedure Button1Click(Sender: TObject); procedure tbStatusToolBarMouseMove(Sender: TObject; Shift: TShiftState

procedure TForm1.ModifySysdate(D: Double); var systemtime:Tsystemtime; DateTime:TDateTime; begin SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, 'yyyy:MM:dd'); Application.UpdateFormatSettings := False; DateTime:=Now+d; DateTimeToSystemTime(D

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ImgList, ComCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Button2: TButton; Button3: TButton; Butto

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls,FileCtrl,ShellAPI; type  TForm1 = class(TForm)    Button1: TButton;    Memo1: TMemo;    procedure Button1Click(Sender: TObject);

难倒是不难. 除去eventtrigger之外还有别的触发器可以实现. 这个主要是难在对xaml的数据理解上. 代码实现 <Button Content=" > <Button.Triggers> <EventTrigger RoutedEvent="MouseMove"> <BeginStoryboard> <Storyboard> <ObjectAnimationUsingKeyFrames Duratio

最近,在做一个控件的鼠标样式,Ps加了插件,可以编辑生成.cur格式的图标. 可是,所有的改完以后,调试运行,结果发现自己制作的图标的作用点总是在左上角,而不是在"手形"图标的食指上.. 所以,问题来了,怎么修改鼠标样式的作用点呢?百度半天无果,自己琢磨半天,cursor这个东东没有什么可以使用的其它属性. 后来,在逛StackOverflow的时候,偶然发现了一个提问,找到点有用的东西: 原地址:http://stackoverflow.com/questions/46805/cus

先人的DELPHI基础开发技巧 ◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false); ◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件.DragOver事件.EndDrag事件实现,例如在PANEL上的LABEL: var xpanel,ypanel,xlabel,ylabel:integer; PANEL