Зацените закрытие окна

← →
Chuk & Gek © (2006-12-30 12:20) [0]

Нужно эффектное закрытие окна
в OnClose напишите:
var h,w,r,newx,newy:integer;
alpha:real;
begin
h:=screen.height div 2;
w:=screen.width div 2;
r:=trunc(sqrt(sqr(Left-w)+sqr(Top-h))) div 2;
while not(Width<50) or not(Height<10) do
begin
alpha:=alpha+0.1;
newx:=trunc(r*cos(alpha)+w);
newy:=trunc(r*sin(alpha)+h);
Top:=newy; Left:=newx;
Width:=Width-3;
Height:=Height-3;
sleep(30);
if (Height<30) then Exit
end;

думаю ничего... Выскажите мнения плиз!

← →
Grom PE © (2006-12-30 12:43) [1]

Это не закрытие.. Это вывод на орбиту =)
Со стилем XP Height<30 не будет.

← →
Chuk & Gek © (2006-12-30 12:44) [2]

<30 исправим...
а так ниче?

← →
Grom PE © (2006-12-30 12:50) [3]

Угу =)

← →
X9 © (2006-12-30 13:00) [4]

Нужно переменнную alpha обязятельно инициализировать, иначе у меня, например, получается не совсем то, что задумывалось.

alpha := 0;

← →
DiamondShark © (2006-12-30 13:01) [5]

Запустил для развёрнутого окна при разрешении экрана 2048х1536.
Захотелось кого-то повесить, мееедленно затягивая петлю.

← →
Chuk & Gek © (2006-12-30 13:31) [6]

>DiamondShark © (30.12.06 13:01) [5]
ну у меня же borderstyle bsSingle hfpvth 300x300...
У меня друг говорит можно на апи написать: если сообщение о закрытии окна, то закрывать его таким образом...

← →
vrem (2006-12-30 13:35) [7]

забавно, но оно не закрылось! я пытался нажать на закрытие, но и то не вышло - быстро всё. :)

← →
Yeg (2006-12-30 14:08) [8]

> X9 © (30.12.06 13:00) [4]

Да-да!

← →
SerJaNT © (2006-12-30 14:45) [9]

А зачем он нужен (эффект)? По мне так чем быстрее закроется/запустится приложение тем лучше, а если еще с такими "эффектами", то это прога первый претендент на uninstall!

← →
Chuk & Gek © (2006-12-30 18:05) [10]

← →
Vovan #2 (2006-12-30 19:12) [11]

Чё-то не очень.

procedure TForm1.FormShow(Sender: TObject); begin AnimateWindowProc(Handle, 100, AW_BLEND or AW_ACTIVATE); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin AnimateWindowProc(Handle, 100, AW_BLEND or AW_HIDE); end;

во, скотина.
ему еще медленно нужно петлю затягивать:)

жесток, но справедлив.

> запустится 1 раз

... и начнет делать свое дело...

Зацените закрытие окна Найти похожие ветки