-
等级
本版专家分：8837结帖率 100% -
今天发现了一片自认为不错的文章，贴出来给大家看看。展开阅读全文
-
等级
本版专家分：8837
-
继承关系：
TObject → TPersistent → TComponent
TApplication组件的属性:
Active
AllowTesting
DialogHandle
ExeName
Handle
HelpFile
Hint
HintColor
HintHidePause
HintPause
HintShortPause
Icon
MainForm
ShowHint
ShowMainForm
Terminated
Title
UpdateFormatSettings
UpdateMetricSettings
从TCompnent继承来的：
ComObject
ComponentCount
ComponentIndex
Components
ComponentState
ComponentStyle
Designlnfo
Name
Owner
Tag
VCLComObject
TApplication组件的方法：
BringToFront
CancelHint
ControlDestroyed
Create
CreateFom
CreateHandle
Destroy
HandleException
HandleMessage
HelpCommand
HelpContext
HelpJump
HideHint
HintMouseMessage
HookMainWindow
lnitialize
MessageBox
Minimize
NormalizeTopMosts
NormalizeAllTopMosts
ProcessMessages
Restore
RestoreTopMosts
Run
ShowException
Terminate
UnhookMainWindow
从TComponent继承来的：
DestroyComponents
Destroying
FindComponent
FreeNotification
FreeOnRelease
GetParentComponent
HasParent
InsertComponent
RemoveComponent
SafeCallException
从TPersistent继承来的:
Assign
GetNamePath
TObject继承来的:
ClassInfo
ClassNarne
ClassNameIs
ClassParent
ClassType
CleanupInstance
DefaultHandler
Dispatch
FieldAddress
Free
Freelnstance
GetInterface
GetInterfaceEntry
GetInterfaceTable
InheritsForm
InitInstance
InstanceSize
MethodAddress
MethodName
NewInstance
TApplication组件的事件:
OnActivate
OnDeactivate
OnException
OnHelp
OnHint
OnIdle
OnMessage
OnMinimize
OnRestore
OnShowHint
Active属性
对应对象：TApplication
声明：property Active: Boolean;
功能：Active属性是用来声明应用程序是否被激活。Active属性是在运行时有效，它是只读类型的。当应用程序处于激活状态并且具有焦点时，它将返回真，否则将返回假。
BringToFront方法
对应对象：TApplication
声明：procedure BringToFront;
功能：BringToFront方法用于将用户的应用程序的主窗体窗口放置到Windows Desktop上的其他窗口的前面。Windows Desktop有一个Z轴的次序，确定一个窗口相对于其他窗口的逻辑位置(上或下)。这个Z轴次序允许窗口以叠加的形式出现，同时确定当前的带有焦点的窗口。BringToFront使用户的应用程序的主窗体的窗口放置在Z轴次序的上部，这样将使它拥有焦点并且处于被激活的状态，使其出现在Desktop的所有窗口之上。
CreateFom方法
对应对象：TApp1ication
声明：procedure CreateForm(InstanceClass: TComponentClass;
var Reference);
功能：CreateForm方法用来创建一个新的窗体。InstanceClass是要被创建的窗体的类型。Reference是赋予窗体的变量。Application对象拥有新创建的窗体。在项目源代码中至少应调用一次CreateForm，且该应用程序的每一个窗体都将被调用，这些调用是由Delphi自动地调用，不需要用户人工调用。
-
等级
本版专家分：34315勋章
-
- 红花 2003年9月 Delphi大版内专家分月排行榜第一
-
- 黄花 2003年8月 Delphi大版内专家分月排行榜第二
-
-
这个哪里算详解哦！
————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————
-
等级
本版专家分：34315勋章
-
- 红花 2003年9月 Delphi大版内专家分月排行榜第一
-
- 黄花 2003年8月 Delphi大版内专家分月排行榜第二
-
-
这个哪里算详解哦！
————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————
-
等级
本版专家分：8837
-
ExeName属性
对应对象：TApplication
声明；property ExeName: string;
功能：ExeName包含了应用程序可执行文件的目录和文件名。ExeName属性在运行时有效，并且为只读型的。它包含有应用程序的可执行文件名。
Handle属性
对应对象：TApplication
声明：propeny Handle: HWND;
功能：包含有应用程序窗口的句柄。Handle属性在处理一个需要窗口句柄的API的调用时使用的。通常用户不需要自己去访问Application.Handle属性。注意这里指的是不可视的应用程序窗口的句柄并不是主体窗口的句柄。要获得主体窗口的句柄应使用TForm对象的Handle属性。
HeIpCommand方法
对应对象：TApplication
声明：fuction HelpCommand(Command:Integer;Data:Longint):Boolean;
功能：HelpCommand允许用户访问Windows Help API中的任何命令。 Command是需要被调用的Windows Help API命令。Data是需要被传送给Help命令的数据。HelpCommand方法调用了Windows Help的文件WINHELP.EXE，并且将它传送给由Command参数指定的命令及由Data参数指定的数据，被发送的命令指定了请求帮助的类型，而被发送的数据则依请求的命令而确定。以下例出了可以被传送给HelpCommand的部分命令和数据值。
命 令 值 数 据 值 意 义
HELP_COMMAND 包含将要执行的Help 执行Help宏命令或宏命令集
宏命令或一毓由分号
分隔的Help宏命令的
字符串地址
HELP_CONTENTS 0 此项是为与4.0版本之前的帮助
引擎相兼容而提供的命令。对
应32位应用程序应使用HELP_FINDER命令。
HELP_CONTEXT 主题的上下文标识符 显示由Data值标识的标题。
HELP_CONTEXTPOPUP 主题的上下文标识符 创建一个显示了Data值指定的主题的弹
出式窗口
HELP_FINDER 0 显示一个4.0版本Helptopics对话框。
HELP_FORCEFILE 0 用于保证WinHelp显示正确的Help文件，
如果不是正确的显示，则装载正确的
Help文件。
HELP_INDEX 0 该命令与4.0以前的版本相兼容。新的
应用程序应该使用HELP_FINDER来代替
HELP_KEY 关键字字符串的地址 显示由关键字标识的标题，关键字的
地址由Data传递。
HELP_PARTIALKEY 关键字字符串的地址 如果完全匹配，则显示由关键字标识
的主题，关键字的地址由Data传递，
如果有一个以上的匹配，则显示Index
标签
HELP_QUIT 0 如果没有其他的应用程序请求Help，
则将关闭Help应用程序。
HELP_SETCONTENTS 对Contents主题的上 当用户按击Contents按钮时，指定
下文的标识符 要显示的主题。
HELP_SETINDEX 对索引主题上下文的 指定要在Index中显示的关键字列表。
标识符
HELP_HELPONHELP 0 使用Windows Help显示Help。
HelpFile属性
对应对象：TApplication
声明：property HelpFile:String;
功能：HelpFile属性指定应用程序所使用的Help文件名。 HelpFile属性在运行时是有效的，缺少时此值为空字符串。如果使用之前没有将HelpFile设置成为一个有效的文件名，则在调用了Help方法之后，应用程序将对此操作忽略。
HelpJump方法
对应对象：TApplication
声明：function HelpJump(const JumpID:string):Boolean;
功能：HelpJump方法用于打开一个Windows Help的指定的页。 HelpJump方法驱动Windows Help应用程序的WINHELP.EXE文件，并且打开了包含有JumpID参数所指定的上下文字符串的页。如果Application的HelpFile属性包含有一个有效的Help文件名的引用，则HelpJump将返回真，否则返回假。为了创建一个上下文字符串可以参考Mircosoft Help WorkShop用户手册。
例子：
procedure TForm1.mnuGotoHelpClick(Sender:TObject);
begin
Application.HelpFile:=’my_apps_help.hlp’;
Application.HelpJump(hlpMyIdentifier);
end;
HintColor属性
对应对象：TApplication
声明：property HintColor:TColor;
功能：HintColor属性用来确定在应用程序中出现的工具的提示窗口的颜色值。 HintColor属性确定了应用程序所使用的工具提示窗口的背景颜色，这个颜色可以被设置成为任何的系统支持的颜色。一些通用的颜色是clBlack，clWhite，clYellow，clCaption及clWindow。HintColor是运行时有效的属性。可以通过各种组件的Hint属性来访问提示。
例子：
procedure TForm1.FormCreate(Sender:TObject);
begin
Application.HintColor:=clAqua;
Form1.Hint:=’The HintColor demo program’;
Form1.ShowHint:=True;
end;
HintHidePause属性
对应对象：TApplication
声明：property HintHidePause:Integer;
功能：当用户使用鼠标指针在显示的工具提示上没有立即移开时，HintHidePause属性用来确定工具提示的时间长短。 在缺少的情况时，工具的提示及在它消失之前显示约2500毫秒。用户可以用这个属性修改显示的时间长度，时间单位是毫秒。这个属性是在运行时有效的。可以使用每个组件的Hint属性来访问工具提示。
例子：
procedure TForm1.FormCreate(Sender:TObject(;
begin
//Set the HintHidePause to 5 seconds
Application.HintHidePause:=5000;
end;
-
等级
本版专家分：8837
-
HintPause属性
对应对象：TApplication
声明：property HintPause:Integer;
功能：HintPause属性用来指定在一个工具提示显示之前的所显示的时间长短。当鼠标在一个将被显示的工具提示之上停留一段时间后，工具提示才显示帮助。这个停留的时间可以由HintPause属性来确定，单位是以毫秒来计算。缺少蝗时间是800毫秒。一般可以使用每个组件的Hint属性来访问组件。
例子：
procedure TForm1.FormCreate(Sender:TObject);
begin
//Set the HintHidePause to 5 seconds
Application.HintHidePause:=5000;
//Set the HintPause to 1 second
Application.HintPause:=1000;
end;
HintShortPause属性
对应对象：TApplication
声明：property HintShortPause:Integer;
功能：HintShortPause属性用来确定在绘制之前工具提示的延迟时间的长短。 HintShortPause用于当用户移动鼠标经过了一系列的与工具提示相关联的组件时，禁止工具提示的快速绘制。它确定了工具提示在重新显示之前的等待的时间长短，如果工具提示在近期已经显示过并且鼠标指针再次移动到这个组件上时，HintShortPause将显示在工具再次显示之前的延迟的时间。这个属性在运行时是有效有，时间的单位是毫秒，在缺少时的值是50毫秒。工具提示可以通过组件的Hint属性访问。
例子：
procedure TForm1.FormCreate(Sender:TObject);
begin
//Set the HintPause to 1 second
Application.HintPause:=1000;
//Set the HintShortPause to 1/10th of a second
Application.HintShortPause:=100;
end;
Icon属性
对应对象：TApplication
声明：property Icon:TIcon;
功能：Icon属性确定一个代表应用程序的图标。
每一个应用程序的图标Icon属性出现在应用程序任务栏窗口的按钮上，人微言轻应用程序主窗体标题栏的图标，并用来作为在文件浏览器中应用程序的图标。虽然图标的Icon属性可以使用代码来设置，但一般从Delphi中的Project Options对话框中的Application的标签中设置。如果没有改变在选项中的图标，那么当用户在Shell中查看时，可以为自己的应用程序获得缺少的“火炬”图标。
例子：
procedure TForm1.FormCreate(Sender:TObject);
begin
//Set the application icon
Application.Icon.LoadFromFile(‘d:\Borland\Delphi 4\Images\Icons\Earth.ico’);
end;
Initialize方法
对应对象：TApplication
声明：procedure Initialize;
功能：Initialize方法一般是应用程序调用的第一个方法。当用户建立了一个新的Delphi应用程序项目时，Initialize将自动地被添加到用户的项目资源上，如果用户的应用程序不是一个OLE自动化服务器，则用户可以删除初始化的这一行代码。对于OLE的自动化服务器，Initialize将使用系统寄存器来存储OLE自动化服务器的类。一个OLE自动化服务器是一个应用程序或一个DLL，它将OLE对象输送给OLE自动化客户。
例子：
program Project1;
uses
Forms,
Unit1 in ‘Unit1.pas’{Form1};
{$R *.RES}
begin
Application.Initialize;
Applocation.Title:=’Delphi TApplication Demo Program’;
Application.CreateForm(TForm1,Form1);
Application.Run;
end;
MainForm属性
对应对象：TApplication
声明：property MainForm:TForm;
功能：MainForm属性用来指示哪一个窗体是应用程序的主窗体。MainForm属性在运行时有效的，它是只读型的。主窗体是当应用程序被执行时被最先建立的窗体，当主窗体被关闭时应用程序也被关闭。主窗体可以通过项目选项对话框的窗体页来设置。
例子：
program Project1;
uses
Forms,
Unit1 in ‘Unit1.pas’{Form1};
Unit2 in ‘Unit2.pas’{Form2};
{$R *.RES}
begin
Application.Initialize;
Application.Title:=’MainForm Demo Program’;
Application.CreateForm(TForm1,Form1);
Application.CreateForm(TForm2,Form2);
Application.Run;
end;
MessageBox方法
对应对象：TApplication
声明：function MessageBox(Text,Caption:PChar;Flags:Word):Integer;
功能：MessageBox方法可以显示一个对话框，在对话框中包含了一条信息和一个及多个按钮。MessageBox方法是TApplication中的一个经常使用的方法，它包含了Windows API MessageBox函数。使用过Windows的朋友都看到过MessageBox，可以使用VB或Delphi来创建它们。以下是Flags允许的一些值的组合。
-
等级
本版专家分：8837
-
标 记 值 意 义
MB_ABORTRETRYIGNORE 出现3个按钮：Abort，Retry，Ignore。
MB_APPLMODAL 对于应用程序的信息框是模式的，即
当返回到应用程序之前用户必须单击
一个键，MB_APPLMODAL由缺少值设置，
对应的行为可以使用MB_SYSTEMMODAL
或MB_TASKMODAL来改变。
MB_DEFAULT_DESKTOP_ONLY 信息框必须出现在缺少的桌面上，这
个桌面是用户注册的桌面。
MB_DEFBUTTON1 信息框的第一个按钮是缺省的按钮。
MB_DEFBUTTON2 信息框的第二个按钮是缺省的按钮。
MB_DEFBUTTON3 信息框的第三个按钮是缺省的按钮。
MB_DEFBUTTON4 信息框的第四个按钮是缺省的按钮。
MB_HELP 在信息框上添加一个Help按钮，当
按F1或此按钮时可以引起Help事件。
MB_ICONASTERISK 与MB_ICONFORMATION的相同。
MB_ICONERROR 与MB_ICONHAND相同。
MB_ICONEXCLAMATION 出现一个感叹号的图标。
MB_ICONHAND 与MB_ICONSTOP相同。
MB_ICONINFORMATION 出现一个小写的i图标。
MB_ICONQUESTION 出现一个问号？的图标。
MB_ICONSTOP 出现一个红色的叉子×的图标。
MB_ICONWARNING 与MB_ICONEXCLAMATION的相同。
MB_OK 信息框出现一个按钮，按钮标题是OK。
MB_OKCANCEL 信息框出现两个按钮，按钮标题是OK和Cancel。
MB_RETRYCANCEL 信息框出现两个按钮，按钮标题是Retry
和Cancel。
MB_RIGHT 信息框内的信息是向右对齐的。
MB_TRLREADING 信息框内的文字对于Hebrew和Arabic系统
来说是向右对齐的。
MB_SERVICE_NOTIFICATION 允许信息框在一个没有被注册的桌面上显示。
MB_SETFORMEGROUND 使信息框成为当前的窗口。
MB_SYSTEMMODAL 此信息框不允许用户在它被关闭之前进行
任何的其他操作，这个标记可以为十分重
要的信息进行保留。
MB_TASKMODAL 与MB_APPLMODAL相同。
MB_YESNO 信息框有两个按钮，按钮标题是Yes和No。
MB_YESNOCANCEL 信息框内有三个按钮，按钮标题是Yes，
No和Canel。
对于此属性的返回值类型可见下表：
命名的返回值 返回数值 意 义
IDABORT 0 没有足够的内存空间来显示信息框。
3 用户选择了Abort按钮功能。
IDCANCEL 2 用户选择了Cancel按钮功能。
IDIGNORE 5 用户选择了Ignore按钮功能。
IDNO 7 用户选择了No按钮功能。
IDOK 1 用户选择了OK按钮功能。
IDRETRY 4 用户选择了Retry按钮功能。
IDYES 6 用户选择了Yes按钮功能。
例子：
//Close the application
procedure TForm1.mnuFileQuitClick(Sender:TObject);
begin
if Application.MessageBox(‘Do you really want to quit?’,’Quit?’,
MB_YESNO+MB_ICONHAND)=IDYES then
Close;
end;
Minimize方法
对应对象：TApplication
声明：procedure Minimize;
功能：Minimize方法使一个应用程序最小化成为一个任务栏按钮。 Minimize方法使应用程序的每一个窗口和当前窗口都变为最小化形式。
例子：
procedure TForm1.mnuMinimizeClick(Sender:TObject);
begin
Application.Minimize;
end;
OnActivate事件
对应对象：TApplication
声明：property OnActivate:TNotifyEvent;
功能：OnActivate事件是在应用程序被激活时产生。当应用程序接受一个焦点时OnActivate事件将产生。由于它对应TApplication对象不能从对象探测器直接获得，所以要人工对应地创建一个OnActivate事件的处理代码。
例子：
unit Unit1;
interface
uses
Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs;
type
TForm1=class(TForm);
procedure FormCreate(Sender:TObject);
//add these function declarations manually
procedure AppActivate(Sender:TObject);
procedure AppDeactivate(Sender:TObject);
private
{Private declarations}
public
{Piblic declarations}
end;
var
Form1:TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender:TObject);
begin
//determine which methods will handle OnActivate and OnDeactivate
Application.OnActivate:=AppActivate;
Application.OnDeactivate:=AppDeactivate;
end;
//Add this event handler manually
procedure TForm1.AppActivate(Sender:TObject);
begin
//Perform task here thate you want to happen every time the application is activated.
end;
//Add this event handler manually
procedure Tform1.AppDeactivate(Sender:TObject);
begin
//Perform task here that you want to happen every time the application is deactivated.
end;
end;
-
等级
本版专家分：6671
-
够详细了，翻译的帮助吧？？
-
等级
本版专家分：8837
-
^_^
-
等级
本版专家分：8837
-
nDeactivate事件
对应对象：TApplication
声明：property OnDeactivate:TNotifyEvent;
功能：OnDeactivate事件在应用程序推动焦点时将发生。OnDeactivate事件允许用户在应用程序无效之前结束任务。由于对应的TApplication对象不能在对象探测器中被获得，所以，用户需要人工地创建OnDeactivate事件的处理代码。
例子：
unit Unit1;
interface
uses
Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs;
type
TForm1=class(TForm);
procedure FormCreate(Sender:TObject);
//add these function declarations manually
procedure AppActivate(Sender:TObject);
procedure AppDeactivate(Sender:TObject);
private
{Private declarations}
public
{Piblic declarations}
end;
var
Form1:TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender:TObject);
begin
//determine which methods will handle OnActivate and OnDeactivate
Application.OnActivate:=AppActivate;
Application.OnDeactivate:=AppDeactivate;
end;
//Add this event handler manually
procedure TForm1.AppActivate(Sender:TObject);
begin
//Perform task here thate you want to happen every time the application is activated.
end;
//Add this event handler manually
procedure Tform1.AppDeactivate(Sender:TObject);
begin
//Perform task here that you want to happen every time the application is deactivated.
end;
end;
OnException事件
对应对象：TApplication
声明：property OnException:TExceptionEvent;
功能：OnException事件在应用程序出现了一个无法处理的异常时发生。OnException事件类似于异常的全局else，如果用户不明显地处理一个异常，可以通过HandleException来发出OnException事件。缺省时HandleException将调用ShowException，并将出现异常的信息框。如果用户想改变对应的操作，可以对OnException事件添加处理代码。TExceptionEvent的类型是OnException，它可以被声明成为：TExceptionEvent=procedure (Sender:TObject;E:Exception) of Object;
Sender参数声明了产生异常的对象，E参数是异常的信息。
例子：
unit Unit1;
interface
uses
Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;
type
TForml＝class(TForm)
Buttonl:Button;
label1:Tlabel;
procedure FormCreate(Sender:TObject);
procdurc AppException(Sender:Tobect;E: Exception);
procedure ButtonlClick(Sender:TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Fom1: TForml;
X: Integer；
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException:= AppException;
X:=100;
Iabell.Caption:=IntToStr(X);
end;
procedure TForml.AppException(Sender: Tobject;E: Exception);
begin
if Sender＝Button1 then
X:=0;
end;
procedure Tform1.Button1C1ick(Sender：TObject);
var Y:Integer;
begin
Y:=0;
try
X:=X div Y;
except
on ErangeError do
X:=0;
end;
end.
OnHelp事件
对应对象：TApplication
声明： property OnHelp：THelpEvent；
功能：OnHelp事件用于当用户程序出现并接到一个帮助请求时发出帮助。HelpContext和HelpJump方法用于产生OnHelp。如果用户想在每一个帮助执行时执行一些任务，可以创建OnHelp事件的事件处理代码。
OnHint事件
对应对象：TApplication
声明：property OnHint：TNotifyEvent;
功能：当一个指针处于一个组件上，此组件的Hint属性包含有一个有效字符串时，OnHint事件将发生。为了使OhHint事件发生，组件的Hint属性必须包含一个非空的字符串。用户可以使用OnHint事件来执行当该事件发生时用户希望发生的任务。一般情况时，应用程序利用事件窗体状态栏上的Hint字符或帮助信息。
例子：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,Dialogs,
Buttons,ExtCtrls,ComCtrls;
type
TForm1 = class(TForm)
StatusBar1: TStatusBar;
Panel1: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
//manually added handler for the OnHint event
procedure HandleHints(Sender:TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//Set the OnHint event to be handled by HandleHints
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnHint:= HandleHints;
end;
//When an OnHint event occurs,display the hint in the status bar
procedure Tform1.HandleHints(Sender:TObject);
begin
StatusBar1.SimpleText:=Application.Hint;
end;
end.
-
等级
本版专家分：8837
-
OnIdIe事件
对应对象：TApplication
声明： property OnIdle: TIdleEvent；
功能：在应用程序空闲时将发生OnIdle事件，如果用户想在应用程序空闲时处理一些操作，可以将一个事件处理代码添加到OnIdle事件上去。TIdleEvent的类型被声明成为OnIdLe，定义是：TidleEvent=procedure(Senger:Tobject; var Done: Boolean) of object； 其中Done参数缺省时为真，声明应用程序等待系统的信息。当Done参数为假时，应用程序将不处理系统信息。使用OnIdle事件要特别注意，许多应用程序不需要处理这个事件。
例子：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,Dialogs,
ComCtrls,StdCtrls;
type
TForm1 = class(TForm)
StatusBar1: TStatusBar;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure Waiting(Sender:TObject; var Done: Boolean);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//Setup an OnIdle event handler
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnIdle:= Waiting;
end;
//the handler for OnIdle events
procedure Tform1.Waiting(Sender:TObject; var Done: Boolean);
begin
StatusBar1.SimplePanel:=True;
StatusBar1.SimpleText:= ‘OK!Let‘s get going’;
Done:=True；
end;
OnMessage事件
对应对象：TApplication
声明：TMessageEvent＝procedure(var Msg: TMsg; var Handled: Boolean) of object；
property OnMessage: TmessageEvent;
功能：OnMessage事件在应用程序收到一个系统信息时被激发。如果用户想使应用程序对一个特定的信息作出一个特定的响应，则可以对OnMessage事件来创建一个对应的处理代码来完成。应用程序中的许多信息是被自动地处理并由Delphi来为用户传递，采用这个方法可以使用户使用API的方法处理信息。
例子:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,ComCtrls;
type
TForm1 = class(TForm)
ListBox1: TListBox;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure MessageHandler(var Msg:TMsg; var Handled:Boolean);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//Determine the handler for OnMessage
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage:=MessageHandler;
end;
//The OnMessage event handler
procedure Tform1.MessageHandler(var Msg:TMsg;var Handled:Boolean);
begin
ListBox1.Items.Add(‘message recevied’);
If ListBox1.Items.Count>15 then
ListBox1.Clear;
End;
end.
OnMinmize事件
对应对象：TApplication
声明： TNotifyEvent=procedure(Sender:Tobject) of object;
property OnMinimize:TnotifyEvent;
功能：当应用程序被最小化时将发生对应的OnMinimize事件。和一般的TApplication事件一样，当应用程序被最小化时，用户可以创建对应的特定的某些操作任务，并可以通过为OnMinimize事件添加一个特定的处理代码来实现。OnMinimize事件被激发，是由于Minimize方法被调用或应用程序的主窗口的最小化按钮被点击所造成的。
例子：
unit Unit1;
interface
uses
Windows, Messages, SysUtils , Classes, Graphics, Controls, Forms,Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
//manully added method declarations
procedure MinimizeHandler(Sender:TObject);
procedure RestoreApp(Sender:TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//Set custom handlers for the OnMinimize and OnRestore events
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.Title:=’My application’;
Application.OnMinimize:=MinimizeHandler;
Application OnRestore:=RestoreApp;
end;
//Change the app title back when the app is Minimized
procedure Tform1.MinimizeHandler(Sender:TObject);
begin
Application.Title:=’Minimized!’;
End;
//Change the app title back when it is restore
procedure Tform1.RestoreApp(Sender:TObject);
begin
Application.Title:=’My application’
end;
end.
OnRestore事件
对应对象：TApplication
声明： TNotifyEvent＝procedure(Sender:TObject) of object；
property OnRestore:TNotifyEvent;
功能：当一个最小化的应用程序被还原时，OnRestore事件发生。和一般的TApplication事件一样，当应用程序被还原时用户可以创建对应的任务操作，并可以处理对应的OnRestore事件的代码来完成特定的任务。
例子：
unit Unit1;
interface
uses
Windows, Messages, SysUtils , Classes, Graphics, Controls, Forms,Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
//manully added method declarations
procedure MinimizeHandler(Sender:TObject);
procedure RestoreApp(Sender:TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//Set custom handlers for the OnMinimize and OnRestore events
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.Title:=’My application’;
Application.OnMinimize:=MinimizeHandler;
Application.OnRestore:=RestoreApp;
end;
//Change the app title back when the app is Minimized
procedure Tform1.MinimizeHandler(Sender:TObject);
begin
Application.Title:=’Minimized!’;
End;
//Change the app title back when it is restore
procedure Tform1.RestoreApp(Sender:TObject);
begin
Application.Title:=’My application’
end;
end.
- Delphi中关于TApplication类的详解 (转)
Delphi中关于TApplication类的详解 (转)[@more@]Delphi中关于TApplication类的详解 XML:namespace prefix = o ns = "urn:schemas-micros...
- 关于 TApplication 详解 三 ---- TComponent
ComponentCount属性 对应对象：所有组件 声明：property ComponentCount: Integer; 功能：此属性在运行时有效，它是只读型。同时它标明组件具有的组件数。当用户在设计时可以在窗体上放置一个组件，因此此窗体将变为...
- Delphi中TApplication详解（转仅供自己参考）
TApplication是用于Delphi应用程序的类型...TApplication是Delphi构造 Windows应用程序所需的类型，其方法和属性集中包括了Windows操作系统中创建、运行和销毁应用程序等既定的基本操作和属性，因此在用Delphi...
- 关于 TApplication 详解 四 ---- TControl
四、TControl Align 属性 对应对象：TControl 声明：TAlign = (alNone, alTop, alBottom, alLeft, alRight, alClient); property Align: TAlign; 功能：Align属性用来确定控件在它的父类中的对齐方式。...
- Delphi中TApplication详解
TApplication是用于Delphi应用程序的类型，该类...TApplication是Delphi构造 Windows应用程序所需的类型，其方法和属性集中包括了Windows操作系统中创建、运行和销毁应用程序等既定的基本操作和属性，因此在用D...
- 关于 TApplication 详解 一 ---- 继承关系
继承关系： TObject → TPersistent → TComponent TApplication组件的属性: Active AllowTesting DialogHandle ExeName Handle HelpFile Hint HintColor HintHidePause HintPause HintShortPause Icon MainForm Sho...
- 关于 TApplication 详解 二 ---- TCommonDialog
TCommonDia...
- 关于 TApplication 详解 六 ---- TColorDialog
六、TColorDialog ...
- 关于 TApplication 详解 五 ---- Tscreen
五、Tscreen ...
- Delphi中关于TApplication类的详解
Delphi中关于TApplication类的详解 TApplication是Delphi应用程序的类型，该类是从TComponent继承，在单元Forms中声明。并且在Forms中有个公用的对象Application。其方法和属性集中包括了 Windows操作系统中...
- Delphi中的线程类 - TThread详解
Delphi中有一个线程类TThread是用来实现多线程编程的，这个绝大多数Delphi书藉都有说到，但基本上都是对TThread类的几个成员作一简单介绍，再说明一下Execute的实现和Synchronize的用法就完了。...
- delphi中Application.MessageBox函数用法详解
delphi中Application.MessageBox函数用法详解Application.MessageBox是TApplication的成员函数，声明如下：functionTApplication.MessageBox(constText,Caption:PChar;Flags:Longint):Integer;引数：1.Text：要显示...
- TThread类详解<转>
TThread是一个抽象类，可以创建几个独立的线程。类关系 TObject在一个多线程的应用程序中创建一个TThread的后子类代表一个线程。每一新子类的TThread对象的实例是一个新的线程。从TThread派生的多线程实例可以构成...
- (转)TThread 详解
TThread是一个抽象类，可以创建几个独立的线程。类关系 TObject在一个多线程的应用程序中创建一个TThread的后子类代表一个线程。每一新子类的TThread对象的实例是一个新的线程。从TThread派生的多线程实例可以构成...
- Delphi中的线程编程详解
Delphi中有一个线程类TThread是用来实现多线程编程的，这个绝大多数Delphi书藉都有说到，但基本上都是对TThread类的几个成员作一简单介绍，再说明一下Execute的实现和Synchronize的用法就完了。...
- Delphi中的线程类 - TThread详解<转>
Delphi中有一个线程类TThread是用来实现多线程编程的，这个绝大多数Delphi书藉都有说到，但基本上都是对TThread类的几个成员作一简单介绍，再说明一下Execute的实现和Synchronize的用法就完了。...
- 组件制作之托盘详解
在编写一个托盘程序中，往往需要创建、修改、移除托盘图标，从这里开始入手。 一、创建、修改、移除托盘图标，只需调用一个API函数，Shell_NotifyIcon()，这个函数向windows操作系统发送一个消息，要求windows执行...
- Delphi中的线程类 - TThread详解--------http://eelab.gxu.edu.cn/list.asp?unid=542
Delphi中的线程类 - TThread详解--------... Delphi中的线程类 - TThread详解 作者： Delphi中有一个线程类TThread是用来实现多线程编程的，这个绝大多数Delphi书藉都有说到，但基...
- 博客总目录(2007.11.12 - 2010.4.25)
为什么80%的码农都做不了架构师？>>> ...
- 收藏博客
http://www.cnblogs.com/xiaobaihome/archive/2012/03/20/2407979.html silverlight(8)
- delphi控件使用
Standard页 1- Tlistbox控件 重要属性items.* 举例，界面设计如下左，执行结果如下右： 代码为 procedure TForm1.Button1Click(Sender: TObject); begin edit1.Text := listbox1....edit2.Text := listbo...
- 没有双击事件实现的两种形式
一。mouseDown事件下判断 if (ssDouble in Shift) and (ssLeft in Shift) then begin ShowMessage('aa');...启动窗口创建完毕Application.OnMessage := onAppMessage;...消息处理详解 Vcl.Forms.TAppl...
- 2021年五一数学建模题目，带附录，全全
参赛选手亲自上传，保全
- 垃圾分类数据集及代码
资源说明： 数据集主要包括6类图片：硬纸板、纸、塑料瓶、玻璃瓶、铜制品、不可回收垃圾 代码运行说明： 1、 安装运行项目所需的python模块，包括tensorflow | numpy | keras | cv2 2、 train.py用于训练垃圾分类模型，由于训练的数据量过于庞大，因此不一并上传 3、 predict.py用于预测垃圾的类别，首先运行predict.py，然后输入需要预测的文件路径，即可得到结果。
- 大唐杯资料+题库（移动通信）
大唐杯资料+题库（移动通信）
- “互联网+”大学生创新创业大赛项目计划书
填 写 说 明 1.封面上“项目编号”一栏由秘书组编写； 2.项目名称力求简洁、明确，每个项目限报一名负责人； 3.请逐项认真填写； 4.本次大赛必须以团队形式报名参赛，每个团队成员不能少于 3人（包括项目负责人在内）； 5.请将撰写完成后的项目计划书按规定时间提交。
- matlab神经网络30个案例分析
【目录】- MATLAB神经网络30个案例分析(开发实例系列图书) 第1章 BP神经网络的数据分类——语音特征信号分类1 本案例选取了民歌、古筝、摇滚和流行四类不同音乐，用BP神经网络实现对这四类音乐的有效分类。 第2章 BP神经网络的非线性系统建模——非线性函数拟合11 本章拟合的非线性函数为y=x21+x22。 第3章 遗传算法优化BP神经网络——非线性函数拟合21 根据遗传算法和BP神经网络理论，在MATLAB软件中编程实现基于遗传算法优化的BP神经网络非线性系统拟合算法。 第4章 神经网络遗传算法函数极值寻优——非线性函数极值寻优36 对于未知的非线性函数，仅通过函数的输入输出数据难以准确寻找函数极值。这类问题可以通过神经网络结合遗传算法求解，利用神经网络的非线性拟合能力和遗传算法的非线性寻优能力寻找函数极值。 第5章 基于BP_Adaboost的强分类器设计——公司财务预警建模45 BP_Adaboost模型即把BP神经网络作为弱分类器，反复训练BP神经网络预测样本输出，通过Adaboost算法得到多个BP神经网络弱分类器组成的强分类器。 第6章 PID神经元网络解耦控制算法——多变量系统控制54 根据PID神经元网络控制器原理，在MATLAB中编程实现PID神经元网络控制多变量耦合系统。 第7章 RBF网络的回归——非线性函数回归的实现65 本例用RBF网络拟合未知函数，预先设定一个非线性函数，如式y=20+x21-10cos（2πx1）+x22-10cos（2πx2）所示，假定函数解析式不清楚的情况下，随机产生x1,x2和由这两个变量按上式得出的y。将x1,x2作为RBF网络的输入数据，将y作为RBF网络的输出数据，分别建立近似和精确RBF网络进行回归分析，并评价网络拟合效果。 第8章 GRNN的数据预测——基于广义回归神经网络的货运量预测73 根据货运量影响因素的分析，分别取国内生产总值（GDP），工业总产值，铁路运输线路长度，复线里程比重，公路运输线路长度，等级公路比重，铁路货车数量和民用载货汽车数量8项指标因素作为网络输入，以货运总量，铁路货运量和公路货运量3项指标因素作为网络输出，构建GRNN，由于训练数据较少，采取交叉验证方法训练GRNN神经网络，并用循环找出最佳的SPREAD。 第9章 离散Hopfield神经网络的联想记忆——数字识别81 根据Hopfield神经网络相关知识，设计一个具有联想记忆功能的离散型Hopfield神经网络。要求该网络可以正确地识别0~9这10个数字，当数字被一定的噪声干扰后，仍具有较好的识别效果。 第10章 离散Hopfield神经网络的分类——高校科研能力评价90 某机构对20所高校的科研能力进行了调研和评价，试根据调研结果中较为重要的11个评价指标的数据，并结合离散Hopfield神经网络的联想记忆能力，建立离散Hopfield高校科研能力评价模型。 第11章 连续Hopfield神经网络的优化——旅行商问题优化计算100 现对于一个城市数量为10的TSP问题，要求设计一个可以对其进行组合优化的连续型Hopfield神经网络模型，利用该模型可以快速地找到最优（或近似最优）的一条路线。 第12章 SVM的数据分类预测——意大利葡萄酒种类识别112 将这178个样本的50%做为训练集,另50%做为测试集,用训练集对SVM进行训练可以得到分类模型,再用得到的模型对测试集进行类别标签预测。 第13章 SVM的参数优化——如何更好的提升分类器的性能122 本章要解决的问题就是仅仅利用训练集找到分类的最佳参数，不但能够高准确率的预测训练集而且要合理的预测测试集，使得测试集的分类准确率也维持在一个较高水平，即使得得到的SVM分类器的学习能力和推广能力保持一个平衡，避免过学习和欠学习状况发生。 第14章 SVM的回归预测分析——上证指数开盘指数预测133 对上证指数从1990.12.20-2009.08.19每日的开盘数进行回归分析。 第15章 SVM的信息粒化时序回归预测——上证指数开盘指数变化趋势和变化空间预测141 在这个案例里面我们将利用SVM对进行模糊信息粒化后的上证每日的开盘指数进行变化趋势和变化空间的预测。 若您对此书内容有任何疑问，可以凭在线交流卡登录中文论坛与作者交流。 第16章 自组织竞争网络在模式分类中的应用——患者癌症发病预测153 本案例中给出了一个含有60个个体基因表达水平的样本。每个样本中测量了114个基因特征，其中前20个样本是癌症病人的基因表达水平的样本(其中还可能有子类), 中间的20个样本是正常人的基因表达信息样本, 余下的20个样本是待检测的样本(未知它们是否正常)。以下将设法找出癌症与正常样本在基因表达水平上的区别，建立竞争网络模型去预测待检测样本是癌症还是正常样本。 第17章SOM神经网络的数据分类——柴油机故障诊断159 本案例中给出了一个含有8个故障样本的数据集。每个故障样本中有8个特征，分别是前面提及过的：最大压力(P1)、次最大压力(P2)、波形幅度(P3)、上升沿宽度(P4)、波形宽度(P5)、最大余波的宽度(P6)、波形的面积(P7)、起喷压力(P8)，使用SOM网络进行故障诊断。 第18章Elman神经网络的数据预测——电力负荷预测模型研究170 根据负荷的历史数据，选定反馈神经网络的输入、输出节点，来反映电力系统负荷运行的内在规律，从而达到预测未来时段负荷的目的。 第19章 概率神经网络的分类预测——基于PNN的变压器故障诊断176 本案例在对油中溶解气体分析法进行深入分析后，以改良三比值法为基础，建立基于概率神经网络的故障诊断模型。 第20章 神经网络变量筛选——基于BP的神经网络变量筛选183 本例将结合BP神经网络应用平均影响值（MIV，Mean Impact Value）方法来说明如何使用神经网络来筛选变量，找到对结果有较大影响的输入项，继而实现使用神经网络进行变量筛选。 第21章 LVQ神经网络的分类——乳腺肿瘤诊断188 威斯康星大学医学院经过多年的收集和整理，建立了一个乳腺肿瘤病灶组织的细胞核显微图像数据库。数据库中包含了细胞核图像的10个量化特征（细胞核半径、质地、周长、面积、光滑性、紧密度、凹陷度、凹陷点数、对称度、断裂度），这些特征与肿瘤的性质有密切的关系。因此，需要建立一个确定的模型来描述数据库中各个量化特征与肿瘤性质的关系，从而可以根据细胞核显微图像的量化特征诊断乳腺肿瘤是良性还是恶性。 第22章 LVQ神经网络的预测——人脸朝向识别198 现采集到一组人脸朝向不同角度时的图像，图像来自不同的10个人，每人5幅图像，人脸的朝向分别为：左方、左前方、前方、右前方和右方。试创建一个LVQ神经网络，对任意给出的人脸图像进行朝向预测和识别。 第23章 小波神经网络的时间序列预测——短时交通流量预测208 根据小波神经网络原理在MATLAB环境中编程实现基于小波神经网络的短时交通流量预测。 第24章 模糊神经网络的预测算法——嘉陵江水质评价218 根据模糊神经网络原理，在MATLAB中编程实现基于模糊神经网络的水质评价算法。 第25章 广义神经网络的聚类算法——网络入侵聚类229 模糊聚类虽然能够对数据聚类挖掘，但是由于网络入侵特征数据维数较多，不同入侵类别间的数据差别较小，不少入侵模式不能被准确分类。本案例采用结合模糊聚类和广义神经网络回归的聚类算法对入侵数据进行分类。 第26章 粒子群优化算法的寻优算法——非线性函数极值寻优236 根据PSO算法原理，在MATLAB中编程实现基于PSO算法的函数极值寻优算法。 第27章 遗传算法优化计算——建模自变量降维243 在第21章中，建立模型时选用的每个样本（即病例）数据包括10个量化特征（细胞核半径、质地、周长、面积、光滑性、紧密度、凹陷度、凹陷点数、对称度、断裂度）的平均值、10个量化特征的标准差和10个量化特征的最坏值（各特征的3个最大数据的平均值）共30个数据。明显，这30个输入自变量相互之间存在一定的关系，并非相互独立的，因此，为了缩短建模时间、提高建模精度，有必要将30个输入自变量中起主要影响因素的自变量筛选出来参与最终的建模。 第28章 基于灰色神经网络的预测算法研究——订单需求预测258 根据灰色神经网络原理，在MATLAB中编程实现基于灰色神经网络的订单需求预测。 第29章 基于Kohonen网络的聚类算法——网络入侵聚类268 根据Kohonen网络原理，在MATLAB软件中编程实现基于Kohonen网络的网络入侵分类算法。 第30章 神经网络GUI的实现——基于GUI的神经网络拟合、模式识别、聚类277 为了便于使用MATLAB编程的新用户，快速地利用神经网络解决实际问题，MATLAB提供了一个基于神经网络工具箱的图形用户界面。考虑到图形用户界面带来的方便和神经网络在数据拟合、模式识别、聚类各个领域的应用，MATLAB R2009a提供了三种神经网络拟合工具箱（拟合工具箱/模式识别工具箱/聚类工具箱）。
- Microsoft Visual C++ 2015-2019 运行库合集，包含32位64位
Microsoft Visual C++ 2015-2019 运行库合集，32位64位都有，解决缺失dll包问题。
- WordPress博客模板系统开发
不管是html／css，还是bootstrap，这些是让你能够设计网页的。然而网站大部分是动态的，需要持续的更新和维护，所以只是网页是无法实现动态网站的，我们需要把这些静态的网页和我们的数据库建立连接。使用wordpress制作的网站，模板就是连接前端网页和数据库的桥梁，所以这套视频我们就是教你学会模板制作的。 掌握wordpress模板结构，把之前制作的网页制作为一个wordpress模板
- 太空大战游戏实战课程
课程模仿现有一款人气较高的飞行射击类游戏进行同步学习设计，采用标准C++以及OpenGL ES2.0可编程管线技术进行开发设计，课程详细的介绍了一款游戏的制作过程，以及编码过程，从设计到编码，到完成交付，三维立体的展示一款游戏的开发过程，设计细节，实现细节，在实战中学习，结合理论讲解，使得学员能在实战中得到锻炼，积累经验，升华自己。 完成一款飞行射击类游戏，通过实战，掌握一款射击类游戏的组成，掌握OpenGL ES2.0可编程管线技术。