权限控制(delphi TActionList方案)
在软件开发中，为软件加入权限控制功能，使不同的用户有不同的使用权限，是非常重要的一项功能，
由其在开发数据库方面的应用，这项功能更为重要。
但是，要为一个应用加入全面的权限控制功能，又怎样实现呢？
大家知道，现在的应用，一般均以菜单访问功能的形式出现，按照常规的做法，
只要让注册进入应用的不同用户，可以访问不同的功能菜单，从而实现功能权限的控制，
但是，有这样一个问题，此种方法便无能为力，现在的应用软件，为了提高软件的易操作性，
同一功能可能有多种不同的访问方式，如工具条，右键菜单等；
同样，同一个功能，也可能在软件的不同地方被调用，而不仅仅被限制为用程序的主菜单来调用，
这样，才能保证应用的易用性。
写到这，问题已经非常清楚，对于要限制的软件功能，仅通过一次代码设计，
无论在整个应用的任何地方或通过何种形式调用此功能，都能被功能权限所限制。
笔者利用Delphi平台作应用开发时，通过Delphi7提供的VCL控件解决了这一问题。
在了解如何实现功能权限控制之前，得先看一下Delphi7提供的新控件TActionList，
通过TActionList,应用程序可以统一管理其TAction,这里的Action,可� ......
如何从一张图片中裁剪一部分距形图片另存为文件?
需要一段实现的功能的代码
procedure TForm1.Button1Click(Sender: TObject);
var
SrcBmp, DestBmp: TBitmap;
begin
SrcBmp := TBitmap.Create;
SrcBmp.LoadfromFile('C:\Source.bmp');
DestBmp := TBitmap.Create;
DestBmp.Width := 100;
DestBmp.Height := 100;
DestBmp.Canvas.CopyRect(Rect(0, 0, 100, 100), SrcBmp.Canvas, Rect(50, 50, 150, 150)); {要与给出的位图大小保持一直避免压缩}
DestBmp.SaveToFile('C:\Dest.bmp');
&nb ......
absolute
//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.
var
Str: string[32];
StrLen: Byte absolute Str;
//这个声明指定了变量StrLen起始地址与Str相同.
//由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度.
begin
Str := 'abc';
Edit1.Text := IntToStr(StrLen);
end;
abstract
//它允许你创建抽象的方法, 包括有抽象方法的类称为抽象类.
//Abstract关键字必须与Virtual或Dynamic关键字同时使用, 因为抽象方法必须被覆盖式实现.
//抽象类不能实例化, 抽象方法不能包含方法体.
type
TDemo = class
private
protected
procedure X; virtual; abstract;
public
constructor Create;
destructor Destroy; override;
published
end;
and
//一、表示逻辑与
if (a>0) and (b>0) then
//二、表示位运算
var
a,b,c: Integer;
begin
c := (a and b);
end;
//使用And表示逻辑时, And左右的表达式必须用小括号括起, 以避免以生条件的冲突.
//例如:
if a>0 and b>0 then
//编译器可能会理解为:
if a>(0 and b)>0 then ......
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,MSHTML, SHDOCVW,IdGlobal;
type
TMainFrm = class(TForm)
btnTest: TButton;
edURL: TEdit;
Label1: TLabel;
procedure btnTestClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainFrm: TMainFrm;
implementation
{$R *.dfm}
procedure FillIEForm(aURL:string);
procedure DoWithHtmlElement(aElementCollection:IHTMLElementCollection);
var
k:integer;
vk:oleVariant;
Dispatch: IDispatch;
HTMLInputElement:IHTMLInputElement;
HTMLSelectElement:IHTMLSelectElement;
HTMLOptionElement: IHTMLOptionElement;
HTMLText ......
ControlState 属性
对应对象：TControl
声明：TControlState = set of (csLButtonDown, csClicked, csPalette, csReadingState, csAlignmentNeeded, csFocusing, csCreating);
property ControlState: TControlState;
功能：ControlState属性用来查询控件运行时的状态。
ControlState属性用来指明运行的每一个时刻控件的状态。属性属于TControlState类型，这个类型是一个标志集，它可以被设置成为以下值的组合形式。
值 / 意 义
csLButtonDown / 点击鼠标的左按钮不放，这个是为所有的鼠标按下事件设置的。
csClicked / 和csLButtonDown一样，只是在ControlStyle属性包含csClickEvents标志时它才被设置，以说明鼠标按下时的事件。
csPalette / 说明一个WM_PALETTCHANGED信息被控件接受或者被控件的父类接受。
csReadingState / 控件正在从一个流中读取它的状态。
csAlignmentNeeded / 当队列再次被允许时控件需要重新排列它自己。
csFocusing / 应用程序过程焦点送给控件。这不能保证控件就将收到焦点，但是防止了递归的调用。
csPaintCopy / 控件被复制，意味着控件的拷贝被打印，控制风格标记csReplicatable必须被设置为该状态的发生。
csCreati ......
转自：http://hi.baidu.com/dragonmen2008/blog/item/0dd079dc026895d08c10294b.html
图文并茂:delphi 编写你的com程序
DELPHI菜单:
File\New\Other…
按确定[ok]按钮
点击File\Save菜单保存:
输入工程名MyCOM,按保存按钮
再打开菜单File\New\Other…
按[OK}按钮
在CoClassName打入MyObject，按OK
在IMyObject上按MOUSE右键，ImyObject\New\Method。
在Name处输入Test
切换到Parameters页次，按Add两下，将第一个Parameters的Name改成PsParam1, Type打入BSTR，将第二个Parameters的Name改成PsResult, Type打入BSTR*，将MOUSE点到第二个Parameters的Modifier字段处，按 “…” 按键。
将RetVal打勾，按OK
(原来的[in]变成了[out,retval], 表示这个是要回传的, 其型态为字符串)，关掉这个窗口。
(你会看到它帮你建好了CODE的模型)。
File\Save，输入文件名MyObject，按保存。
改一下CODE，按一下Ctrl+S保存，P ......
最新文章 :