程式語言 - Delphi 7 - Visual Component Library (VCL) - Single Document Interface (SDI) - Create Window



main.dpr

program app;

uses
    Forms, main in 'main.pas' {Form1};

begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
end.

main.pas

unit main;

interface
uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;
type
    TForm1 = class(TForm)
end;

var
    Form1: TForm1;
implementation
{$R *.dfm}

end. 

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 = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    OldCreateOrder = False
    PixelsPerInch = 96
    TextHeight = 13
end

編譯、執行

$ export WINEPREFIX=/home/user/.wine_x86

$ box86 wine dcc32 main.dpr
$ box86 wine main.exe

完成