我是这样做的
一.添加一个Formunit Main;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
myshow = class(TForm) //这里我改了
private
{ Private declarations }
public
{ Public declarations }
end;var
yshow: myshow;//这里我改了implementation{$R *.dfm}end.二.这里我也改了program MySystem;uses
Forms,
Main in 'Main.pas'; //{Form5};{$R *.res}begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(myshow, yshow);//这里也改了
Application.Run;
end.
三.这里也改了
object yshow: myshow
Left = 0
Top = 0
Caption = 'Form5'
ClientHeight = 359
ClientWidth = 722
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
end
结果不能设计窗体了,这里object yshow: myshow老是给我变名字,yshow就是系统自动变的初学,多指教!!!
一.添加一个Formunit Main;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
myshow = class(TForm) //这里我改了
private
{ Private declarations }
public
{ Public declarations }
end;var
yshow: myshow;//这里我改了implementation{$R *.dfm}end.二.这里我也改了program MySystem;uses
Forms,
Main in 'Main.pas'; //{Form5};{$R *.res}begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(myshow, yshow);//这里也改了
Application.Run;
end.
三.这里也改了
object yshow: myshow
Left = 0
Top = 0
Caption = 'Form5'
ClientHeight = 359
ClientWidth = 722
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
end
结果不能设计窗体了,这里object yshow: myshow老是给我变名字,yshow就是系统自动变的初学,多指教!!!
type
TForm1 = class(TForm)//没有变
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;//没有变
我引用的话还是TForm1.???
我要改类名如TForm1=TForm1lass(TForm)中的Tform1,怎么办?