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

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

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

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

Roy Lambert wrote:

My fault, I don't write a Close method

Thanks.
HJ