Czy moźna zrobić przezroczystą formę ???

 Jeśli można zrobić przezroczystą formę , to napiszcie!!!

W systemach XP i 2000 można. Pod Delphi 7 w OI są właściwości AlphaBlend, uaktywnij ją, i ustaw odpowiedni stopień przezroczystości (0-255).

"Czy można usunąć durny temat, nie będąc moderatorem?"

Fajnie by było, gdyby tak.

AlphaBlend, tylko D7, tylko XP. Było już dużo razy. Inaczej się praktycznie nie da, bez pobierania obrazu pod spodem i miksowania z przezroczystością, ale to cholernie skomplikowane.

<font color="red"><font size="18">I NIE RÓB OGŁOSZEŃ, JEŚLI TO NIE SĄ OGŁOSZENIA!!!!!!!!! </span></span>

Odpowiedź na twoje pytanie było w DelphiFaq. Tylko dziwnie to działa :-(

Jeżeli chodzi Ci o to by formy nie było widać, tylko komponenty na niej umieszczone, daj w OnCreate taki kod:

procedure TForm1.FormCreate(Sender: TObject);
var
Pts: array[0..3] of tPoint;
LP: Integer;
Old, New: HRGN;
begin
New := CreateRectRGN(0, 0, 0, 0);
for LP := 0 to ControlCount -1 do
begin
Pts[0] := Point(Controls[LP].Left, Controls[LP].Top);
Pts[1] := Point(Controls[LP].Left, Controls[LP].Top + Controls[LP].Height);
Pts[2] := Point(Controls[LP].Left + Controls[LP].Width, Controls[LP].Top + Controls[LP].Height);
Pts[3] := Point(Controls[LP].Left + Controls[LP].Width, Controls[LP].Top);
Old := CreatePolygonRGN(Pts, 4, 10);
CombineRGN(New, Old, New, RGN_OR);
DeleteObject(Old);
end;
SetWindowRGN(handle, New, True);

end;

i zmień FormStyle := fsNone;

PS. Jakby to nie chodziło o to, proszę nie bluzgać ;P

SetWindowRGN(handle, New, True);

<font color="red">Not enough actual parameters</span>

Powstrzymuje bluzgi ;-)

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Brush.Style := bsClear;
Form1.BorderStyle := bsNone;
end;

to wystarczy - i działa