Помогите пожалуйста

← →
HDD (2002-02-17 13:33) [0]

Как сделать чтобы форма была не видна на экране сразу при загрузке!
Form1.hide and Form1.visible:=false
Не помогает подскажите что-нибудь!

← →
xpyctuk (2002-02-17 13:44) [1]

а зачем тебе это надо?
и при каком событии тебе надо её сделать видимой?

← →
HDD (2002-02-17 13:46) [2]

Видимой она мне вообще не нужна. Она в трее сидит! А там от неё уже форма открывается 2

← →
[NIKEL] (2002-02-17 13:51) [3]

проще некуда :)
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->ShowMainForm = false;
Application->Run();

и всё будет шиколадно :)

← →
HDD (2002-02-17 14:01) [4]

Подскажите не разумному что такое classid

← →
xpyctuk (2002-02-17 14:04) [5]

зайдешь в project -> View source
и там перед
Application.Run
напишешь Application.ShowMainForm:=False;

← →
HDD (2002-02-17 14:23) [6]

И всё равно она запускается!
Я даже поставил MainForm

← →
VID (2002-02-17 19:47) [7]

Сначала пишешь процедуру:

Procedure TForm1.HideMainForm;
VAR WNHND:INTEGER;
begin
//Закидываем форму очень далеко :)
Form1.Left := 10000;
Form1.top := 10000;
Application.ShowMainForm := false;
ShowWindow(Application.Handle, SW_HIDE);
// скрываем с панели задач
WnHnd := GetWindowLong(Application.Handle, GWL_EXSTYLE);
WnHnd := WnHnd or WS_EX_TOOLWINDOW;
SetWindowLong(Application.Handle, GWL_EXSTYLE, WnHnd);
end;

А на событие onCreate главной формы (предполагается что это form1) пишешь:

HIDEMAINFORM;

и все дела :)

Помогите пожалуйста Найти похожие ветки