Delphi 停靠技术的应用3(两个窗体停靠成PageControl样式, 分页停靠) 因为TPageControl组件重载了TWinControl组件的DoAddDockClient和DoRemoveDockClient方法,能过自动响应停靠动作添加新的也没,而当浮动被停靠的窗口后将自动的将先前创建的TTabSheet也没删除,我们不需要写代码,只要设定基本的属性就可以实现分页停靠的功能. 一.两个窗体停靠成PageControl样式的实例 1.基本步骤: 1>.先创建一个新窗体(Dockab

这几天我调试一个Delphi程序,总是无法断点按钮事件,像我这样的菜鸟断点按钮事件真心累啊.所以我分享一下我下断点的经验!希望新手们少走弯路!!   工具/原料   OD调试器 Delphi程序 方法/步骤     先用PEID查壳看看,发现是Delphi的程序,无壳(其实壳已经被我脱了)   这里需要用到一个断点按钮事件插件 将一下代码保存为”txt“文本格式: var Addr mov Addr,401000 loop: find Addr,#740E8BD38B83????????FF93

很多情况下,我们需要在程序中实现这样的功能:在自编写的程序里控制另外一软件中的某个按钮被按下.比如,有一天你在聊QQ时觉得烦了,那么就想写程序来帮你按下“发送”按钮,省得你自己一次次动手了.那么,这个想法怎样才能实现呢? 其实做法很简单,它只用两条Windows消息就能实现了.(当然,前提是你必须知道那个按钮的handle.我想这个对一般程序员来说简直是小菜一碟)这两条消息分别是:WM_LBUTTONDOWN和WM_LBUTTONUP.下面我给出一个简单的实例说明用法: procedure TF

procedure TForm1.FormActivate(Sender: TObject); var i: Integer; begin btn8.Enabled:=False; do begin Sleep(); btn8.Caption := Format('请认真查看(%d)', [I]); //ShowMessage(IntToStr(i)); then btn8.Enabled:=True; Application.ProcessMessages; end; end; Applica

1.使最小化按钮变灰:setwindowlong(handle,gwl_style,getwindowlong(handle,gwl_style)   and   not   ws_minimizebox  ); 2.使最大化按钮变灰:setwindowlong(handle,gwl_style,getwindowlong(handle,gwl_style)   and   not   ws_maximizebox); 3. 关闭按钮变灰色 EnableMenuItem(GetSystemMen

c++ DLL 文件,建议用最简单的c++编辑工具.不会加入很多无关的DLL文件.本人用codeblocks+mingw.不像 VS2010,DLL编译成功,调用的时候会提示缺其他DLL. 系统生成的main.h和main.cpp #ifndef __MAIN_H__ #define __MAIN_H__ #include <windows.h> /* To use this exported function of dll, include this header * in your pro

最近,tms 经过1年多,集合了数十名高手大牛,开发出了一个跨时代的产品,就是tms web core. 具体的介绍详见官网,https://www.tmssoftware.com/site/tmswebcore.asp. 这个产品可以把pascal 代码编译成 js 代码,以便浏览器识别.不同于以往的用js 映射 delphi 代码. 这个是真编译,也就是说,编译出来的js 代码,可以在任何web server 里运行,与delphi 没任何关系. 这个编译器是著名的FPC 的核心开发者开发的

如果你使用messagedlg(对showmessage也适用)可以汉化定义按钮caption的常量,具体操作步骤如下: 1.   打开文件consts.pas(在Delphi安装目录的/source/vcl下)        2.   将以下资源字符串常量的值进行改动:               SMsgDlgWarning   =   '警告';           SMsgDlgError   =   '错误';           SMsgDlgInformation   =   '信

Delphi做程序开发在使用到列表控件时,一般是列表放文本内容,在列表以外放操作按钮,选中列表某项再点按钮进行操作.现在Web开发做列表的样式总是列表的每行都有操作按钮,如微博的列表风格: Web开发常用这种风格,一来是用户找操作按钮的移动距离近,二来制作上也不麻烦,不过CS程序开发就很少能找到现成的控件可用了. 最近正好要做个类似的控件,虽然不是微博风格,但都是在列表上放按钮放图片的样式,做完之后总结了一下感觉列表上放神马已经都不在话下了,分享一下开发经验. 我们可以使用TListBox控件来

delphi按钮控件的default属性用于设置默认命令按钮,.设置为true时,按[Enter键]相当于用鼠标单击了该按钮 .窗口中如果有多个按钮的default是true的话,就根据tabindex顺序来决定是哪个来响应enter ,修改其TabIndex=0即可.这个用于密码登录页面比较人性化.

本问题由 delphi 学友QQ群中一位群友提出,个人觉得是一个好问题. 本教程源码下载 本教程面向新手,希望大家能从中学到除了本功能之外的真正编程技能. 本功能的实现原理,用窗口当对话框的界面,在界面上放两个TButton,再放一个TLabel用于显示信息,但要阻止键盘操作按钮,需要对按钮进行处理.详细说明在源代码中. 以下是新手教程 a) 去掉 TFrmMsgBox 中的全局变量: 菜单 Project ---> Options... ,或者按 ctrl + shift + f11 组合键,

delphi按钮有TButton和TBitButton,而TButton不支持换行,TBitButton支持 拖拽TBitButton按钮以后,按alt+F12进入找到TBitButton的caption属性,在需要换行的地方添加#13即可

Delphi中 为DBNavigator的按钮加中文 /*Delphi中数据库控件DBNavigator使用起来不错,但是按钮上“+”.“-”等含义对于中国的用户不习惯,甚至不知道是什么含义.改成相应含义的汉字表示出来 */   unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, ExtCtrls

如果您创建的应用程序是运行在Windows 98或更高版本操作系统上,您可以通过调用API函数FlashWindowEx并赋给它一个FlashWInfo结构体来实现.  而如果是运行在Windows 95上则比较麻烦,但您也可以通过使用一个Timer组件来实现想要的效果. FlashWindowEx 当您调用API函数FlashWindowEx时,一个TFlashWInfo被用来控制Windows实现该闪烁功能的信息.  幸运的是,Delphi已经为您封装了该结构体.Delphi中它被申明如下:

下面我们就讨论一下在delphi中如何给窗口的标题栏上添加新的按钮. 一.实现起来要定义以下过程: 1. 定义DrawCaptButton过程,这个过程的功能是在指定的位置画出按钮. 在过程中要使用win32函数GetSystemMetrics得到窗口的大小和标题按钮的大小:使用delphi函数Bounds定义一个矩形,这个矩形就是新按钮的位置:再定义一个小的矩形,这个矩形是为了填写文本:最后就调用delphi中比较有用的函数drawbuttonface把按钮画出来. 2. 每次我们对窗口进行操

使用FlashWindowEx函数: 一.设置FlashWInfoDelphi中TFlashWInfo申明如下:TypeTFlashWInfo = record cbSize : LongInt; hWnd : LongInt; dwFlags : LongInt; uCount : LongInt; dwTimeout : LongInt;end;例:varFWinfo: TFlashWInfo;beginFWinfo.cbSize := 20;FWinfo.hwnd := Applicati

看你要做什么,比较现在网络很流行的QQ.MSN这些软件都屏蔽了,你可能还可以访问一些小软件的这些控制,思路及方案如下(API函数自己去百度查一下)1.得到你要这个窗口的句柄 使用FindWindow2.利用枚举函数EnumChildWindows把这个窗口里的所有文本框.按钮找到,并得到其句柄,EnumChildWindows需要一个回调函数,你可以在回调函数中把模拟输入,单击双击这些操作加上去 3.在回调函数里,其实就是向你找到的按钮或文本框发送消息消息说明:比如得到文本框中的文字消息:WM_

第一种方法是设置窗体的BorderIcons/biMaximize属性为False,这种方法仅让窗体的最大化按钮灰掉: 第二种方法是设置窗体的BorderStyle属性为bsDialog,这种方法使最大化,最小化按钮都不可见,并且不能调整窗体大小.

最大化按钮不可用,而且窗体最大化,我以前一直这样设置:在Object Inspector下把BorderIcons属性下的biMaximize属性设置为False,然后把WindowState属性设置为wsMaximized,结果是窗体的最大化按钮的确是隐藏了,窗体也最大化了,但是窗体也遮盖住了任务栏! 网上也有很多人来讨论这个问题的,也有人说窗体的ALign 属性为 alClient同时窗体WindowState属性要设置为wsNormal就可以了:这样看起来的确是最大化了,但是窗体还是有点边

procedure TfrmMain.btnSendClick(Sender: TObject); var hCalc, h1: Cardinal; begin WinExec('calc', SW_SHOWNORMAL);//运行计算器 hCalc := FindWindow('SciCalc', nil); //查找计算器主窗口句柄,通过Spy++可查看到类名等 h1 := FindWindowEx(hCalc, 0, 'Button', '9'); //查找按钮1的句柄,通过Spy++可查