Скрыть форму в момент запуска программы.

Привет! Вот такая дурацкая проблема, сделать не получается.
У меня по умолчанию, в инспекторе объектов, объект Form1, Visible у него, false. Но форма при комиляции и последующего вызова программы отображается.
Ставлю явно:

Код (Text):

1. __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
2. {
3.    Hide();
4. }

Ничего. Ставлю Form1->Hide(), тоже ничего.

Ставлю кнопку. Пишу в ней: Form1->Hide(), и о чудо! Форма исчезает!

Как сделать, и где писать, чтоб в момент запуска проги, форма не была видна?
Может через AlphaBlend? Только где писать, чтоб код выполнился в момент запуска проги?

 

Лучше просто не создавать форму.

 

а как тогда компоненты использовать?

 

копай в сторону showwindow

 

Просто. Создавать объекты в ручную. То же самое, только предка формы у них не будет. Вообще юзай АПИ.

 

;((( а как вручную компоненты создавать? В консольном приложении? Покажите пример, пожалуйста, век буду помнить Вашу доброту ...

 

var Strm:TMemoryStream;
begin
Strm:=TMemoryStream.Create;
...

 

-

 

Кроме грязного хака ничего в голову не приходит

Код (Text):

1. procedure TForm1.FormActivate(Sender: TObject);
2. begin
3.   Exclude(FFormState,fsShowing);
4.   Hide;
5. end;

 

probka
В свойствах проекта можно убрать форму из списка автоматически создаваемых форм, а потом воспользоваться оператором new, delete. Свойства формы можно задавать и в дизайнере.
А как Вы в консольном приложении собираетесь использовать формы?

 

У Borland-vcl вроде
Application.ShowMainForm:=false;

 

ребят, я, конечно, спасибо говорю за все советы, но я же исходник на С++ привел, а вы мне на Паскале ... это юмор такой? ...

 

если это твоё приложение, то создавай окно с параметром SW_HIDE, или вобще не создавай,
если это чужое приложение, то делай как я: сплайсингом хватай CreateWindowExA() и в перехваченной завершай тред, или возвращай 0.

 

probka
Билдер и Дельфи - близнецы-братья, потому все советы, данные для Дельфи, путем незначительных умственных усилий превращаются...

 

crypto, ;( ;( ;( понятно.

 

а кто сказал что это паскаль?

Код (Text):

1. #define begin {
2. #define end }
3. #define procedure void
4. #define var /*locals:*/
5. #define result:=X return X
6. #define X:integer; int X,
7. #define writeln(A) {printf(A);printf("\n");}
8. #define main(){ main(){printf("I\x03Com[e]r\n");
9. procedure SayHi(J:integer)
10. begin
11.   writeln("hello world!");
12. end;

¦))

 

О е. Когда я гляжу на такие выверты, я задаю себе вопрос: "Боже, ... я то куда лезу ...!!?"

 

а хотите, мы из него бейсик сделаем??7 %))))

 

probka
Не проще было задать вопрос например на borland.xportal.ru?

 

Я уже вычитал в мануалах и применил:

Код (Text):

1. Application->ShowMainForm = false;

Дивлюся я, о ... , вы не знаете этого ... !


Booster, спасибо. Класный форум.