On Mon, 11 Feb 2013 09:19:58 -0500 Timothy Groves <[email protected]> wrote:
> So when I call TfrmNewChapter.ShowModal, it works the first time. But > when I call it the second time, I get an exception. The form is closed > with the OK or Cancel buttons; their methods are given below. What am > I doing wrong? > > > procedure TfrmNewChapter.btnCancelClick(Sender: TObject); > begin > txtChapterTitle.Text := ''; > frmNewChapter.Hide; Do not hide the form yourself. That's done by ShowModal. Set the ModalResult. ModalResult:=mrCancel; > end; > > procedure TfrmNewChapter.btnOKClick(Sender: TObject); > var > s : string; > begin > if (txtChapterTitle.Text <> '') then begin > NewChapter (txtChapterTitle.Text); > txtChapterTitle.Text := ''; > str (ChapterCount, s); > while (length (s) < 4) do > s := '0' + s; > Chapter^.Filename := Story^.ShortName + s; > PopulateChapterList; > frmNewChapter.Hide; ModalResult:=mrOk; > MarkChapterListDirty; > end; > end; Mattias -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
