Форма с заставкой

← →
Rubey (2006-08-28 13:24) [0]

Сделал форму Form1 с заставкой в форме Form2 следующего вида

var
Form1: TForm1;
implementation
{$R *.dfm}
Var
Zast: TForm2;
Begin
Application.Initialize;
Zast:=TForm2.Create(Application);
Zast.Position:=poDesktopCenter;
Zast.BorderStyle:=bsNone;
Zast.Show;
Zast.Update;
Application.CreateForm(TForm1,Form1);
Sleep(2000);
Zast.Free;
Application.CreateForm(TForm1,Form1);
Application.Run;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Application.CreateForm(TForm3,Form3);
Form3.ShowModal;
end;
end.

Все работает, но когда начинаю на FORM1 накидывать компоненты для обработки ,
(например BitBtn) то в начале процедуры после Application.Run; упорно выдает ошибку
Statment Excepted, but ‘PROCEDURE’ found
Не пдскажете, знатоки, в чем проблема. Битых два часа экспериментировал, но ничего
не получилось. Будк благодарен за помощь.

28.08.2006 Рубей

← →
Anatoly Podgoretsky © (2006-08-28 13:25) [1]

А похоже на проект, а не форму

← →
C@N © (2006-08-28 13:28) [2]

что-то тут не так.... ((( (_!_) - чую )))

← →
Ketmar © (2006-08-28 13:32) [3]

какой чудный поток сознания. какая трава-то, а? почему вместо изучения языка народ предпочитает траву курить, а?

← →
Rubey (2006-08-28 14:23) [4]

Да, зто проект с двумя формами : Form1- головная с кнопками выбора опций и Form2 - заставка. И все работает, пока не вставвляются кнопки обработки опций ( в частности ) - BitBtn на главную форму. Если это принципиально невозможно, то подскажите, как реализовать правильно форму с заставкой.
С уважением - Рубей.

← →
Korshun (2006-08-28 14:41) [5]

Нельзя в Splash - форме писать процедуры! Сам С этой прорблемой сталкивался.

← →
Korshun (2006-08-28 14:42) [6]

Нельзя в Splash - форме писать процедуры! Сам c этой прорблемой сталкивался.

← →
DprYg © (2006-08-28 14:46) [7]

Вот это самое простое. Создаешь новую форму, делаешь ее available. Устанавливаешь св-ва в fsStayOnTop и poScreenCenter. Затем ставишь на нее таймер. Вот код:
unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm2 = class(TForm) Timer1: TTimer; procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation {$R *.dfm} uses Unit1; procedure TForm2.Timer1Timer(Sender: TObject); begin Timer1.Enabled := false; if Form1.Visible then Close; end; end.

А это код проекта:
program Project1; uses Forms, Unit1 in "Unit1.pas" {Form1}, Unit2 in "Unit2.pas" {Form2}; {$R *.res} begin Application.Initialize; Form2 := TForm2.Create(Application); Form2.Show; Form2.Update; Application.CreateForm(TForm1, Form1); Application.Run; end.

> Создаешь новую форму, делаешь ее available. Устанавливаешь
> св-ва в fsStayOnTop и poScreenCenter. Затем ставишь на нее
> таймер.

Это в ИСР руками, а не программно.

> var
> Form1: TForm1;
> implementation

Диагноз ясен. Rubey старательно переписал код из какой-то книжки прямо в pas-файл. Rubey, скажу тебе по секрету, что splash пишется в dpr-файл (Project|View Source)

← →
Rubey (2006-08-28 16:58) [10]

Cпасибо всем! Заработало все как надо.
Особая благодарность DprYg . Его код помог исправить все ошибки.
Рубей. 28.08.2006

Форма с заставкой Найти похожие ветки