Показать сообщение отдельно
  #3  
Старый 12.01.2007, 20:11
YCH.Del YCH.Del вне форума
Прохожий
 
Регистрация: 07.12.2006
Сообщения: 22
Репутация: 10
По умолчанию

Лучше не юзай. Я тебе сейчас расскажу страшную историю. Добавляем фрейм, на нем что-то рисуем. Ну, ебстейственно, указываем парента - главную форму. Затем - работаем с ним уже на главной форме (ну, забыли, что он у нас в отдельном юните). А дальше - глюков не оберешься. Половина кода - в главной форме, половина - в юните фрейма. Все глючит. Говно, одним словом. Лучше вот так:
Заводим новую форму, работаем с ней. В коде главной формы прописываем нашей дочерней парента, к примеру - From1.Panel1.
Код:
procedure Form1.Button1Click(Sender: TObject);
begin
   if not Assigned(Form2) then
      Form2 := TFrom2.Create(Self)
   else Form2.Show;
   Form2.Parent := Panel1;
   Form2.Align := alClient;
end;
И будет тебе щастье
Ответить с цитированием