Visible формы.

← →
Lony (2002-10-06 11:38) [0]

Почему при загрузки программы в OnCreat формы не работает form1.visible:=false? И как тогда это можно реализовать?
И ещё, где можно взять компоненту "прозрачная форма"?

← →
Эльф (2002-10-06 11:53) [1]

Можно повесить таймер с интервалом 1. При срабатывании Form1.visible:=false; timer1.enabled:=false;
Это первое, что пришло мне в голову ;)
2 - прозрачность под Win98 - интересная проблема. А такое возможно?

← →
Lony (2002-10-06 12:04) [2]

Спасибо, Эльф. Но таймер не подходит. Как-то раньше я это делал по-другому, а как - не помню.
Прозрачная форма - два года назад у меня была такая компонента, но тогда я был маленький. Теперь опять ищу.

← →
sask (2002-10-06 12:09) [3]

попробуй по событию FormShow:

ShowWindow(Application.Handle, SW_MINIMIZE);
ShowWindow(Form1.Handle, SW_MINIMIZE);
ShowWindow(Application.Handle, SW_HIDE);

← →
Pat (2002-10-06 12:39) [4]

1)Как я понял проблема стоит при создании главной формы...
на OnCreate добавь:
Application.ShowMainForm:=false;
2)Что значит прозрачная?
Примерно на OnCreate ставишь:
form1.Brush.Style:=bsClear;
(можно то же самое, но через регионы, причем работать будет лучше :-)))
Или тебе надо с изменяемой степенью прозрачности? Тогда см здесь:
http://delphi.vitpc.com/treasury/samples.htm#link10

← →
sask (2002-10-06 12:51) [5]

Немного вынужден поправить себя :)

событие OnActivate:
.......
// убираем приложение из TaskBar (если надо конечно)
ShowWindow(Application.Handle, SW_HIDE);
// убираем окошко формы
ShowWindow(Form1.Handle, SW_HIDE);
.......

← →
Vlad1 (2002-10-06 12:57) [6]

В 98-й Винде работает такая штука:
interface private procedure CreateParams(var Params:TCreateParams);override; .................................................... implementation .................................................... Tform1.CreateParams(var Params:TCreateParams); begin inherited; Params.ExStyle:=Params.ExStyle or WS_EX_TRANSPARENT; end; ....................................................
См. также http://delphi.proext.com/secr/get.cgi?id=1&num=19,
http://www.gyry.net/prog/faq/window.htm

← →
BOA_KAA (2002-10-06 13:12) [7]

За прозрачность формы отвечает ее свойство AlphaBlend. Переставь его в True, а степень прозрачности - AlphaBlendValue: 0 - абсолютно прозрачная и 255 - полностью непрозраная (если так можно сказать) форма.

← →
Vlad1 (2002-10-06 13:26) [8]

СМ. ещё
http://zorro.usi.ru/Doc/delphi_faq.htm
Вот копия с указанного сайта
Вот пример кода:

type
TForm1 = class(TForm)
{ ... }
protected
procedure CreateParams(var Params : TCreateParams); override;
end;

procedure TForm1.CreateParams(var Params : TCreateParams);
begin
inherited CreateParams(Params);
{ форма становится прозрачной }
Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT;
end;

end;
см. на этом сайте
"Q: Как мне запрограммировать непрямоугольную форму, например, как у Norton CrashGuard, в форме щита?"

← →
BOA_KAA (2002-10-06 13:32) [9]

← →
Star (2002-10-06 14:33) [10]

2 BOA_KAA
Свойства AlphaBlend и AlphaBlendValue работают ТОЛЬКО в W2K и в Windows XP. Человек же ясно указал: [D6, Win95/98]

Visible формы. Найти похожие ветки