![]() | ![]() Products ![]() ![]() ![]() ![]() |
Home » Technical Support » DBISAM Technical Support » Support Forums » DBISAM General Discussion » View Thread |
Messages 11 to 15 of 15 total |
![]() |
Mon, Oct 29 2007 12:48 PM | Permanent Link |
Roy Lambert NLH Associates ![]() | Matthew
That was my first thought - didn't work. What I'm doing now is sending a custom message to the form which in turn fires the FormActivate event - cacky but it works. Roy Lambert |
Mon, Oct 29 2007 2:08 PM | Permanent Link |
Tim Young [Elevate Software] Elevate Software, Inc. ![]() | Roy,
<< I've just discovered one problem with the embedded forms approach - FormActivate doesn't fire. What do you do about that? >> I don't use it, so I didn't run into that issue. ![]() -- Tim Young Elevate Software www.elevatesoft.com |
Tue, Oct 30 2007 12:57 AM | Permanent Link |
HJ | Roy Lambert wrote:
> Tim > > > I've just discovered one problem with the embedded forms approach - FormActivate doesn't fire. What do you do about that? Sorry to jump in. May be I'm wrong but I found, if the PageControl have a close button, FormClose also not fire when I close the tab by clicking the close button. I'm using DevEx's PageControl. > > Roy Lambert > HJ |
Tue, Oct 30 2007 4:48 AM | Permanent Link |
Roy Lambert NLH Associates ![]() | HJ
I'm using TMS and the FormClose event does fire when I click the close button - here's the code I'm using procedure TMainForm.FormControllerClosePage(Sender: TObject; PageIndex: Integer; var Allow: Boolean); var Cntr: integer; TagNo: integer; begin TagNo := FormController.ActivePage.Tag; Allow := TagNo > tagCallbacks; if FormController.Tag = 1 then begin for Cntr := 0 to Application.ComponentCount - 1 do begin if (Application.Components[Cntr] is TForm) and (TForm(Application.Components[Cntr]).Tag > 0) then begin if TForm(Application.Components[Cntr]).Parent = FormController.ActivePage then begin TForm(Application.Components[Cntr]).Close; end; end; end; if (not Allow) and (not IsCreated[TagNo]) then begin SwitchCloseForOpen; end; end else begin LoadPrimaryForm(TagNo, False); end; end; I use the button to close the form if its created, and create it if it isn't Roy Lambert |
Tue, Oct 30 2007 8:30 AM | Permanent Link |
HJ | Roy Lambert wrote:
My fault, I don't write a Close method ![]() Thanks. HJ |
« Previous Page | Page 2 of 2 | |
Jump to Page: 1 2 |
This web page was last updated on Monday, June 30, 2025 at 12:49 PM | Privacy Policy![]() © 2025 Elevate Software, Inc. All Rights Reserved Questions or comments ? ![]() |