日期: 2014 年 8 月 29 日

免跑銀行 大眾銀行也推出網路西聯匯款

大眾銀行最近也推出網路西聯匯款了！以後領Google Adsense就不用到銀行去了 🙂

1 匯款來自國家 > Ireland

2 匯款人身份 >公司

3 公司名稱 >Google Ireland, Ltd.

4 匯款分類 > 19D-專業技術事務收入

tcbank

Delphi撰寫縮小到系統列程式

在畫面上放置
1 ApplicationEvents
2 TrayIcon
3 PopupMenu

然後在ApplicationEvents1Minimize寫上
[pascal]
Hide();
WindowState := wsMinimized;
TrayIcon1.Visible := True;
TrayIcon1.Animate := True;
TrayIcon1.ShowBalloonHint;
[/pascal]
接著在TrayIcon的Click事件讓popupmenu顯示
[pascal]
var
p : TPoint;
begin
GetCursorPos(p);
popupmenu1.Popup(p.X,p.Y);
end;
[/pascal]
最後在popupmenu上的onclick加上
[pascal]
Show;
WindowState := wsMaximized;
trayicon1.Visible := False;
[/pascal]