1]选中对应的Form,
2]在Object Inspector里的Name修改,
3]回车,即可.
Delphi的IDE对应做了以下五处修改:
{===================在.dpr===================}
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {DFGSDGF};//Unit1 in 'Unit1.pas' {Form1}; 第1/5处
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TDFGSDGF, DFGSDGF);// Application.CreateForm(TForm1, Form1); 第2/5处
Application.Run;
end.
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {DFGSDGF};//Unit1 in 'Unit1.pas' {Form1}; 第1/5处
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TDFGSDGF, DFGSDGF);// Application.CreateForm(TForm1, Form1); 第2/5处
Application.Run;
end.
{===================在.pas===================}
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TDFGSDGF = class(TForm) //TForm1 = class(TForm) 第3/5处
private
{ Private declarations }
public
{ Public declarations }
end;
var
DFGSDGF: TDFGSDGF; //Form1: TForm1; 第4/5处
implementation
{$R *.dfm}
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TDFGSDGF = class(TForm) //TForm1 = class(TForm) 第3/5处
private
{ Private declarations }
public
{ Public declarations }
end;
var
DFGSDGF: TDFGSDGF; //Form1: TForm1; 第4/5处
implementation
{$R *.dfm}
end.
{====================在.dfm===================}
object DFGSDGF: TDFGSDGF //object Form1: TForm1 第5/5处
Left = 251
Top = 99
Width = 696
Height = 480
Caption = 'DFGSDGF'
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
object DFGSDGF: TDFGSDGF //object Form1: TForm1 第5/5处
Left = 251
Top = 99
Width = 696
Height = 480
Caption = 'DFGSDGF'
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