日前做了一個桌面程式,想要加入播放音樂的附加功能不知要如何下手。 |
尚未結案
|
landy9999
一般會員 發表:4 回覆:0 積分:0 註冊:2003-08-01 發送簡訊給我 |
|
qoo1234
版主 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
//桌面動畫程式範例:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Menus; type TForm1 = class(TForm) Image1: TImage; Image2: TImage; Timer1: TTimer; Timer2: TTimer; PopupMenu1: TPopupMenu; N1: TMenuItem; procedure Timer1Timer(Sender: TObject); procedure Timer2Timer(Sender: TObject); procedure N1Click(Sender: TObject); procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure FormCreate(Sender: TObject); procedure Image1Click(Sender: TObject); procedure Image2Click(Sender: TObject); procedure Image1DblClick(Sender: TObject); procedure Image2DblClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} //圖片切換控制 procedure TForm1.Timer1Timer(Sender: TObject); begin if Image1.Visible=true then begin Image1.Visible:=False; Image2.Visible:=true; end else begin Image1.Visible:=true; Image2.Visible:=False; end; end; //設定視窗移動的位置 procedure TForm1.Timer2Timer(Sender: TObject); begin if Form1.Left>=750 then begin Form1.Top :=350; Form1.Left:=0; end else begin Form1.Left:=form1.Left 5; Form1.Top :=form1.Top -3; end; end; //關閉程式 procedure TForm1.N1Click(Sender: TObject); begin close; end; //用滑鼠點視窗的任意位置,實現拖動視窗 procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; Perform(WM_SYSCOMMAND,$F012,0); end; //設置視窗的初始化位置 procedure TForm1.FormCreate(Sender: TObject); begin left:=0; top:=350; end; //--------------------------------------------------------- //點擊Image1、Image2時,Timer2重新開始工作,實現視窗的再移動 procedure TForm1.Image1Click(Sender: TObject); begin Timer2.Enabled :=true; end; procedure TForm1.Image2Click(Sender: TObject); begin Timer2.Enabled :=true; end; //--------------------------------------------------------- //雙擊Image1、Image2時,Timer2停止工作,實現視窗的固定不動效果 procedure TForm1.Image1DblClick(Sender: TObject); begin Timer2.Enabled :=false; end; procedure TForm1.Image2DblClick(Sender: TObject); begin Timer2.Enabled :=false; end; //--------------------------------------------------------- end.網海無涯,學無止境! |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |