2011年12月12日
媒体播放器
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, MPlayer;type TForm1 = class(TForm) MediaPlayer1: TMediaPlayer; Panel1: TPanel; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton;... 阅读全文
posted @ 2011-12-12 13:37 endsnow 阅读(177) 评论(0) 推荐(0)
播放动画图像
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Animate1: TAnimate; Animate2: TAnimate; procedure FormCreate(Sender: T... 阅读全文
posted @ 2011-12-12 13:18 endsnow 阅读(143) 评论(0) 推荐(0)
调用Windows API函数播放声音
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, mmsystem;type TForm1 = class(TForm) procedure FormShow(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public ... 阅读全文
posted @ 2011-12-12 11:28 endsnow 阅读(423) 评论(0) 推荐(0)
画框输出三角函数
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ExtCtrls;type TForm1 = class(TForm) PaintBox1: TPaintBox; MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; sin1: TMenuItem; cos1: TMenuItem; cls1: TMenuItem;... 阅读全文
posted @ 2011-12-12 11:11 endsnow 阅读(201) 评论(0) 推荐(0)
画笔操作
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}p... 阅读全文
posted @ 2011-12-12 10:17 endsnow 阅读(153) 评论(0) 推荐(0)
圆的渐开线
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1... 阅读全文
posted @ 2011-12-12 10:01 endsnow 阅读(273) 评论(0) 推荐(0)
绘制椭圆和矩形
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;type TForm1 = class(TForm) Shape1: TShape; Shape2: TShape; procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); privat... 阅读全文
posted @ 2011-12-12 09:51 endsnow 阅读(248) 评论(0) 推荐(0)
按窗口大小显示图像
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;type TForm1 = class(TForm) Image1: TImage; procedure FormCreate(Sender: TObject); procedure FormResize(Sender: TObject); private { Private declarations } public {... 阅读全文
posted @ 2011-12-12 09:28 endsnow 阅读(203) 评论(0) 推荐(0)