Delphi 元件建立與釋放
var component1
begin
component1 := Tcomponent.Create(Owner);
Owner = nil --> xxx.Free; 自己釋放
Owner <> nil --> xxx 由Owner 釋放 ,不用自己釋放
....
end;
//必須是繼承自TComponent
// Create(Owner: TComponent) 才有Owner
//Tchildcpmponent = class(TComponent);
// TObject ,TPersistent
//Create; 無Owner 必須自己釋放
沒有留言:
張貼留言