1
11moom11
Unregistered / Unconfirmed
GUEST, unregistred user!
type
TForm_login = class(TForm)
Image1: TImage;//为什么不用创建 Image1:= TImage.create
Label1: TLabel;//同上
Edit1: TEdit;// 同上
private
{ Private declarations }
procedure Drawpict;
public
{ Public declarations }
end;
var
Form_login: TForm_login;
implementation
procedure TForm_login2.Drawpict;
var x,y:integer;
bitmap:Tbitmap;
begin
bitmap:=Tbitmap.Create;//这里,为什么要创建一个实例,如果把它放到
// TForm_login = class(TForm)结构中去是否就不用创建
//-----------------------------------------------------
第二个问题:在FROM上放有若干控件,怎样查看这些控件的继承图?
TForm_login = class(TForm)
Image1: TImage;//为什么不用创建 Image1:= TImage.create
Label1: TLabel;//同上
Edit1: TEdit;// 同上
private
{ Private declarations }
procedure Drawpict;
public
{ Public declarations }
end;
var
Form_login: TForm_login;
implementation
procedure TForm_login2.Drawpict;
var x,y:integer;
bitmap:Tbitmap;
begin
bitmap:=Tbitmap.Create;//这里,为什么要创建一个实例,如果把它放到
// TForm_login = class(TForm)结构中去是否就不用创建
//-----------------------------------------------------
第二个问题:在FROM上放有若干控件,怎样查看这些控件的继承图?