fix bug in RxCloseFormValidate - AV on remove componet from form

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2102 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2011-10-29 07:37:46 +00:00
parent c6de45431d
commit 56f53627bd
1 changed files with 1 additions and 0 deletions
--- a/components/rx/rxcloseformvalidator.pas
+++ b/components/rx/rxcloseformvalidator.pas
@ -345,6 +345,7 @@ var
  i:integer;
 begin
  inherited Notification(AComponent, Operation);
+  if AComponent = Self then exit;
  if Operation = opRemove then
  begin
    for i:=0 to FItems.Count - 1 do