![]() | ![]() Products ![]() ![]() ![]() ![]() |
Home » Technical Support » Elevate Web Builder Technical Support » Incident Reports » Incident Reports Reported for Version 2.05 » View Incident Report |
![]() |
Reported By: Michael Dreher Reported On: 9/14/2016 For: Version 2.05 Build 4 |
// handle button click to call a modal form procedure TfmMain.btnEnterDMCClick(Sender: TObject); begin EnableSearchButtons(false); fmEnterDMC := TfmEnterDMC.Create(NIL); // create the form fmEnterDMC.OnClose := OnDmcClose; // the OnClose handler for later freeing the closed modal form fmEnterDMC.Enter; // call a member procedure that calls ShowModal end; // free the closed modal form when it returns procedure TfmMain.OnDmcClose(Sender: TObject); begin ShowMessage('OnDmcClose'); fmEnterDMC.Free; EnableSearchButtons(true); end; ----------------------------------- // in the called form call ShowModal procedure TfmEnterDMC.Enter; begin ShowModal; end; Thert is a button in the modal form, when clicked calls "Close". procedure TfmEnterDMC.btnSearchClick(Sender: TObject); begin Close; end;
This web page was last updated on Wednesday, February 8, 2023 at 07:22 AM | Privacy Policy![]() © 2023 Elevate Software, Inc. All Rights Reserved Questions or comments ? ![]() |