From 4e23b915756617cac9c6c413c14106d066085d74 Mon Sep 17 00:00:00 2001 From: plugwash Date: Sun, 15 Feb 2009 03:19:42 +0000 Subject: [PATCH] fix a small error git-svn-id: file:///svnroot/lcore/trunk@39 b1de8a11-f9be-4011-bde0-cc7ace90066a --- lmessages.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lmessages.pas b/lmessages.pas index d6e3745..3aafdca 100755 --- a/lmessages.pas +++ b/lmessages.pas @@ -417,7 +417,7 @@ begin finally structurelock.release; end; - if windowproc <> nil then begin + if assigned(windowproc) then begin result := windowproc(lpmsg.hwnd,lpmsg.message,lpmsg.wparam,lpmsg.lparam); end else begin result := -1; -- 2.30.2