Выполнить процедуру

[bulldog5293]

Всем привет, решил вынести в процедуру то что раньше делал по нажатию кода, да бы ути от прямой связи с vcl, но столкнулся с траблом

procedure chopik();
begin
  IF BBUX = NIL THEN
    BBUX := BBUX.Create(owner);
  begin
    with BBUX do
    begin
  BBUX.show;
end;
end;
end;

IDE ругается на owner

[Баламут]

Да собственно я бы то же выматерился. Что такое ВВUX? Где и как этот код используется? Без VCL, говоришь? А какого тогда owner трогаешь? Как видишь у меня к тебе больше вопросов, чем у тебя к нам.

[_-Re@l-_]

with BBUX do
    begin
  BBUX.show;

Три гениальные строки кода.
Вы вообще знаете, зачем нужен with?

[какtus]

with BBUX do
begin
    BBUX.show;
end;

Масло масляное получается.
Надо:

with BBUX do
begin
    show;
end;

[_-Re@l-_]

какtus, я об этом же писал.

[GunSmoker]

Метод <> процедура. Дальше - F1.

[chertovich]

procedure chopik();
begin
  if not Assigned(BUX) then
  begin    
    BUX := TBUX.Create(owner);
 
    with BUX do
    begin
      Show;
    end;

  end;
end;

[какtus]

Сообщение от _-Re@l-_

какtus, я об этом же писал.

Знаю, я просто показал как надо.

[bulldog5293]

Спасибо всем кто откликнулся, и особенно chertovich, а про vcl я имел ввиду что хочу избавиться от выполнения операций в обработчике кнопки, т.е. что бы в отдельную процедуру вынести

Извеняюсь, вопрос всё равно открыт. По совету chertovich, у меня всё равно не открывается вторая форма, код в принцепе у меня был такой

var
r:string;
begin
if (Length(r)=1) then
begin
  r:='';
  Tform2.hide
end
  else
if (Length(r)=0) then
begin
r:='1';
  IF Tform2= NIL THEN
    Tform2 := Tform2.Create(owner);
  begin
    with Tform2 do
    begin
  Tform2.show;
       end;
  end;
end;
end;

А вынести в отдельную процедуру я хотел, и.з. того что бы при своей бранной не акуратности не переписывать всё повторно

[chertovich]

1. Не путайте экземпляр класса (Form2) и сам класс (TForm2)