用Delphi画圆角Panel的方法
procedure TForm1.Button5Click(Sender: TObject);
var fhr :Thandle;
begin
fhr:=createroundrectrgn(0,0,panel1.width,panel1.height,4,4);
setwindowrgn(panel1.handle,fhr,true);
end;
Panel的BevelInner 及 BevelOuter 最好设成 bvNone
......
怕忘记了，写在这儿！
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
r:real;
ch:char;
s:string[7];
begin
i:=10;
j:=100;
r:=1.0;
ch:='b';
s:='1234567890';
showmessage(inttostr(i)+inttostr(j));
showmessage(floattostr(r));
showmessage(ch);
showmessage(b);
end;
end.
......
http://hi.baidu.com/sqldebug/blog/item/58a764624a44d74eeaf8f863.html
一、如何限制系统服务和桌面程序只运行一个
如何限制系统服务和桌面程序只运行一个
在工程加入下列代码可以设置系统服务和桌面程序只运行一个。
program FleetReportSvr;
uses
SvcMgr,
Forms,
SysUtils,
Windows,
SvrMain in 'SvrMain.pas' {FleetReportService: TService},
AppMain in 'AppMain.pas' {FmFleetReport}；
{$R *.RES}
const
CSMutexName = 'Global\Services_Application_Mutex';
var
OneInstanceMutex: THandle;
SecMem: SECURITY_ATTRIBUTES;
aSD: SECURITY_DESCRIPTOR;
begin
InitializeSecurityDescriptor(@aSD, SECURITY_DESCRIPTOR_REVISION);
SetSecurityDescriptorDacl(@aSD, True, nil, False);
SecMem.nLength := SizeOf(SECURITY_ATTRIBUTES);
SecMem.lpSecurityDescriptor := @aSD;
SecMem.bInheritHandle := False;
OneInstanceMutex := CreateMutex(@SecMem, False, CSMutexName);
if (GetLastError = ERROR_ALREADY_EXISTS)then
begin
DlgError('Error, Program or service already running!');
& ......
文章来自：http://hi.baidu.com/523399/blog/item/f36e2e9b25041fbdc9eaf4c6.html
学过C语言的人都知道，printf的参数是不固定的，这种参数形式叫做变长参数。带有变长参数的函数必须是cdecl调用约定，由函数的调用者来清除栈，参数入栈的顺序是从右到左。printf是根据格式化串中的占位标记来猜测栈中的参数的。以下就用Delphi模拟一个简单的类似printf的函数sprintf。
type
VA_FN = function(const par1, par2{, ...}: Pointer): Integer; cdecl varargs;
procedure CvtInt;
{ IN:
EAX: The integer value to be converted to text
ESI: Ptr to the right-hand side of the output buffer: LEA ESI, StrBuf[16]
ECX: Base for conversion: 0 for signed decimal, 10 or 16 for unsigned
EDX: Precision: zero padded minimum field width
OUT:
ESI: Ptr to start of converted text (not start of buffer)
&nb ......
权限管理Delphi实现算法
在运用DELPHI编制一些应用系统时，有很多时候都需要给不同的用户赋予不同的权限，
而不同的系统又有不同的权限分配方式，
如果在程序中去为每一位用户分配权限的话，不仅使得程序的编制十分麻烦，而且也不利于管理！
笔者近日想得一自认为比较好的方法，愿与大家共享，并望各位多指教！
在很多的系统中，权限通常是被分成几级的。
每一级的用户所能实现的操作是不同的，而实现这一功能的方法一般都是让不同权限的用户见到不同的菜单。
简单的说就是对不具有某一权限的用户这一菜单就是不可见的！
为了实现这一控制，程序员们往往得花费很多的时间去做这一模块，浪费了很多宝贵的时间！
想法是：如果设一个二维数组，第一维代表第一级菜单，第二维代表子菜单，
每一个数组元素只存储0或1这两个数，某一权限的用户对应着一个二维数组，而这个数组又代表了相应的菜单。
给某一级别的用户分配权限后，他便拥有了一个相应的数组。
登录时，从数组中取出各个元素的值，如果为1则相应的菜单出现，为0则不出现菜单。
用这种方式不但可以分级，还能实现在不同的用户间实现权限细分，只要你修改相应的数值为0或1即可！
上面是一个简单例子的运行� ......
权限控制(delphi TActionList方案)
在软件开发中，为软件加入权限控制功能，使不同的用户有不同的使用权限，是非常重要的一项功能，
由其在开发数据库方面的应用，这项功能更为重要。
但是，要为一个应用加入全面的权限控制功能，又怎样实现呢？
大家知道，现在的应用，一般均以菜单访问功能的形式出现，按照常规的做法，
只要让注册进入应用的不同用户，可以访问不同的功能菜单，从而实现功能权限的控制，
但是，有这样一个问题，此种方法便无能为力，现在的应用软件，为了提高软件的易操作性，
同一功能可能有多种不同的访问方式，如工具条，右键菜单等；
同样，同一个功能，也可能在软件的不同地方被调用，而不仅仅被限制为用程序的主菜单来调用，
这样，才能保证应用的易用性。
写到这，问题已经非常清楚，对于要限制的软件功能，仅通过一次代码设计，
无论在整个应用的任何地方或通过何种形式调用此功能，都能被功能权限所限制。
笔者利用Delphi平台作应用开发时，通过Delphi7提供的VCL控件解决了这一问题。
在了解如何实现功能权限控制之前，得先看一下Delphi7提供的新控件TActionList，
通过TActionList,应用程序可以统一管理其TAction,这里的Action,可� ......
最新文章 : delphi