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

← →
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;

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