Текущий архив: 2006.09.17;
Скачать: CL | DM;

Вниз

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

← →
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.

---

← →
DprYg ©   (2006-08-28 14:48) [8]

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

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

---

← →
Наиль ©   (2006-08-28 14:49) [9]

> var
>  Form1: TForm1;
> implementation

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

---

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2006.09.17;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.033 c