zugriffsverletzung bei aufruf von destroy

[marabu]

Wenn ein Datenmodul Owner der ChildForms ist, dann geht das hier:

Delphi-Quellcode:

procedure TChildForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  with Owner as TDataModule do
    if Tag = 0 then
    begin
      Tag := 1;
      Free;
    end else Action := caFree;
end;

marabu