Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » Elevate Web Builder Technical Support » Incident Reports » Incident Reports Reported for Version 2.05 » View Incident Report |
Serious |
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, March 20, 2024 at 07:22 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |