bb.donnay-software.com

Posted: **Sat Jun 12, 2010 6:12 pm**

I have another issue that's baffles me (as most of programmig does).

I want to tie a child dialog box to the parent so that when the parent is moved, thechild opens over it, not over center of the screen.

I know there's a real simple method for that... it's like the jitterbug - it plumb evades me (with apologies to Jimmy buffet).

I assume it has to do with naming the dialog or something similar.

real simple example below:
*********************************************************
PROCEDURE AppSys

LOCAL oDlg

RETURN
********************************************************************
procedure MAIN(cVar)
local dir1 := space(30)

RegForm()
return

*********************************************************************
procedure RegForm()
local getlist:={}

@ 1.5, 2 dcsay 'Form 1'

@3, 2 DCPUSHBUTTON CAPTION 'Form2' ;
SIZE 10,1 ;
ACTION {||Form2()}

dcread gui fit;
setappwindow;
title "First Form";
enterexit

return
**************************************
procedure Form2()

@ 3, 2 dcsay 'Form 2'

@3, 2 DCPUSHBUTTON CAPTION 'Exit' ;
SIZE 10,1 ;
ACTION {||quit()}

dcread gui fit;
setappwindow;
title "Second Form";
enterexit
return
**************************************
procedure quit()

QUIT
return

********************************************************
as always I bow with humility to you great wizards!

Posted: **Sat Jun 12, 2010 9:42 pm**

Code: Select all

oAppWindow := SetAppWindow()

dcread gui fit;
modal ;
setappwindow;
title "Second Form";
enterexit ;
EVAL {|o|DC_CenterObject(o,oAppWindow)

bb.donnay-software.com

Another simple thing (for you wizards)

Another simple thing (for you wizards)

Re: Another simple thing (for you wizards)