>So is it possible to create a class extension that would tell us if a
>window of a particular type is showing? I was thinking of something
>like:
>
>------------------------------------------------------------
>Function IsShowing(Extends w as Window) As Boolean
> dim c,i as integer
>
> c = WindowCount-1
>
> for i = 0 to c
> if window(i) isa w and w.visible then
> return true
> end if
> next i
>
> return false
>End Function
>-------------------------------------------------------------
>
>This gives me an compilation error of:
>
>There is no class with this (w) name
>Code, Windows.IsShowing, line 6, if window(i) isa w and w.visible then
>
>GregO
>
>_______________________________________________
>Unsubscribe or switch delivery mode:
><http://www.realsoftware.com/support/listmanager/>
>
>Search the archives:
><http://support.realsoftware.com/listarchives/lists.html>
I think you should define "Window" in a module or as a property in App.
And your function should be implemented in App.
Hope this may help.
JL Arnaud
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives:
<http://support.realsoftware.com/listarchives/lists.html>
|