14-05-2008, 04:15 PM
ممكن تستخدم الكود
كود :
var i: integer;
begin
for i:=1 to Application.ComponentCount -1 do
begin
if (Application.Components[i] is TForm) then
begin
Tform(Application.Components[i]).BringToFront;
AnimateWindow(Tform(Application.Components[i]).Handle,Trackbar1.Position, AW_BLEND);
Tform(Application.Components[i]).Show;
end;
end;
end;