程式語言 - C++ Builder 6 - Visual Component Library (VCL) - Single Document Interface (SDI) - Create Window


main.cpp

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
#pragma resource "*.dfm"
 
#include <vcl.h>
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
 
USEFORM("main.cpp", Form1);
 
class TForm1 : public TForm
{
public:
    __fastcall TForm1(TComponent* Owner);
};
 
TForm1 *Form1;
 
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
}
 
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
    Application->Initialize();
    Application->CreateForm(__classid(TForm1), &Form1);
    Application->Run();
    return 0;
}

main.dfm 

object Form1: TForm1
    Left = 0
    Top = 0
    Width = 300
    Height = 300
    Caption = 'main'
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    OldCreateOrder = False
    PixelsPerInch = 144
    TextHeight = 20
end

編譯、執行 

$ export WINEPREFIX=/home/user/.wine_x86

$ box86 wine make -f main.mak

完成