How to get current form name

[Tom Patten]

I need to get the name of the current form and the caption name found on the window tab of the form properties.

I want to find out what forms are being used in my app, so I plan to add code to the OnInit event to write the form name or caption to a table.

Thanks,

~ Tom

[Stan Mathews]

Re: How to get current form name

In the oninit you could use this.name and this.window_title.

I tested that as button code but it doesn't work properly in the oninit because the window has not been initialized at that point.

What I use is code for the button that opens the form.

button_name = this.name 'button object name reflects form to be opened
form_name - parentform.name 'calling form
op_write(button_name,form_name)

The op_write() function


FUNCTION op_write AS L (operation AS C, origin as C )
op_tbl = table.open("op_trace",FILE_RW_EXCLUSIVE)
op_tbl.enter_begin()
op_tbl.Op = operation
op_tbl.Date_op = time("mon dd, yyyy 0h:0m am",now())
op_tbl.Origin = origin
op_tbl.user = api_getmachinename()
op_tbl.enter_end(.t.)
op_tbl.close()
op_write = .t.
END FUNCTION

I suppose you could do what you want in the onexit event. After all, the form was accessed if it is being exited.

Note: This.name doesn't seem to work in the onexit or canexit.

[MoGrace]

Re: How to get current form name

Selwyn helped me with a function to get a list of open windows into a toolbox panel. From this docked toolbar I can activate one of the windows or close the window with a doubleclick event in the xdialog. I am using a global variable u_code to test the permission level of the logged in user so only a level 3 user can close the Home form ( Caption = 'Main Menu') and display the control panel.

function list_open_windows as c ()
'DESCRIPTION:Returns a CRLF list of all open window names
'LIMITATIONS:X
'by Selwyn 06/16/2016
xx = a5_window_list()
xx = stritran(xx,"a5_controlpanel_activate()","ControlPanel.activate()")
xx=*for_each(x,word(word_i(x,2,"{DATA=!"),1,"}"),xx)
xx = stritran(xx,".activate()","")
xx = stritran(xx,"obj(","")
xx = stritran(xx,")","")
xx = stritran(xx,"\"","")
list_open_windows = xx
end function

This is the sub-function used in the xdialog List_dblclick event winlist.jpg

'//t. WinList Sub Function
function winlist as c (loc_vars as p)
WITH loc_vars	
winlist = ""
dim wptr as p
dim openlist as c = ""
dim vc as c = ""
dim wlist as c

wlist = list_open_windows()

if u_code <> "3" then
	'allows only developer to display and close HOME, also
	'contolpanel and code editor hidden by default when HOME is open
	'except for developer
	wlist = word_subtract(wlist,"HOME")
end if

for each foo in wlist
	if foo.value = "" then
		foo.value = cur_frm
	end if
	'display the window caption instead of the form name
	fname = alltrim(foo.value)
	wptr = obj(fname)
	if is_object(fname) then
		if wptr.class() = "form" then 
			vc = convert_expression(":"+fname+".window_title","V")
			wname = eval(vc)				
			wname= "{Data="+fname+"}"+wname
		else if wptr.class() = "browse" then
			vc = convert_expression(":"+fname+".name()","V")
			wname = eval(vc)				
			wname= "{Data="+fname+"}"+wname
		else
			wname = fname
		end if
	end if
	openlist = openlist+crlf()+wname
next
openlist = remove_blank_lines(openlist)
winlist = openlist
END WITH
end function

I liked the Open Window panel that QuickBooks uses and wanted to create something similar in Alpha. Which may not be what you want...

[Tom Patten]

Re: How to get current form name

Thanks Stan and Robin.

I'm getting there. And Stan, the Oninit is pickingup the form name.

I'm capturing the opening of the app on the Autoexec script. Where would I pick up the info when the app is closed?

~ Tom

[Stan Mathews]

Re: How to get current form name

Probably ON_DATABASE_EXIT().

[Tom Patten]

Re: How to get current form name

Thanks Stan. That did it. Mission accomplished!

~ Tom