Скачать: CL | DM;

В програме много форм, я не хочу их криейтить все сразу!!   Найти похожие ветки 

← →
Relaxxx   (2004-11-15 11:00) [0]

В програме много форм, я не хочу их криейтить все сразу, поэтому когда нажимается кнопка вначале форма криэйтится, а потом показывается. Подскажите как сделать чтобы я не создавал форму всегда при нажатии кнопки, а если она создана, то просто открыл её!

---

← →
Юрий Зотов ©   (2004-11-15 11:09) [1]

type
 TForm2 = class(TForm)
   ...
 public
   constructor Create(AOwner: TComponent); overrride;
   destructor Destroy; override;
 end;

// Вместо вызова конструктора всегда вызываем эту функцию:
function Form2(AOwner: TComponent): TForm2;

implementation

var
 _Form2: TForm2;

function Form2(AOwner: TComponent): TForm2;
begin
 if _Form2 = nil then
   Result := TForm2.Create(AOwner)
 else
   Result := _Form2
end;

constructor TForm2.Create(AOwner: TComponent);
begin
 inherited;
 if _Form2 = nil then
   _Form2 := Self
end;

destructor TForm2.Destroy; override;
begin
 if _Form2 = Self then
   _Form2 := nil;  
 inherited
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c