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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 23.04.2014, 18:45   #11
phomm
personality
Старожил
 
Аватар для phomm
 
Регистрация: 28.04.2009
Сообщений: 2,899
По умолчанию

Цитата:
Сообщение от superedward Посмотреть сообщение
Код:
procedure TForm1.Button1Click(Sender:TObject) ;
begin
 Form2:=TForm2.Create(Self);
 Form2.PaintBox1.Canvas.Ellipse(100, 100,200,200);
 Form2.Show
end;
Утечка будет, надо добавить Form2.Free в конце. Сорри за капитанство, но для новичка это стоит уточнять имхо.
А вообще такой метод стоит делать через локальную переменную (явную или неявную, а не глобальную, как у Вас), плюс можно бы и ошибки ловить - итоговый код
Код:
procedure TForm1.Button1Click(Sender:TObject) ;
var
 Form2:TForm2;
begin
  with TForm2.Create(Self) do 
  try
    PaintBox1.Canvas.Ellipse(100, 100,200,200);
    Show;
  finally // except по желанию
    Free;
  end;
end;

Последний раз редактировалось phomm; 23.04.2014 в 18:48.
phomm вне форума Ответить с цитированием
Старый 23.04.2014, 18:54   #12
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Show и Free в таком контексте не совместимы. Форма создастся и тут же уничтожится. Showmodal да. А здесь просто в OnClose caFree
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Установка курсора в другом окне Angelochek* Win Api 18 03.11.2013 19:37
Рисование на окне игры (?) Johnson Win Api 3 20.08.2012 18:51
VS Basic. Рисование PaintBox werser Помощь студентам 2 17.01.2010 00:26
PaintBox. Рисование antikhrist Общие вопросы Delphi 24 24.06.2009 13:04
Рисование в диалоговом окне (Си++) molo4nik Помощь студентам 1 06.05.2008 18:27