Непослушная Форма

Тема в разделе "Delphi - Компоненты", создана пользователем programmer8329, 23 сен 2012.

  1. programmer8329

    Регистрация:
    28 июн 2012
    Сообщения:
    19
    Симпатии:
    0
     
  2. sinkopa

    sinkopa Well-Known Member

    Регистрация:
    17 июн 2009
    Сообщения:
    344
    Симпатии:
    9
    Перечитайте внимательно свой код...
    Вы "рождаете" и показываете переменную (объект) с именем Newform
    Код (Delphi):
    Procedure tform1.button1click(sender:tobject)
    Var
    Newform:tform2;
    Begin
    Application.createform(tform2, newform);
    Newform.show;
    End;
    а изменяете clientheight у переменной с именем Form2
    Код (Delphi):
    Procedure tform2.formcreate(sender:tobject)
    Begin
    Bitmap:=tbitmap.create;
    Bitmap.loadfromfile('......');
    Form2.clientheight:=bitmap.height*100;
    End;
    Для того чтобы изменения происходили у любого рожденного наследника (формы) tform2
    надо вот так:
    Код (Delphi):
    Procedure tform2.formcreate(sender:tobject)
    Begin
    Bitmap:=tbitmap.create;
    Bitmap.loadfromfile('......');
    Self.clientheight:=bitmap.height*100; {<== !!!!!!!!!!!!!!!!!}
    End;
    Переутомились просто видимо... :lol:
    Кстати, а чего это у Вас Newform:tform2 локальная переменная? Вы ей дальше управлять (открывать,закрывать) не собираетесь?
    А память освобождать (Newform.Free)?
     
  3. programmer8329

    Регистрация:
    28 июн 2012
    Сообщения:
    19
    Симпатии:
    0
    Да действительно вы как всегда правы. Спасибо за помощь.
     
Загрузка...

Поделиться этой страницей