招聘Delphi程序員
：
职务名称：Delphi软件设计师 工作内容：负责软件开发与设计 工作地点：广州 学 历：大专以上 条 件： 1. 熟Delphi； 2. 有工作主动性与责任心，具有良好的团队合作精神，认真负责。 3. 开发经验两年以上及熟C++ Builder、曾任职于财经软件公司者优先录用。• 薪资制度：每位新进员工工作满一个月、三个月、再满一年者皆给予调薪。工資依個人能力2k--6k。• 社会保险：职工可享受养老、医疗、工伤、失业、生育共5项社会保险。 • 工作环境：人性化的...
廣州全太招聘Delphi程序員
职务名称：Delphi软件设计师 工作内容：负责软件开发与设计 工作地点：广州 学 历：大专以上 条 件： 1. 熟Delphi； 2. 有工作主动性与责任心，具有良好的团队合作精神，认真负责。 3. 开发经验两年以上及熟C++ Builder、曾任职于财经软件公司者优先录用。• 薪资制度：每位新进员工工作满一个月、三个月、再满一年者皆给予调薪。 • 社会保险：职工可享受养老、医疗、工伤、失业、生育共5项社会保险。 • 工作环境：人性化的工作环境，顺畅的升迁管道。 • 年终...
Delphi网络单元库
Delphi网络单元库 2007-04-08 22:27:05
unit net;interface uses sysutils ,windows ,dialogs ,winsock ,classes ,comobj ,wininet; //得到本机的局域网ip地址 function getlocalip(var localip:string): boolean; //通过ip返回机器名 function getnamebyipaddr(ipaddr: string; var macname: ...
類
/////////////////////////////////////////////透明的控件, 一般继承自TGraphicControl的(就是那些没有handle属性, 不能有focus的控件, 如image)都有Transparent属性. 对TWinControl类的控件, 要实现透明只要完成以下四步基本上就成了.1.在Create中设定ControlStyle :=ControlStyle - [csOpaque];)2. override 它的CreateParams方法, exstyle 里加上WS_EX_TRANSPARENT.3. 修改它的parent的windo...
StringGrid的对齐方式
如何改变StringGrid的对齐方式（默认为左对齐）？
procedure Tform1.SG1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);var CellStr:string; Mode:integer;begin if Arow=0 then //标题栏退出 exit; if ACol in [0,6,7,8,9] then //右对齐列 Mode:=DT...
TMemo append方法
Memo1 的 Lines 属性是一个 TStrings 对象, TStrings.Append 就是调用的 TStrings.Add, 所以它们没有区别;请用 "Ctrl+鼠标左键" 看看源码, 如下图:
append
功能说明：追加内容到文件中。文件必须要存在。 参考实例： var S: String; F: TextFile; begin S := 'This is a book.'; AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。 Append(F); // 以追加的方式打开文件 Writeln(F, S); // 将S变量中的内容追加到文本尾后。 CloseFile(F); // 关闭文件 end;
SendMessage API函数在PowerBuilder中应用
一、引言在Powerbulider巧妙地调用API函数SendMessage，可以完成Pb中的一些用常规的方法而很难实现的功能，特将对该api函数在Powerbuilder中的使用，例举几个方面的运用，以期起到抛砖引玉的效果(以下代码完全可以使用PowerBuilder中的Send函数替代SendMessage 这个Api函数，因起稿比较匆忙，代码未经测试)二、函数说明SendMessage函数说明:说明 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， SendMessageByString是该函数的“类型安全”声...
SendMessage
SendMessage
Public Declare Function GetDlgItem Lib "user32" Alias "GetDlgItem" (ByVal hDlg As Long, ByVal nIDDlgItem As Long) As Long 该函数检索指定的对话框中的控件句柄 如果函数调用成功则返回值为给定控件的窗口句柄。如果函数调用失败，则返回值为NULL，表示为一个无效的对话框句柄或一个不存在的控件。若想获得更多错误信息，...
SendMessage参数大全
TTreeView:(引用CommCtrl)SendMessage(TreeView.Handle,TVM_SETBKCOLOR,0,RGB(255,0,0)); 设置TV背景颜色SendMessage(Button.Handle,WM_LBUTTONDOWN,0,0); 鼠标左键按下SendMessage(Button.Handle,WM_LBUTTONUP,0,0); 鼠标左键抬起SendMessage(Edit.Handle,WM_SETTEXT,255,Integer(PChar('abc'))); 传递文本SendMessage(Edit.Handle,WM_Char...
sendmessage 参数
Windows是一个消息驱动式系统，SendMessage是应用程序和应用程序之间进行消息传递的主要手段之一，这里我搜集整理了SendMessage函数的详细参数介绍，以备自用。VFP声明:DECLARE INTEGER SendMessage IN user32; INTEGER hWnd,; INTEGER wMsg,; INTEGER wParam,; INTEGER lParam参数1：hWnd-窗口句柄。窗口可以是任何类型的屏幕对象。参数2：wMsg-用于区别其他消息的常量值.参数3：wParam-通常是一个与消息有关的常量值，也可能是窗口或控件的句柄....
Sendmessage or postmessage
Win32 API消息函数:SendMessage函数功能：该函数将指定的消息发送到一个或多个窗口。此函数为指定的窗口调用窗口程序，直到窗口程序处理完消息再返回。而函数PostMessage不同，将一个消息寄送到一个线程的消息队列后立即返回。 函数原型：LRESULT SendMessage（HWND hWnd，UINT Msg，WPARAM wParam，LPARAM IParam）； 参数： hWnd：其窗口程序将接收消息的窗口的句柄。如果此参数为HWND_BROADCAST，则消息将被发送到系统中所有顶层窗口，包括无效或不可见的非自身拥有的窗口、被覆盖...
利用RegisterWindowMessage在不同程序窗体间传递消息
这个例子讲述了如何在程序间传递消息，如何获得屏幕图形。代码如下，同时运行这两个程序，在form1中按下按纽，则在form2中会出现form1的图形。为简便，只列出窗体代码。-----------------------form1代码------------------------------unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: T...
什么是SDK
SDK是Software Development Kit的缩写，中文意思是“软件开发工具包”。这是一个覆盖面相当广泛的名词，可以这么说：辅助开发某一类软件的相关文档、范例和工具的集合都可以叫做“SDK”。具体到我们这个系列教程，我们后面只讨论广义 SDK 的一个子集——即开发 Windows 平台下的应用程序所使用的 SDK。
其实上面只是说了一个 SDK 大概的概念而已，理解什么是 SDK 真有这么容易吗？恐怕没这么简单！为了解释什么是 SDK 我们不得不引入 API、动态链接库、导入库等等概念。^_^，不要怕，也就是几个新的名词而已，我也是到了大学快结束的时...
Delphi的四舍五入函数Round有BUG
Delphi的四舍五入函数Round有BUG，无法正常工作。
对于XXX.5的情况，整数部分是奇数，那么会Round Up，偶数会Round Down，例如：
x:= Round(17.5) = x = 18
x:= Round(12.5) = x = 12
请使用下面的函数代替Round：
function DoRound(Value: Extended): Int64;
procedure Set8087CW(NewCW: Word);
asm
MOV Default8087CW,AX
FNCLEX
FLDCW Default8087CW
end;
con...
智能abc的的一个小小BUG
只要有任何一个程序在运行的状态下的可输入部分 调出智能abc。 输入v，再按一下↑，再按一下del键，之后按空格或者回车 该程序立即被杀死。
“BUG”的由来
“BUG”的由来： Bug一词的原意是“臭虫”或“虫子”。但是现在，在电脑系统或程序中，如果隐藏着的一些未被发现的缺陷或问题，人们也叫它“Bug”，这是怎么回事呢？ 原来，第一代的计算机是由许多庞大且昂贵的真空管组成，并利用大量的电力来使真空管发光。可能正是由于计算机运行产生的光和热，引得一只小虫子?Bug 钻进了一支真空管内，导致整个计算机无法工作。研究人员费了半天时间，总算发现原因所在，把这只小虫子从真空管中取出后，计算机又恢复正常。后来，Bug这个名词就沿用下来，表示电脑系统或程序中隐藏的错误、缺陷、漏洞或问题。 与Bug相对应，人们将发现Bug并加以纠正的过程叫做“Debug”...
測試
procedure Button1Click(Sender : TObject);
var
img : TBitMap;
begin
img := TBitMap.Create;
Try
img.LoadFromFile('bmp圖片的絕對地址')；
With image1 do
begin
Picture.Bitmap.Handle := img.Handle;
Update;
Refresh;
end;
Finally
img.Free;
end;
...
SetWindowtext函數
SetWindowText(Handle,'窗體標題說明');
Could not create output file *.*dcu 错误的解决办法
project -- options -- directories/conditionals里面： output directory: unit output directory: 看看设置是否和文件所在的目录一样。。。检查OUTPUT FILE PATH 的路径设置 检查OUTPUT FILE PATH是否有写权限 检查OUTPUT FILE PATH中的*.*是否有写保护
文章归档
最新评论
- aaron2008：<div class="quote"><span class="q"><b>vfdff</b>...
- vfdff：这个什么语言 ？VB？
- aaron2008：<div class="quote"><span class="q"><b>wuiqeirwj...
- wuiqeirwjehgf：我十分同意你的观点，我发现很多所谓的电脑高手根本就不了解计算机的本质是什么，他们只是懂得最浅层...