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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 31.07.2009, 13:26   #1
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию Form1 & Form2

Моя любимая проблема - не могу управлять одной формой из другой.
Application.CreateForm (на обе формы) есть в *.prj
У обоих форм Visible = true
Когда пишу Form2.Left:= {***} вылезает ошибка ACCESS VIOLATION.

P.S. В юзесах первой формы есть Unit2.
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ
Alex Cones вне форума Ответить с цитированием
Старый 31.07.2009, 13:38   #2
Mr.Qwerty
Что? Где? Когда?
Форумчанин
 
Аватар для Mr.Qwerty
 
Регистрация: 14.07.2009
Сообщений: 220
По умолчанию

Цитата:
Моя любимая проблема - не могу управлять одной формой из другой.
Application.CreateForm (на обе формы) есть в *.prj
У обоих форм Visible = true
Когда пишу Form2.Left:= {***} вылезает ошибка ACCESS VIOLATION.

P.S. В юзесах первой формы есть Unit2.
- а что вы именно хотели сделать? по моим пониманиям - вы синхронно двигать формы хотите? или что?
Никогда не бойся делать то, что ты не умеешь. Помни, ковчег был построен любителем. Профессионалы построили "Титаник".
Mr.Qwerty вне форума Ответить с цитированием
Старый 31.07.2009, 13:40   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Код в студию.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 31.07.2009, 13:54   #4
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию

Код:
procedure TFRMMain.FormCreate(Sender: TObject);
Var
 FL,FT:Integer;
begin
 CDir:=GCD;
 GST(CDir,FL,FT);
 FRMMain.Left:=FL;
 FRMMain.Top :=FT;
 FRMBack.Left:=FL;
 FRMBack.Top :=FT;
 TMRLac.Enabled:=True;
end
Код:
program PRJMain;

uses
  Forms,
  UNTMain in 'UNTMain.pas' {FRMMain},
  UNTBack in 'UNTBack.pas' {FRMBack};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TFRMMain, FRMMain);
  Application.CreateForm(TFRMBack, FRMBack);
  Application.Run;
end.
Перекомпилировал код и переписал заного проблемные места, вроде работает.
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ

Последний раз редактировалось Stilet; 31.07.2009 в 14:36.
Alex Cones вне форума Ответить с цитированием
Старый 31.07.2009, 21:50   #5
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

так и не должно работать...при таком подходе вторую форму нужно создавать при создании первой(в онКрит первой)
а не в том порядке что в ДПР файле

я уже наступал на эти грабли...могу подсказать если что
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Form1 на второй план, Form2 - на первый xxxsas Общие вопросы C/C++ 8 31.05.2011 05:47
Управление элементами Form2 из Form1 Niodar Общие вопросы Delphi 4 25.03.2009 04:22
Delphi. Form1 и Form2. Xeon332 Общие вопросы Delphi 8 01.11.2008 15:52
form1 и form2 SLIMMUS Общие вопросы Delphi 3 29.10.2008 01:15
две формы Form1 и Form2 Михаил Юрьевич Общие вопросы Delphi 11 02.03.2008 19:38