Icon View Thread

The following is the text of the current message along with any replies.
Messages 1 to 10 of 15 total
Thread Embedded Forms
Thu, Oct 18 2007 7:55 AMPermanent Link

Roy Lambert

NLH Associates

Team Elevate Team Elevate

Tim (or anyone else really)

After trying MDI and Frames I'm going for the embedded form approach. Seems to work well, and ElasticForm handles it. The one thing I'd like to stop, since they are fairly complex forms, is the partial display before they are fully created and sized. Can you share the code you're using to create your embedded forms in EDBMan please.

Roy Lambert
Thu, Oct 18 2007 10:31 AMPermanent Link

Roy Lambert

NLH Associates

Team Elevate Team Elevate

I've found the trick - set the form to Visible := False in the ide and True AFTER creating and resizing.

Roy Lambert
Thu, Oct 18 2007 2:14 PMPermanent Link

Tim Young [Elevate Software]

Elevate Software, Inc.

Avatar

Email timyoung@elevatesoft.com

Roy,

<< After trying MDI and Frames I'm going for the embedded form approach.
Seems to work well, and ElasticForm handles it. The one thing I'd like to
stop, since they are fairly complex forms, is the partial display before
they are fully created and sized. Can you share the code you're using to
create your embedded forms in EDBMan please. >>

I'm not seeing anything like that with the ManualDock approach - the forms
just pop right up in the page control.

--
Tim Young
Elevate Software
www.elevatesoft.com

Thu, Oct 18 2007 2:23 PMPermanent Link

Roy Lambert

NLH Associates

Team Elevate Team Elevate

Tim


"ManualDock approach" - uh?


Roy Lambert
Fri, Oct 19 2007 2:44 PMPermanent Link

Tim Young [Elevate Software]

Elevate Software, Inc.

Avatar

Email timyoung@elevatesoft.com

Roy,

<< "ManualDock approach" - uh? >>

Yes, like this:

procedure TMainForm.OpenButtonClick(Sender: TObject);
var
  NewSQLForm: TSQLForm;
begin
  OpenSQLDialog.InitialDir:=SQLPath;
  if OpenSQLDialog.Execute then
     begin
     NewSQLForm:=nil;
     for I:=0 to OpenSQLDialog.Files.Count-1 do
        begin
        SQLPath:=ExtractFilePath(OpenSQLDialog.Files[I]);
        NewSQLForm:=TSQLForm.Create(MainPageControl);
        with NewSQLForm do
           begin
           ManualDock(MainPageControl,nil,alClient);

--
Tim Young
Elevate Software
www.elevatesoft.com

Sat, Oct 20 2007 3:22 AMPermanent Link

Roy Lambert

NLH Associates

Team Elevate Team Elevate

Tim

Interesting. I use this:

procedure MakeForm(Archetype: TFormClass; Location: TAdvOfficePage);
var
 tmpForm: TForm;
begin
 LastFormKey := FormTag;
 Application.CreateForm(Archetype, tmpForm);
 tmpForm.BorderIcons := [];
 tmpForm.BorderStyle := bsNone;
 tmpForm.Parent := Location;
 frmHndl[FormTag] := tmpForm.Handle;
 tmpForm.Show;
 IsCreated[FormTag] := True;
 tmpForm.Align := alClient;
 tmpForm.Visible := True;
// tmpForm.AdvFormStyler1.Style := MasterStyler.Style;
end;


Roy Lambert
Mon, Oct 22 2007 2:14 PMPermanent Link

Tim Young [Elevate Software]

Elevate Software, Inc.

Avatar

Email timyoung@elevatesoft.com

Roy,

<< Interesting. I use this: >>

Yep, the ManualDock way is just a little shortcut to the same thing.

--
Tim Young
Elevate Software
www.elevatesoft.com

Wed, Oct 24 2007 2:39 AMPermanent Link

"Bobby Gallagher"
Hi Roy

Have a look at the LMD SE set of components.  They have a "FormDisplay"
component that does exactly what you want.  It also has an option to save
resources for forms that are not displayed

www.lmdtools.com

Regards

Bobby


"Roy Lambert" <roy.lambert@skynet.co.uk> wrote in message
news:070E1B59-20D2-440D-BE98-86A7EFA0D67D@news.elevatesoft.com...
> Tim
>
>
> "ManualDock approach" - uh?
>
>
> Roy Lambert
>

Mon, Oct 29 2007 9:34 AMPermanent Link

Roy Lambert

NLH Associates

Team Elevate Team Elevate

Tim


I've just discovered one problem with the embedded forms approach - FormActivate doesn't fire. What do you do about that?

Roy Lambert
Mon, Oct 29 2007 12:13 PMPermanent Link

Fire it from the tab change?

/Matthew Jones/
Page 1 of 2Next Page
Jump to Page:  1 2
Image