＋设为首页 ＋添加到收藏夹
我编了一个小小的delphi程序，希望在最小化form时，加入一段代码，应该怎么做？
OnMinimize事件里面处理。缺省是没有的，你需要重载这个事件
请参考:
procedure TForm1.FormResize(Sender: TObject);
begin
if self.WindowState in [wsMaximized] then
showmessage()
end;
可以在Form中的OnCanResize事件中加入代碼判斷試一下。我沒做過。
同意lydwei() 的说法！
截获消息：
public
procedure wmsyscommand(var msg:Twmsyscommand);message wm_syscommand;
procedure Tform1.wmsyscommand(var msg:Twmsyscommand);
begin
if msg.cmdtype=sc_minimize then
end;
可以在触发窗口最小化的windows 消息时写入你的代码
/////这样也可以。
///////////////////////////////////////////////////
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
Procedure OnMinimize(Sender: TObject);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMinimize:=OnMinimize;
end;
procedure TForm1.OnMinimize(Sender: TObject);
begin
beep;
end;
end.
