Скачать: CL | DM;

Окно при загрузке проги   Найти похожие ветки 

← →
Виталик   (2003-02-20 16:07) [0]

Кто подскажет, как можно без больших изменений в проге сделать такую следующее. Есть БД. При запуске, пока происходит загрузка проги вывести окно, скажем с информацией о программе.

---

← →
leonon ©   (2003-02-20 16:31) [1]

Это просто

Пусть TSplash = class(TForm) твоя заставка, у которой свойство
BorderStyle = bsNone
Даллее примерно следующее

Var
Splash : TSplash;

begin
Splash := TSplash.Create(Nil);
try
Splash.Show;
Application.Initialize;
finally
Splash.Free;
end;
Application.CreateForm(TfrmMain, frmMain);
Application.Run;
end.

---

← →
Виталик   (2003-02-20 17:06) [2]

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

---

← →
Weare ©   (2003-02-20 18:09) [3]

Я делал так: создавал еще одну форму, наносил на нее всякие сообщеня и вот примерчик кода:

procedure TForm1.FormShow(Sender: TObject);
var k: integer;
begin

Wait.Show; //это она самая - новая форма
Wait.Refresh;

...// например открытие таблиц

Wait.Close;

end;


---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c