|
ｿｽ@ｿｽｿｽｿｽiｿｽsｿｽ況ゑｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽ
|
ｿｽ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
sspm 2007/06/07(ｿｽｿｽ) 15:39:29
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾆゑｿｽｿｽAｿｽiｿｽsｿｽ況ゑｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽBShowMessageｿｽｿｽMessageBox
ｿｽﾅはボｿｽ^ｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽﾜで趣ｿｽｿｽﾖ進ｿｽﾟまゑｿｽｿｽｿｽB
ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽXｿｽoｿｽ[ｿｽﾌようｿｽﾈ大げｿｽｿｽｿｽﾈゑｿｽﾌゑｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽﾇゑｿｽｿｽﾌでゑｿｽｿｽB
ｿｽuｿｽEｿｽEｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ@ｿｽｿｽｿｽﾎらくｿｽｿｽｿｽﾒゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽﾌようｿｽﾈｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽ
ｿｽ¥ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ謔､ｿｽﾈ機ｿｽ¥ｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ
Ru 2007/06/07(ｿｽｿｽ) 15:48:38
TLabelｿｽgｿｽｿｽｿｽﾎ簡単ｿｽH
TLabelｿｽKｿｽｿｽｿｽﾉ貼ｿｽｿｽtｿｽｿｽｿｽﾄ通擾ｿｽｿｽ Visible := False ｿｽﾉでゑｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ骼橸ｿｽｿｽ
Visible := True
ｿｽｿｽｿｽﾆフｿｽHｿｽ[ｿｽｿｽｿｽｿｽ Enabled ｿｽｿｽ False ｿｽﾉでゑｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾈ。
ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽtry..finallyｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽSｿｽﾅゑｿｽｿｽB
Ru 2007/06/07(ｿｽｿｽ) 17:07:08
ｿｽﾇ記
TStatusBarｿｽ@ｿｽｿｽﾈ単ｿｽﾉ暦ｿｽｿｽpｿｽﾅゑｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾆ簡易的ｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌで托ｿｽｿｽﾌ人ｿｽﾉパｿｽXｿｽﾅゑｿｽｿｽB
ｿｽｿｽ 2007/06/26(ｿｽｿｽ) 11:39:08
CreateMessageDlgｿｽｿｽgｿｽｿｽｿｽﾄ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽじゑｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
with CreateMessageDialog('ｿｽEｿｽEｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ@ｿｽｿｽｿｽﾎらくｿｽｿｽｿｽﾒゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ', mtCustom, []) do begin
try
BorderIcons := [];
Show;
// ｿｽｿｽｿｽﾔの掛ｿｽｿｽｿｽ髀茨ｿｽｿｽ
Close;
finally
Release;
end;
end;
ｿｽAｿｽｿｽｿｽｿｽｿｽ黷ｾｿｽｿｽShowｿｽｿｽﾄび出ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽuｿｽｿｽｿｽﾔの掛ｿｽｿｽｿｽ髀茨ｿｽｿｽｿｽvｿｽﾉ難ｿｽｿｽｿｽﾌで包ｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾅ具ｿｽｿｽｿｽｿｽｿｽ
with CreateMessageDialog('ｿｽEｿｽEｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ@ｿｽｿｽｿｽﾎらくｿｽｿｽｿｽﾒゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ', mtCustom, []) do begin
try
BorderIcons := [];
Show;
(Components[0] as TLabel).Canvas.Brush.Color := (Components[0] as TLabel).Color;
(Components[0] as TLabel).Canvas.TextOut(0,0,'ｿｽEｿｽEｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ@ｿｽｿｽｿｽﾎらくｿｽｿｽｿｽﾒゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ');
// ｿｽｿｽｿｽﾔの掛ｿｽｿｽｿｽ髀茨ｿｽｿｽ
Close;
finally
Release;
end;
end;
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎ厄ｿｽｿｽﾈゑｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾊりがｿｽｿｽｿｽｿｽ 2007/06/27(ｿｽｿｽ) 10:36:23
ｿｽﾗゑｿｽｿｽｿｽﾌ参ｿｽlｿｽｿｽRefreshｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽI
with CreateMessageDialog('ｿｽEｿｽEｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ@ｿｽｿｽｿｽﾎらくｿｽｿｽｿｽﾒゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ', mtCustom, []) do begin
try
BorderIcons := [];
Show;
Refresh;
// ｿｽｿｽｿｽﾔの掛ｿｽｿｽｿｽ髀茨ｿｽｿｽ
Close;
finally
Release;
end;
end;
