Вопрос по формам и перемещению объектов

[like_cloud]

доброго времени суток всем
не смог,к сожалению, описать весь вопрос в заголовке, описываю ниже:

в программе(гоночки) есть 2 формы. При запуске программы на монитор отображается главная форма Form1(типа главного меню). При нажатии на кнопку скрываем главную форму и отображаем форму с собственно игрой Form2.

procedure TForm1.StartGameButtonClick(Sender: TObject);
begin
    Form2.Show;
    Form1.Hide;
end;

Во второй форме есть обьект TImage, который можно перемещать на ней
стрелками с клавиатуры

procedure TForm2.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if ProcessMark<>2 then begin 
    if key=vk_left then begin
       CarLeft:=true;
    end else
    if key=vk_right then begin   
       CarRight:=ture;
    end;
end;

После нажатия собственно вызывется процедура перемещения обьекта, на которой висит таймер,вызывающий при обработке onShow етой формы.
При нажатии на кнопку Form2 должна скрываться

procedure TForm2.CloseButtonClick(Sender: TObject);
begin 
  CarLeft:=false; // на тот случай,если при клике кнопки были нажаты
  CarRight:=false;
  Form1.Show;
  Form2.Hide;
end;

Если затем мы опять нажмем на Form1 на кнопку -> скроем Form1 и покажем From2, то картинка перестает перемещаться. Проблема решается только полным перезапуском приложения.

собстна вопрос в том, как ето поправить.

или как правильно оформить процедуру что бы при клике на кнопки форма создавалась или уничтожалась и что тогда написать в главном файле проекта.
спасибо

[Stilet]

М.м.м а можно пощупать весь твой проект?

[like_cloud]

Сообщение от Stilet

М.м.м а можно пощупать весь твой проект?

там очень много сумбурного кода - ето мой первый опыт в делфи после читания всяких учебников, правда я все откомментил по возможности.

В папке Music там должны быть 2 файла: 8bit.wav и 777.wav, закинте туда что-нито с таким названием иначе запустить не получится (с етими файлами архив весил больше положенного на етом форуме)

[mihali4]

procedure TForm2.FormKeydown (Sender: TObject; var Key: Word; Shift: TShiftState);
begin

//if GameOverMark=false then

Вот и все...

З.Ы. Хотя нет, еще не все.
Разберитесь, когда эту переменную устанавливать, а когда сбрасывать.

[like_cloud]

Сообщение от mihali4

procedure TForm2.FormKeydown (Sender: TObject; var Key: Word; Shift: TShiftState);
begin

//if GameOverMark=false then

Вот и все...

З.Ы. Хотя нет, еще не все.
Разберитесь, когда эту переменную устанавливать, а когда сбрасывать.

вот я дурак не заметил! Просто преогромнейшее спасибо! уже несколько часов мучаюсь

тогда вопрос на будущее:

как корректо открыть и закрыть форму из другой формы(вк. освобождение памяти из под нее и всех ее компонентов)? что писать в процедурах и в главном файе проекта

[mihali4]

Лучше формы (кроме главной) создавать динамически.
Этот вопрос обсуждался неоднократно, например:
http://www.programmersforum.ru/showt...E4%E0%ED%E8%E5

[DomiNick]

и что тогда написать в главном файле проекта

А там лучше не надо ничего писать...

как корректо открыть и закрыть форму из другой формы(вк. освобождение памяти из под нее и всех ее компонентов)?

Нажимаем "Alt + F11" и подключаем к одному юниту другой, после чего можно будет управлять из формы первого юнита формой второго юнита...
Например подключаем Unit1 к Unit2 и тогда можно из Form1 вызывать методы и свойства Form2:

procedure TForm1.ButtonClick(Sender: TObject);
begin
...
Form2.Show; // показать/открыть форму №2
...
Form2.Hide; // спрятать форму №2
...
Form2.Close; // закрыть форму №2
...
Form2.Free; // полностью убить форму №2 (не очень хорошая идея :) )
...
Form2.AlphaBlendValue:=100; // задаём "полупрозрачность" форме №2
Form2.AlphaBlend:=True; // включаем "полупрозрачность" формы №2
...
end;

Но надо помнить, что при Close главной формы закроется вся программа...

При запуске программы на монитор отображается главная форма Form1(типа главного меню). При нажатии на кнопку скрываем главную форму и отображаем форму с собственно игрой Form2.

Я б наоборот делал... Форму с игрой - главной, а форму "главное меню" - динамически (как предложил mihali4)...


Хм... А нужно ли вообще для "главного меню" отдельную форму лепить?