Реакция на минимизацию формы перед тем как произойдет изменение размера

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

type

TForm1 = class(TForm)

private

{Private declarations}

procedure WMSysCommand(var Msg: TWMSysCommand);

message WM_SYSCOMMAND;

public

{Public declarations}

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMSysCommand;

begin

if (Msg.CmdType = SC_MINIMIZE) or (Msg.CmdType = SC_MAXIMIZE) then

MessageBeep(0)

else

inherited;

end;

{/codecitation}

Добавить комментарий