|
ｿｽ@ｿｽｿｽｿｽfｿｽBｿｽXｿｽvｿｽｿｽｿｽCｿｽｿｽwidthｿｽAheightｿｽｿｽ謫ｾｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽB
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
night 2005/03/02(ｿｽｿｽ) 22:11:27
ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽFormｿｽｿｽCｿｽﾓの場所ｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽ痰ｦｿｽﾎ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽFormｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ骼橸ｿｽﾍ、ｿｽfｿｽBｿｽXｿｽvｿｽｿｽｿｽCｿｽｿｽwidth(ｿｽｿｽ)ｿｽｿｽheight(ｿｽｿｽｿｽｿｽ)ｿｽｿｽ謫ｾｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾎなゑｿｽﾈゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽfｿｽBｿｽXｿｽvｿｽｿｽｿｽCｿｽｿｽwidthｿｽｿｽheightｿｽﾍどゑｿｽｿｽｿｽｿｽｿｽﾄ取得ｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾆーｿｽ閧ｷｿｽｿｽｿｽｿｽ 2005/03/02(ｿｽｿｽ) 23:46:47
TScreenｿｽﾅヘｿｽｿｽｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾄ鯉ｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
night 2005/03/02(ｿｽｿｽ) 23:57:12
ｿｽｿｽｿｽﾗゑｿｽｿｽ逡ｿｽﾊに会ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽfｿｽBｿｽXｿｽvｿｽｿｽｿｽCｿｽｿｽwidth = screen.width, height = screen.height;ｿｽﾅゑｿｽｿｽｿｽ^^ｿｽG
ｿｽｿｽｿｽｿｽｿｽﾍ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAMSNｿｽｿｽｿｽbｿｽZｿｽｿｽｿｽWｿｽｿｽｿｽ[ｿｽﾅ、ｿｽNｿｽｿｽｿｽｿｽｿｽ辜ｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽｿｽMｿｽｿｽｿｽｿｽﾆ、ｿｽEｿｽｿｽｿｽｿｽｿｽｿｽwindowｿｽｿｽｿｽjｿｽｿｽｿｽLｿｽjｿｽｿｽｿｽLｿｽﾆ出ｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽﾋ？ｿｽｿｽｿｽbｿｽZｿｽｿｽｿｽWｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾇ、ｿｽｿｽｿｽｿｽｿｽAform1ｿｽﾌボｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾉ出ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAform2ｿｽｿｽｿｽｿｽｿｽwindowｿｽﾉ鯉ｿｽｿｽｿｽｿｽﾄて、timerｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽEｿｽEｿｽB
ｿｽﾇのようｿｽﾉゑｿｽｿｽｿｽﾎゑｿｽｿｽﾜゑｿｽｿｽoｿｽｿｽｿｽｿｽﾌゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾆーｿｽ閧ｷｿｽｿｽｿｽｿｽ 2005/03/03(ｿｽｿｽ) 00:13:10
ｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽAｿｽAｿｽuｿｽjｿｽｿｽｿｽLｿｽjｿｽｿｽｿｽLｿｽvｿｽﾆ出ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾘでゑｿｽｿｽｿｽｿｽH
ｿｽﾆーｿｽ閧ｷｿｽｿｽｿｽｿｽ 2005/03/03(ｿｽｿｽ) 00:21:35
ｿｽｿｽｿｽｿｽｿｽ理ｿｽﾅゑｿｽｿｽｿｽｿｽﾇ、ｿｽAｿｽA
ｿｽｿｽｿｽｿｽﾈので、ｿｽAｿｽAｿｽjｿｽｿｽｿｽLｿｽjｿｽｿｽｿｽLｿｽﾆ、ｿｽAｿｽAｿｽA
---------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
Form2.Top := Screen.WorkAreaHeight;
Form2.Left := Screen.Width - Form2.Width;
Form2.Show;
for i := Form2.Top downto (Form2.Top - Form2.Height) do
begin
Form2.Top := Form2.Top - 1;
Application.ProcessMessages;
Sleep(10);
end;
end;
---------------------------------------------------------------------
ｿｽﾇゑｿｽｿｽﾅゑｿｽｿｽｿｽBｿｽBｿｽBｿｽjｿｽｿｽｿｽLｿｽjｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽAｿｽA
Fusa 2005/03/03(ｿｽｿｽ) 02:00:14
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
procedure TForm1.FormShow(Sender: TObject);
begin
Form1.Left := Screen.Width - Form1.Width;
Form1.Top := Screen.Height - Form1.Height;
AnimateWindow((Sender as TForm1).WindowHandle,1000,
AW_SLIDE + AW_VER_NEGATIVE + AW_HOR_NEGATIVE);
Sleep(5000);
AnimateWindow((Sender as TForm1).WindowHandle,1000,
AW_HIDE + AW_BLEND);
end;
http://www2.big.or.jp/‾osamu/Delphi/browse.cgi?index=78352
night 2005/03/03(ｿｽｿｽ) 13:59:25
ｿｽﾔ難ｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾍニｿｽｿｽｿｽLｿｽjｿｽｿｽｿｽLｿｽﾆ出ｿｽﾄゑｿｽｿｽﾄ、ｿｽﾜゑｿｽｿｽjｿｽｿｽｿｽLｿｽjｿｽｿｽｿｽLｿｽﾆ会ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾄ、ｿｽﾅ鯉ｿｽﾉはフｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾛ、ｿｽjｿｽｿｽｿｽLｿｽjｿｽｿｽｿｽLｿｽﾆ出ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾜでは趣ｿｽｿｽｿｽｿｽgｿｽｿｽｿｽ黷ｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽjｿｽｿｽｿｽLｿｽjｿｽｿｽｿｽLｿｽﾆ会ｿｽｿｽｿｽｿｽｿｽｿｽﾄ行ｿｽｿｽｿｽﾌゑｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB(ｿｽ繧ｪｿｽｿｽﾆ会ｿｽｿｽｿｽｿｽｿｽﾌ組ｿｽﾝ搾ｿｽｿｽせｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB)ｿｽﾂまゑｿｽAｿｽ繧ｪｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽﾄ擾ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾌ出ｿｽｿｽｿｽｿｽshowｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽﾌゑｿｽdestroyｿｽﾅ良ゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽﾔゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾄ申ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
Basser 2005/03/04(ｿｽｿｽ) 17:45:37
OnCloseｿｽﾅゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
Fusaｿｽｿｽｿｽが提示ゑｿｽｿｽ黷ｽ AnimateWindow ｿｽﾅ趣ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
MSDNｿｽﾅゑｿｽ dwFlags ｿｽｿｽ AW_HIDE ｿｽｿｽ AW_BLEND ｿｽ同趣ｿｽｿｽﾉセｿｽbｿｽgｿｽｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾉ記ｿｽqｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽLｿｽﾌようｿｽﾈ組ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ奇ｿｽｿｽﾒゑｿｽｿｽｿｽｿｽ謔､ｿｽﾈ難ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
AnimateWindow(Handle, 1000, AW_HIDE or AW_SLIDE or AW_VER_POSITIVE);
end;
ｿｽｿｽx AnimateWindow ｿｽ調べゑｿｽｿｽﾄみてはどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
