Changeset 461 for trunk/Include/Classes/System/Windows/Forms/Application.ab

Timestamp:

Mar 8, 2008, 12:40:31 PM (16 years ago)

Author:

dai

Message:

Form周りを整理。一旦コミット。

File:

• trunk/Include/Classes/System/Windows/Forms/Application.ab (modified) (1 diff)

trunk/Include/Classes/System/Windows/Forms/Application.ab

@@ -31 +31 @@
         PostQuitMessage(0)
     End Sub
+
+    /*!
+    @brief  現在のスレッドで標準のアプリケーション メッセージ ループの実行を開始し、
+            指定したフォームを表示します。
+    */
+    Static Sub Run( form As Form )
+
+        ' フォームを表示する
+        form.Show()
+
+        Dim msgMain As MSG, iResult As Long
+        Do
+            iResult=GetMessage(msgMain,0,0,0)
+            If iResult=0 or iResult=-1 Then Exit Do
+            TranslateMessage(msgMain)
+            DispatchMessage(msgMain)
+        Loop
+    End Sub
 End Class