다음과 같이 선언하시구요..
procedure wmSysCommand(var Msg: TMessage); message WM_SYSCOMMAND;
다음과 같이 사용하시면 될듯하네요..
procedure TfrmNote.wmSysCommand(var Msg: TMessage);
begin
if (Msg.WParam = SC_CLOSE) then
begin
// 종료 이벤트
end else if (Msg.WParam = SC_MINIMIZE) then
begin
//최소화 이벤트
end
else
DefaultHandler(Msg);
end;
다음과 같이 선언하시구요..
procedure wmSysCommand(var Msg: TMessage); message WM_SYSCOMMAND;
다음과 같이 사용하시면 될듯하네요..
procedure TfrmNote.wmSysCommand(var Msg: TMessage);
begin
if (Msg.WParam = SC_CLOSE) then
begin
// 종료 이벤트
end else if (Msg.WParam = SC_MINIMIZE) then
begin
//최소화 이벤트
end
else
DefaultHandler(Msg);
end;