(*)Form淡出
1)AnimateWindow(Form1.Handle,1000,AW_BLEND);//淡入
AnimateWindow(Form1.Handle,1000,AW_HIDE or AW_BLEND);//淡出
2)窗体有AlphaBlend属性和AlphaBlendValue属性，将AlphaBlend属性设为True，然后在Timer组件中随着时间改变AlphaBlendValue的值（0-255）即可
AlphaBlendValue:=1;//窗体透明
(*)捕捉Form最小化
定义一个过程
public
procedure onminsize(var msg:twmsyscommand);message wm_syscommand;
procedure TForm1.onminsize(var msg: twmsyscommand);
begin
if msg.CmdType=SC_MINIMIZE then
begin
form1.Width:=100;
form1.Height:=100;
form1.Left:=100;
form1.Top:=300;
exit;
end;
inherited;
end;
(*)createGuid(out newGUID)
s:=GUIDToString(newGUID)
(*)四舍五入取正： y:=Round(x)
(*) string:=StringReplace(string1,'*','#',[rfReplaceAll]);
(*)把一个string用单引号括起来作为string返回
QuotedStr(const S: string): string
(*) 如何让DBGRID中的内容分页显示
ADODataSet1.Open;
ADODataSet1.Recordset.PageSize := 10; //显示第一页
ADODataSet1.Recordset.AbsolutePosition := 1;
ADODataSet1.Recordset.PageSize := 10; //显示第二页
ADODataSet1.Recordset.AbsolutePosition := 11;
(*)实现解析IP地址为主机域名
uses WinSock
过程如下：
function IPAddrToName(IPAddr : String): String;
var
SockAddrIn: TSockAddrIn;
HostEnt: PHostEnt;
WSAData: TWSAData;
begin
WSAStartup($101, WSAData);
SockAddrIn.sin_addr.s_addr:= inet_addr(PChar(IPAddr));
HostEnt:= gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
if HostEnt<>nil then
begin
result:=StrPas(Hostent^.h_name)
end
else
begin
result:='';
end;
end;
使用函数：
var
Name: string;
begin
Name := InputBox('输入对方主机IP', '主机IP地址：', '');
showmessage(IpAddrToName(Name));
end;
(*)去掉twebbrowser右边的ScrollBar
WebBrowser1.oleobject.Document.body.Scroll := 'no';
(*)TTreeView的结点如何具有CheckBox
TreeView有个Images属性，做三张小图片：
全选中、部分选中、不选状态（直接拍下CheckBox三种状态的图片在加工一下就可以了），然后在点击事件中根据具体情况设置TTreeNodes的ImageIndex就OK了。
重载TreeView的CreateParams：
type
TCheckBoxTreeView = class(TTreeView)
protected
procedure CreateParams(var Params: TCreateParams); override;
end;
procedure TCheckBoxTreeView.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style:=Params.Style or TVS_CHECKBOXES;
{ TVS_CHECKBOXES declared in CommCtrl }
end;
如果要Check这个CheckBox，可以用下面的代码：
function IsNodeChecked(Node :TTreeNode) :Boolean;
const
TVIS_CHECKED = $2000;
var
TvItem :TTVItem;
begin
TvItem.Mask := TVIF_STATE;
TvItem.hItem := Node.ItemId;
TreeView_GetItem(Node.TreeView.Handle, TvItem);
Result := (TvItem.State and TVIS_CHECKED) = TVIS_CHECKED;
end;
procedure SetNodeChecked(Node :TTreeNode; Checked :Boolean);
const
TVIS_CHECKED = $2000;
var
TvItem :TTVItem;
begin
FillChar(TvItem, SizeOf(TvItem), 0);
with TvItem do begin
hItem := Node.ItemId;
Mask := TVIF_STATE;
StateMask := TVIS_STATEIMAGEMASK;
if Checked then
TvItem.State :=TVIS_CHECKED
else
TvItem.State :=TVIS_CHECKED shr 1;
TreeView_SetItem(Node.TreeView.Handle, TvItem);
end;
end;
可以做成事件和封装成一个类：
private OldState :Boolean;
procedure Change(Node: TTreeNode); override;
begin
inherited Change(Node);
OldState := IsNodeChecked(Node);
end;
procedure Click; override;
var
NewState :Boolean;
begin
inherited Click;
NewState := IsNodeChecked(Self.Selected);
if NewState = OldState then Exit;
if (NewState) and Assigned(OnNodeChecked) then OnNodeChecked()
else if (not NewState) and Assigned(OnNodeUnChecked) then
OnNodeUnChecked()
// OnNodeChecked & OnNodeUnchecked will be events that you declare
end;
(*)如何将stringgrid中每列的数据居中显示？
(1)将stringgrid的defaultdraw设为：false;
(2)procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var
sText: string;
begin
with StringGrid1 do
begin
sText := Cells[ACol, ARow];
if sText <> '' then
begin
Canvas.FillRect(Rect);
DrawText(Canvas.Handle, PChar(sText), Length(sText), Rect, DT_CENTER or DT_VCENTER or DT_SINGLELINE);
end;
end;
end;
DLL获得自己所在的路径:Windows.GetModuleFileName(HInstance,lp, 100);
Caption := Copy(Edit1.Text, 3, MaxInt); //建议，少计算一次
取得explorer句柄,线程
GetWindowThreadProcessID(FindWindow('ExploreWClass', nil), nil)
FindWindow('ExploreWClass', nil)
调用记事本
uses .... shellapi;
shellexecute(handle,nil,pchar('c:\windows\notepad'),nil,nil,sw_shownormal);
用回车代替TAB 在onkeypress 写
if key=#13 then perform(WM_NEXTDLGCTL,0,0);
fieldName like "%'+gA_FindValue+'%"'
formatFloat('0.00',doubleValue); //格式化 Float ---> string
mailto:[email protected]?subject=subjectTille ( &Attach=C:\Config.sys )
//返回给定月份的天数
uses SysUitls; // IsLeapYear
...
function DaysOfMonth(Date: TDateTime): integer;
var y, m, d: Word;
begin
DecodeDate( Date, y, m, d );
case m of
2: if IsLeapYear(y) then
Result:=29 else Result:=28;
1,3,5,7,8,10,12: Result:=31;
4,6,9,11: Result:=30;
end;
end;
//触发一个错误
raise Exception.Create('delete table Error');
//获取 IP 地址 (getIP.exe)
procedure TForm1.Button1Click(Sender: TObject);
var
wVersionRequested : WORD;
wsaData : TWSAData;
p : PHostEnt;
s : array[0..128] of char;
p2 : pchar;
OutPut:array[0..100] of char;
begin
{Start up WinSock}
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
{Get the computer name}
GetHostName(@s, 128);
p := GetHostByName(@s);
{Get the IpAddress}
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
StrPCopy(OutPut,'Hostname: '+Format('%s', [p^.h_Name])+#10#13+
'IP address: '+Format('%s',[p2])
);
WSACleanup;
MessageBox(0,OutPut,'Get IP ! - this is your IP Address',mb_ok or mb_iconinformation);
end; 
|
本类阅读TOP10