[Lazarus] Setting ModalResult

[Mattias Gaertner]

Salvatore Coppola <coppolastudio at gmail.com> hat am 14. März 2012 um 11:57
geschrieben:

> Set in the Object Inspector Borderstyle to bsDialog and the form
> behavior should be what you need



BorderStyle has nothing to do with ModalResult.

This is enough to close a modal dialog:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ModalResult:=mrOk;
end;
Note:
When a button's Modalresult is set, it will do the above when clicked.
Setting the Button1.ModalResult alone will not close the form.

Mattias


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20120314/f97023ac/attachment-0003.html>