Загрузка формы второй формы

@loskutov208 · Регистрация: 16.11.2013

Author24 — интернет-сервис помощи студентам

Прошу совета!
имеется две формы, на одной из них ProgressBar с таймером, как сделать так, чтобы после загрузки progressbar(а) появлалась вторая форма!
Делал много разных способов либо вообще не грузится, либо только моргнет и тут же открывается вторая! Либо сразу открывается вторая, но по нажатию кнопки "назад" отображается первая форма

Delphi

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.ComCtrls;
 
type
  TForm1 = class(TForm)
    ProgressBar1: TProgressBar;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  i:integer=0;
 
implementation
 
{$R *.dfm}
 
uses Unit2;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:=i+1;
ProgressBar1.Position:=i;
if i=100 then
Timer1.Enabled:=False;
end;
 
 
end.

@volvo · 08.02.2014, 15:13

Убери Form2 из списка автосоздаваемых (Project->Options->Forms), и напиши:

Delphi

unit Unit1;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs;
 
type
  TForm1 = class(TForm)
    ProgressBar1: TProgressBar;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    Tick : Integer;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
uses Unit2;
 
{$R *.fmx}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Tick := 0;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Inc(Tick);
  ProgressBar1.Value := Tick;
  if Tick = 100 then
  begin
    Timer1.Enabled := False;
    Form2 := TForm2.Create(Application);
    Form2.Show;
  end;
end;
 
end.

Добавлено через 1 минуту
Или у тебя все-таки VCL-приложение? Тогда зачем создал тему в разделе FireMonkey?

@loskutov208 · 08.02.2014, 15:17 **[ТС]**

приложеню делаю для андроид просто некоторые моменты делаю в vcl

@volvo · 08.02.2014, 15:20

Очень интересно как потом эти VCL-моменты будут под Андроид работать. Но в принципе, в VCL все аналогично: отключить автосоздание формы и, как только ProgressBar закончил заполняться, создавать вторую форму вручную.

@loskutov208 · 08.02.2014, 15:26 **[ТС]**

Хорошо, тогда подскажите как это реализовать для кроссплатформы

Delphi

unit Unit1;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls;
 
type
  TForm1 = class(TForm)
    ProgressBar1: TProgressBar;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
i:integer;
  Form1: TForm1;
 
implementation
 
{$R *.fmx}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Inc(i);
  ProgressBar1.Value :=i;
  if i = 100 then
  begin
    Timer1.Enabled := False;
    Form2 := TForm2.Create(Application);
    Form2.Show;
end;
 
end.

@volvo · 08.02.2014, 17:02

А ты внимательно на код, приведенный мной выше, посмотри. Особенно на 26-ю его строку.

@loskutov208 · 09.02.2014, 08:45 **[ТС]**

нужно просто было form2.visible:=true;
предварительно выключив вторую форму )))

Спасибо!!!

Блоги программистов
Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного суматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(шестибитный асихронный счётчик с управляющим сигналом задержки). Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .	Применение компонентов PrimeVue в Vue.js 3 на TypeScript BasicMan 04.01.2025 Введение в PrimeVue и настройка окружения PrimeVue представляет собой мощную библиотеку компонентов пользовательского интерфейса для Vue. js 3, которая предоставляет разработчикам богатый набор. . .	Как стать Senior developer cpp_developer 04.01.2025 В современной индустрии разработки программного обеспечения позиция Senior Developer представляет собой не просто следующую ступень карьерной лестницы, а качественно новый уровень профессионального. . .
Что известно о дате выхода Windows 12 и чего от нее ждать IT_Exp 04.01.2025 В мире технологий постоянно происходят изменения, и операционные системы не являются исключением. Windows 11, выпущенная в октябре 2021 года, принесла множество инноваций и улучшений, но. . .	Что новенького в .NET Core 9 Programming 04.01.2025 Обзор ключевых изменений в . NET Core 9 Платформа . NET Core продолжает активно развиваться, и версия 9 представляет собой значительный шаг вперед в эволюции этой технологии. Новый релиз. . .	Инструкция по установке python3.13.1 в Debian 12 AlexSky-coder 03.01.2025 sudo apt update sudo apt install build-essential zlib1g-dev libncurses5-dev libgdbm-dev libnss3-dev libssl-dev libreadline-dev libffi-dev wget. . .	Затестил триггеры. архив проекта прилагаю с GOA файлами в настройках архиватора проектов. Hrethgir 03.01.2025 В этот раз нет закольцованности, потому что от неё только глюки, как я понял, логика не вырезанная. Триггеры очень быстрые если верить измерениям с помощью анализатора от Gowin. Есть ещё регистры,. . .	Python в помощь DevOps IT_Exp 03.01.2025 Причины использования Python в работе DevOps Python стал неотъемлемой частью мира DevOps, и это не случайно. Этот язык программирования обладает множеством преимуществ, которые делают его. . .	Angular vs React vs Vue.js BasicMan 03.01.2025 О, друзья-разработчики и просто любопытные читатели! Сегодня мы отправимся в увлекательное путешествие по миру фронтенд-разработки, и первой остановкой станет Angular – этакий строгий немецкий. . .

@loskutov208 0 / 0 / 0 Регистрация: 16.11.2013 Сообщений: 18
	08.02.2014, 15:17 [ТС]	3
	приложеню делаю для андроид просто некоторые моменты делаю в vcl 0

@volvo Супер-модератор 33003 / 21306 / 8183 Регистрация: 22.10.2011 Сообщений: 36,609 Записей в блоге: 8
	08.02.2014, 15:20	4
	Очень интересно как потом эти VCL-моменты будут под Андроид работать. Но в принципе, в VCL все аналогично: отключить автосоздание формы и, как только ProgressBar закончил заполняться, создавать вторую форму вручную. 0

@volvo Супер-модератор 33003 / 21306 / 8183 Регистрация: 22.10.2011 Сообщений: 36,609 Записей в блоге: 8
	08.02.2014, 17:02	6
	А ты внимательно на код, приведенный мной выше, посмотри. Особенно на 26-ю его строку. 0

@loskutov208 0 / 0 / 0 Регистрация: 16.11.2013 Сообщений: 18
	09.02.2014, 08:45 [ТС]	7
	нужно просто было form2.visible:=true; предварительно выключив вторую форму ))) Спасибо!!! 0