ProWinHandle property (Windows only; GUI for .NET only) The handle to one of the following ABL window widgets: The shadow window associated with a .NET form that is used for parenting relationships between ABL windows and .NET forms. ABL creates a shadow window for every .NET form that you instantiate from the Progress.Windows.Form class. An ABL window that is accessible from its associated Progress.Windows.FormProxy object. ABL creates an instance of this object for every ABL window that you create in a session that accesses .NET forms. This property is used when mixing ABL windows and .NET forms in a single application. Data type: HANDLE Access: PUBLIC Read-only Applies to: Progress.Windows.Form class, Progress.Windows.FormProxy class, Progress.Windows.IForm interface The following example shows a class that creates and displays a .NET form and an ABL window, and parents the form to the window: USING System.Windows.Forms.* FROM ASSEMBLY. USING Progress.Windows.* FROM ASSEMBLY. DEFINE VARIABLE win1 AS HANDLE NO-UNDO. DEFINE VARIABLE form1 AS Progress.Windows.Form NO-UNDO. /* Create a form */ form1 = NEW Progress.Windows.Form(). form1:TEXT = "Form1". form1:Show(). /* Create a window */ CREATE WINDOW win1 ASSIGN TITLE = "Win1" HEIGHT-CHARS = 5 WIDTH-CHARS = 35 VISIBLE = TRUE SENSITIVE = TRUE. /* Make the form the parent of the window */ win1:PARENT = form1:ProWinHandle. WAIT-FOR Application:RUN( form1 ). DELETE WIDGET win1. For more information on using ABL windows along with .NET forms in your application, see OpenEdge Development: GUI for .NET Programming.
USING System.Windows.Forms.* FROM ASSEMBLY.
USING Progress.Windows.* FROM ASSEMBLY.
DEFINE VARIABLE win1 AS HANDLE NO-UNDO.
DEFINE VARIABLE form1 AS Progress.Windows.Form NO-UNDO.
/* Create a form */
form1 = NEW Progress.Windows.Form().
form1:TEXT = "Form1".
form1:Show().
/* Create a window */
CREATE WINDOW win1 ASSIGN
TITLE = "Win1"
HEIGHT-CHARS = 5
WIDTH-CHARS = 35
VISIBLE = TRUE
SENSITIVE = TRUE.
/* Make the form the parent of the window */
win1:PARENT = form1:ProWinHandle.
WAIT-FOR Application:RUN( form1 ).
DELETE WIDGET win1.