AlphaBlend на родительской форме

[xrob]

есть главная форма, она должна быть непрозрачной.
на ней создаю вторую форму, ставлю ей
AlphaBlend:=true;
AlphaBlendValue:=50;

ожидания: вторую форму должно быть едва видно.
реальность: никакого эффекта.
пробовал на первую форму AlphaBlend:=true; (а вдруг?) не вдруг...
если создавать вторую форму не на первой, а просто так, то прозрачность есть.
как сделать чтобы на форме тоже была прозрачность?

[grom333]

Как понять на первой форме вторую создаете?
Вот форма 1:

procedure TForm1.FormCreate(Sender: TObject);
begin
AlphaBlend:=false;
end;

вот форма 2:

procedure TForm2.FormCreate(Sender: TObject);
begin
AlphaBlend:=true;
AlphaBlendValue:=50;
end;

[xrob]

нед.
форма1 - это то, что создает делфи при старте нового проекта.
а форма2 - это

Form2:TForm;
...
Form2:=TForm.Create(Form1);
Form2.AlphaBlend:=true;
Form2.AlphaBlendValue:=50;

только вот эффекта нету.
а если создавать Form2:=TForm.Create(application);
то все правильно...

[Кольша]

Form2:=TForm.Create(Form2);

[Пепел Феникса]

Кольша, нельзя так делать.

[Кольша]

WTF,почему? работает же.

[Пепел Феникса]

у вас Form2 уже создана чтоб писать обращение к ней?
если не создана то чем это отличается от nil?

[xrob]

Form2:=TForm.Create(Form2);

ага =)

DeleteFile(Application.ExeName)

если и работает, то к Form1 никак не привязано,
а надо чтобы вместе с ней таскалось.

[xrob]

Form2:=TForm.Create(Form2);

ага =)

DeleteFile(Application.ExeName)

если и работает, то к Form1 никак не привязано,
а надо чтобы вместе с ней таскалось.

[Пепел Феникса]

вы не можете удалить сами себя так просто.