paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 03:56:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

prevent premature window destroy by default wm_close

Browse Source 
git-svn-id: trunk@5076 -
This commit is contained in:
micha 2004-01-19 21:51:50 +00:00
parent a38e93a1a7
commit b4b93ea7dd
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/win32/win32callback.inc
View File

@ -353,6 +353,8 @@ Begin
WM_CLOSE:
Begin
LMessage.Msg := LM_CLOSEQUERY;
// default is to destroy window, inhibit
WinProcess := false;
End;
WM_COMMAND:
Begin
@ -974,6 +976,9 @@ end;
{
$Log$
Revision 1.88 2004/01/19 21:51:50 micha
prevent premature window destroy by default wm_close
Revision 1.87 2004/01/12 08:20:50 micha
implement overlay window for designer