不行的啊,我刚才试了。
可以这样做(代码)
unit Main;
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Menus;
type
TMainForm = class(TForm)
private
procedure wmmini(var msg:TWMSysCommand);message wm_syscommand;
end;
var
MainForm: TMainForm;
implementation
{$R *.DFM}
{ TMainForm }
procedure TMainForm.wmmini(var msg: TWMSysCommand);
begin
if msg.CmdType=SC_MINIMIZE then
begin
width:=70;
height:=0;
left:=0;
top:=screen.Height-30;
end
else
inherited;
end;
end.