[转]李战大师-悟透delphi 第十章 操作界面与操作逻辑
我们在前面的曾经讨论过，用户界面与商业逻辑分离的好处。这样的分离可以让软件体系结构更加合理，结构易于理解，从而增强软件的灵活性和可维护性。
正如我谈到过，我们讨论的目的是为了寻找将软件结构从混沌归于有序的实用方法，这是编写本书的主要目的之一。有序的东西易于理解，易于理解就便于掌握，掌握之后你将会发现其背后的哲理是那样的简单，从而升华到更高的境界去感受良好软件结构的协调美。
本章的话题将重点讨论如何将客户端的程序有序化，希望我们的讨论对所有的软件同行和朋友都有所帮助。
第一节 分离操作界面与操作逻辑
怎样设计友好的软件操作界面，是人机工程学研究的一个重要课题。好用的软件都有清秀可爱的面容，不但布局匀称合理，对你的操作意图也是善解人意，并且处理大方得体，就连对你的回答也体贴入微。如果，你编写的软件象这样将关键字重复的错误告诉你的用户：“亲爱的，你以前已经输入了编号为991028的出库单，不可重复输入。是否想查看以前的出库单呢？”，你的软件一定会销量大增。可能当年IBM的OS2就是因为说了很多用户看不懂的废话，才被用户遗弃，失去民心，而被Bill Gates一统天下。
我们今天不打算讨论怎样打扮软件的容颜，而要谈谈在漂亮的界面后面，应该如何更好地组织软件结构，大大方方地处理用户的操作命令。
假如，你已经规划好软件初步的操作模式，用带图标的菜单作为用户发号司令的工具，并在MenuItem的OnClick事件中编写完成业务处理的过程语句。一切都不错，而商业的逻辑处理也是放到服务器端的RemoteDataMoudle中处理的，经典的三层体系结构。可是你的老板不喜欢菜单，他对按钮情有独钟，于是你需要将Menu换成Button，然后将操作实现代码移到Button的OnClick事件过程中，或者将Button的OnClick事件指向原来的MenuItemClick事件处理过程。软件提交用户试用之后，用户强烈要求将软件修改为Microsoft Word 2000那样的界面，既有菜单又有按钮，而且还能提供键盘的快捷键输入（因为他们的老总习惯了原来DOS下那套老程序的键盘输入方式）。于是，你又不得不修改软件的界面控件，并再次将操作处理代码调整，以便每种命令输入方式都能被响应。最后，历经千辛万苦终于能完成整个软件界面的修改工作。
由此可见，不同的人有不同的爱好和需求，他们各自都有操作软件的习惯。但是他们使用软件的目的是相同的，就是，向你的软件发出指定的操作指令，使用该操作所代表的软件功能！
在种种不同的用户的需求之中，搞清所有用户的最终目的之后，我们应该仔细地想一想，不同的用户为了达到相同目的，使用了不同的手段。哦！原来目的和手段是两回事，只不过每个人用不同的手段达到相同的目的。
因此，我们应该将操作界面与操作逻辑分离，应该首先分清手段和目的，然后将手段与目的联系起来。这样，操作界面的更改将不会影响到操作逻辑，手段是手段，目的是目的。为了达到目的，可以不择手段，就是这个道理！
说道这里，也许有人会说：这个道理谁都懂。那么，如果在我们开发软件的过程中，多运用这些浅显的道理，就不难设计出简单而又实用的软件结构。
操作界面与操作逻辑的分离可以为我们带来哪些好处呢？
1． 易于理解
你可以在编写业务操作代码时，不关心软件的界面操作模式，而在美化你的软件时，只考虑界面的美学问题。外表是外表，内心是内心，只有你知道，外表美观的界面连接着精巧内秀的操作代码，表里如一。你的朋友们既可欣赏到漂亮的软件外表，也容易读懂你的内心。
2． 易于维护
不管将来流行什么软件界面，是时新HomePage式样还是OutLook的经典面版。你可以只修改与界面有关的部分，就可满足要求。也可将你的软件彻底改头换面，以崭新的面容出现。甚至，可表演川剧名家传内不传外传男不传女的独门绝技-变脸。但软件还是软件，软件的内在功能逻辑并未改变。不过，由于满足了用户喜新厌旧，追逐流行时尚的习惯，将使软件公司的老板们的腰包越来越鼓。
3． 可扩充性强
人机工程学不断取得的新突破，将为软件使用者提供更多的命令输入方式。现在，语音识别技术已逐渐商用化。你已经可以利用IBM ViaVoice提供的语音识别支持模块，开发能识别语音命令的控件。将这样的控件加入你的软件中，并与你以前编写的操作逻辑关联，你的软件就象长了耳朵，有了灵气，可以倾听你的述说。我也相信，总有一天可编写一种可以看懂你的表情的控件，那么，软件将可以根据你的情绪对你抚以不同冷暖的关怀。但软件的灵魂还是原来的操作逻辑代码！
4． 适合大规模软件开发
大规模软件开发讲求分工协作，各尽其才。如果你是软件公司的老板，那么，在系统分析设计人员完成软件设计之后，你可以找一批时装设计师为你的软件设计漂亮性感的界面，请精于编码的程序员编写操作逻辑。而你可以轻松地管理和控制各道工序的质量，而且责任分明。
尽管天涯海角的吹了一通，但我们还得回到我们主题。操作界面与操作逻辑的分离，到底要遵循哪些方法和原则呢？
首先，你应当归纳整理当前模块要向用户提供的功能，划分出明确的操作命令集。也就是说，设计可提供给用户的命令，这有点象老式命令行程序的可用命令清单列表。记住，这些命令集体现的是用户执行操作的目的。
然后，在根据命令集中的每一命令规划操作逻辑代码，按照编写程序的一般原则编制操作逻辑代码。有关编写程序的一般原则，可参阅《初恋DELPHI》一书。
最后，要提醒一点的就是，操作命令有时是受程序状态控制的。有的程序员为了实现在某中状态下禁止用户发出指定的操作命令，想尽办法控制菜单、按钮等命令控件的属性，封杀和打压所有可执行命令的控件。但是，你想禁止的是命令，而不是控件！
下面我们将会讨论在分离操作界面和操作逻辑方面，DELPHI为我们提供的很有价值的东西，即TActionList和TAction。
第二节 使用TActionList和TAction
“Action”一词的含义是行为、行动或动作，TAction就是抽象了用户想要通过软件界面表现的行为、开展的行动或执行的动作，而TActionList就描述了动作的命令清单。你可以将一个TActionList元件加入到你的Form、Frame或DataModule中，双击此元件可定义需要的TAction对象。
缔造DELPHI大厦的设计师和工程师们，为绝大多数命令控件（如TButton，TMenuItem等等）设计了Action属性，并且常常碰巧出现在Object Inspecter窗口属性页面的第一项上，由此可见他们的用心良苦。但不管怎样，他们为我们提供了一个简单的方法，将命令控件的Action属性与TActionList元件中定义的TAction对象关联。
由于，在TAction对象的OnExecute事件中编写的操作逻辑代码可自动被关联的命令控件调用，因此，更换命令控件的类型，不用修改或调整操作逻辑代码。这样就可将操作界面与操作逻辑分开。
如果在某些状态下你要禁止用户执行某种操作，可设置相关TAction对象的Enabled属性为FALSE，则相关的命令控件将通通被冷冻，该变白脸的变脸白，该变灰脸的变灰脸，而不管他是生旦净末丑。
再次感谢缔造DELPHI的大师们，是他们在台后为我们做了一切，而且还将他们的九阴真经放到Source\VCL\ActnList.pas单元中。
既然有大师们的九阴真经，我们就应该拿来修炼，增强我们的内功。
首先，在ActnList单元中，TActionList是这样声明的：
TActionList = class(TCustomActionList)
published
property Images;
property OnChange;
property OnExecute;
property OnUpdate;
end;
TActionList只发表了TCustomActionList的一些属性和事件。其实，TActionList就是用来装TAction的容器，并提供了管理TAction的方法。有关TActionList的详细用法，我们将在随后开发的TActionManager控件中讨论。
再来看看TAction的声明的：
TAction = class(TCustomAction)
published
property Caption;
property Checked;
property Enabled;
property HelpContext;
property Hint;
property ImageIndex;
property ShortCut;
property Visible;
property OnExecute;
property OnHint;
property OnUpdate;
end;
TAction是从TCustomAction类继承的，与前面一样，只不过将父类的一些特征发表。我不想逐一解读TAction的各个类层次的原代码，相信读过《初恋DELPHI》一书的朋友都能够解读这些代码。我只想讨论TAction发表给我们的这些特性，能为我们提供什么功能。由于还有一些特性是在TAction的父辈类中发表的，在讨论时也将一起谈到，不过一些不重要的特性就不再废话了。
Caption属性：填写此属性，你可以用简短的标题向用户说明命令操作的含义。此属性将自动更新相关命令控件的Caption属性，所以按钮和菜单的Caption属性要在此输入。
Category属性：操作命令的类别，主要是为了方便你分类管理你的操作命令集。此属性是在TAction的爷爷辈TContainedAction中发表的，在我们随后开发的TActionManager控件中，你将看到如何此属性管理操作命令。
Enabled属性：控制命令操作是否可执行，可自动控制关联命令控件是否允许执行。封杀命令控件应该从这里下手。
ImageIndex属性：表示操作命令的图标索引，与TActionList的Images联系。有图标的命令控件可以享受到他的恩惠。
ShortCut属性：用键盘发出操作命令的快捷键，为喜好键盘操作的人们带来的福音。
Visible属性：控制Enabled可以让命令控件变灰，控制此属性可以让命令控件消失在用户面前。注意，虽然命令控件消失，但用户仍可通过快捷键发出操作命令，而Enabled才可真正封杀命令。
OnExecute事件：可以在此事件中编写操作逻辑代码，用户触发相关的命令控件时，将自动调用此事件的操作逻辑代码。
其他的特性就自己查看DELPHI的联机帮助吧！
初步了解TActionList和TAction之后，我们将开始实践。下面的PRETTYPOEM程序演示了TActionList和TAction的基本用法，很简单。如果你不想浪费时间可直接跳到后面的MULTIFACE程序，看看如何表演川剧的绝活儿-变脸。
你可以在随书所附的光盘中找到此程序的原代码。
文件PRETTYPOEM.DPR
program PRETTYPOEM;
uses
Forms,
Main in 'Main.pas' {fMain};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TfMain, fMain);
Application.Run;
end.
文件Main.pas
unit Main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, ActnList, ComCtrls, ToolWin, StdCtrls, ImgList;
type
TfMain = class(TForm)
MainMenu: TMainMenu;
ActionList: TActionList;
actGuCheng: TAction;
actXiMuRong: TAction;
actLiQingZhao: TAction;
actSuShi: TAction;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
cbDisableLiQingZhao: TCheckBox;
actDisableLiQingZhao: TAction;
actHideLiQingZhao: TAction;
cbHideLiQingZhao: TCheckBox;
ImageList: TImageList;
labPoem: TLabel;
labShadow: TLabel;
procedure actGuChengExecute(Sender: TObject);
procedure actXiMuRongExecute(Sender: TObject);
procedure actDisableLiQingZhaoExecute(Sender: TObject);
procedure actHideLiQingZhaoExecute(Sender: TObject);
procedure actSuShiExecute(Sender: TObject);
procedure actLiQingZhaoExecute(Sender: TObject);
private
{ Private declarations }
procedure RecitePoem(Poem:string);
public
{ Public declarations }
end;
var
fMain: TfMain;
implementation
{$R *.DFM}
procedure TfMain.RecitePoem(Poem: string);
begin
labPoem.Caption:=Poem;
labShadow.Caption:=Poem;
end;
procedure TfMain.actGuChengExecute(Sender: TObject);
begin
RecitePoem('黑夜给我黑色的眼睛 我却用她寻找光明');
end;
procedure TfMain.actXiMuRongExecute(Sender: TObject);
begin
RecitePoem('溪水急着要流向大海 而浪潮却渴望重归土地');
end;
procedure TfMain.actSuShiExecute(Sender: TObject);
begin
RecitePoem('人有悲欢离合 月有阴晴圆缺');
end;
procedure TfMain.actLiQingZhaoExecute(Sender: TObject);
begin
RecitePoem('生当做人杰 死亦为鬼雄');
end;
procedure TfMain.actDisableLiQingZhaoExecute(Sender: TObject);
begin
actLiQingZhao.Enabled:=not cbDisableLiQingZhao.Checked;
end;
procedure TfMain.actHideLiQingZhaoExecute(Sender: TObject);
begin
actLiQingZhao.Visible:=not cbHideLiQingZhao.Checked;
end;
end.
文件Main.dfm
object fMain: TfMain
Left = 192
Top = 107
Width = 442
Height = 195
BorderIcons = [biSystemMenu, biMinimize]
Caption = '谈古论今'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
Menu = MainMenu
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 12
object labShadow: TLabel
Left = 17
Top = 41
Width = 380
Height = 20
Caption = '古今诗词名句欣赏，请选择你喜爱的诗人。'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -20
Font.Name = '隶书'
Font.Style = []
ParentFont = False
Transparent = True
end
object labPoem: TLabel
Left = 16
Top = 40
Width = 380
Height = 20
Caption = '古今诗词名句欣赏，请选择你喜爱的诗人。'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = '隶书'
Font.Style = []
ParentFont = False
Transparent = True
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 434
Height = 26
AutoSize = True
ButtonWidth = 63
Caption = 'ToolBar'
EdgeBorders = [ebTop, ebBottom]
Flat = True
Images = ImageList
List = True
ShowCaptions = True
TabOrder = 0
object ToolButton1: TToolButton
Left = 0
Top = 0
Action = actGuCheng
end
object ToolButton2: TToolButton
Left = 63
Top = 0
Action = actXiMuRong
end
object ToolButton3: TToolButton
Left = 126
Top = 0
Action = actSuShi
end
object ToolButton4: TToolButton
Left = 189
Top = 0
Action = actLiQingZhao
end
end
object Button1: TButton
Left = 12
Top = 80
Width = 75
Height = 25
Action = actGuCheng
TabOrder = 1
end
object Button2: TButton
Left = 116
Top = 80
Width = 75
Height = 25
Action = actXiMuRong
TabOrder = 2
end
object Button3: TButton
Left = 12
Top = 112
Width = 75
Height = 25
Action = actSuShi
TabOrder = 3
end
object Button4: TButton
Left = 116
Top = 112
Width = 75
Height = 25
Action = actLiQingZhao
TabOrder = 4
end
object cbDisableLiQingZhao: TCheckBox
Left = 232
Top = 116
Width = 81
Height = 17
Action = actDisableLiQingZhao
TabOrder = 5
end
object cbHideLiQingZhao: TCheckBox
Left = 328
Top = 116
Width = 81
Height = 17
Action = actHideLiQingZhao
TabOrder = 6
end
object MainMenu: TMainMenu
Images = ImageList
Left = 332
Top = 4
object N1: TMenuItem
Caption = '现代情怀'
object N2: TMenuItem
Action = actGuCheng
end
object N3: TMenuItem
Action = actXiMuRong
end
end
object N4: TMenuItem
Caption = '古典风范'
object N5: TMenuItem
Action = actSuShi
end
object N6: TMenuItem
Action = actLiQingZhao
end
end
end
object ActionList: TActionList
Images = ImageList
Left = 360
Top = 4
object actGuCheng: TAction
Category = '现代情怀'
Caption = '顾城'
ImageIndex = 0
ShortCut = 16455
OnExecute = actGuChengExecute
end
object actXiMuRong: TAction
Category = '现代情怀'
Caption = '席慕容'
ImageIndex = 1
ShortCut = 16472
OnExecute = actXiMuRongExecute
end
object actSuShi: TAction
Category = '古典风范'
Caption = '苏轼'
ImageIndex = 2
ShortCut = 16467
OnExecute = actSuShiExecute
end
object actLiQingZhao: TAction
Category = '古典风范'
Caption = '李清照'
ImageIndex = 3
ShortCut = 16460
OnExecute = actLiQingZhaoExecute
end
object actDisableLiQingZhao: TAction
Category = '控制'
Caption = '禁止李清照'
OnExecute = actDisableLiQingZhaoExecute
end
object actHideLiQingZhao: TAction
Category = '控制'
Caption = '隐藏李清照'
OnExecute = actHideLiQingZhaoExecute
end
end
object ImageList: TImageList
Left = 388
Top = 4
end
end
此程序运行之后，你可以通过菜单、工具条、按钮和快捷键调出你喜欢的诗句。Action的标题和图标都自动反映在菜单、工具条和按钮上，细心的朋友会发现，菜单上还同时将我们定义的快捷键显示出来，可见VCL的开发者所做的工作比我们想象的还要多。至于菜单名后的热键字符，是由MainMenu的AutoHotKeys属性引起的。
你可以用选择框禁止或隐藏李清照的名字，不过只隐藏李清照的名字时，仍然可通过Ctrl+L调出她的诗句。
休息一下，在我们开始讨论运行时更改软件界面的话题之前，先来感受以下诗人们的情怀。诗人们的诗句是美丽的，但诗句中隐含的哲理才是他们内心所追求的境界。编写程序也是如此。
- 上一篇 »悟透JavaScript——第一天
- 下一篇 »悟透JavaScript