Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 31.07.2011, 19:16   #11
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
Извеняюсь, вопрос всё равно открыт.
Ану ка еще раз внимательно перечитай пост GunSmoker-а, и ответь на вопрос: Что есть owner в твоем коде? Это глобальная переменная, видимая в процедуре, или она принадлежит некоему объекту?
Короче говоря я тоже думаю что тебе нужно превратить chopik(); в метод некоего объекта, который знает что это за Owner.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 31.07.2011, 19:54   #12
bulldog5293
Форумчанин
 
Регистрация: 13.05.2010
Сообщений: 670
По умолчанию

1.А какой именно пост?
2.Либо процедуре, либо окну формы 2, т.к. окно должно создаться и.з. того что обращение относится ещё к несозданному окну, следовательно его сначало создаю
3.Надеюсь вырозился правельно, прост уже каша в голове
4.Совсем забыл, если делать так
Код:

procedure TForm1.zaza(r:string);
begin
  if Assigned(TForm2) then
  begin
    Form2 := TForm2.Create(owner);

    with Form2 do
    begin
      Show;
    end;

  end;
end;
то окно не показывается
bulldog5293 вне форума Ответить с цитированием
Старый 31.07.2011, 20:26   #13
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
А какой именно пост?
Номер 6
Цитата:
то окно не показывается
Не удивительно - if Assigned(TForm2) then - Это ИМХО ерундище...
Проверять на наличие обьекта в переменке, имеющей имя типа...
Тебе нужно создать форму к контексте другой формы?
Код:
procedure TForm2.Button1Click(Sender: TObject);
var f:TForm;
begin
 f:=TForm.Create(nil);
 with f do begin
  Width:=10;Height:=10;Top:=10;Left:=10;
  ShowModal;
  free;
 end;
end;
Пример понятен?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти по шаблону и выполнить процедуру) Возможно ли? CacheLot Microsoft Office Word 5 20.01.2011 15:56
выполнить расчет Adriana Microsoft Office Access 4 17.10.2010 20:27
как выполнить одну процедуру в другой? betirsolt Общие вопросы Delphi 4 22.01.2010 02:24
Как выполнить процедуру (функцию) из другого модуля Всеслав Общие вопросы Delphi 4 23.05.2009 19:43