Project: DfmTest.dproj |
Project Structure |
|
DfmTest.dpr |
program DfmTest;
uses
Forms,
DfmTest_MainForm in 'DfmTest_MainForm.pas' {FormDfmTest},
DfmTest_Second in 'DfmTest_Second.pas' {FormSecond};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TFormDfmTest, FormDfmTest);
Application.CreateForm(TFormSecond, FormSecond);
Application.Run;
end. |
DfmTest_MainForm.pas |
unit DfmTest_MainForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TFormDfmTest = class(TForm)
Button1: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormDfmTest: TFormDfmTest;
implementation
{$R *.dfm}
end. |
DfmTest_MainForm.pas.dfm |
object FormDfmTest: TFormDfmTest
Left = 0
Top = 0
Caption = 'FormDfmTest'
ClientHeight = 265
ClientWidth = 450
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Button1: TButton
Left = 176
Top = 104
Width = 75
Height = 25
Caption =
TabOrder = 0
end
end |
DfmTest_Second.pas |
unit DfmTest_Second;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TFormSecond = class(TForm)
Buttonあい : TButton;
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormSecond: TFormSecond;
implementation
{$R *.dfm}
end. |
DfmTest_Second.pas.dfm |
object FormSecond: TFormSecond
Left = 0
Top = 0
Caption = 'FormSecond'
ClientHeight = 292
ClientWidth = 554
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Buttonあい : TButton
Left = 224
Top = 112
Width = 75
Height = 25
Caption =
TabOrder = 0
end
end |
HTML file generated by PasToWeb, a tool by Marco Cantù
Copyright 2008 Marco Cantù |
|