Delphi 使播放的Flash随窗口大小改变

Delphi 从剪贴板中读取图片，Windows剪帖板相信大家都知道吧，这个程序可查看剪贴板中的图像，将图片另保存，可看作是一个查看剪贴板中图片的一个例子。 　　implementation 　　{$R *.dfm} 　　procedure TForm1.BitBtn1Click(Sender: TObject); 　　begin 　　 Clipboard().Assign(Image1.Picture.Bitmap); 　　end; 　　procedure TForm1.BitBtn2Click(Sender: TObject); 　　begin 　　 if Clipboard().HasFormat(CF_BITMAP) then 　　 Image2.Picture.Bitmap.Assign(Clipboard()); 　　end; 　　procedure TForm1.BitBtn3Click(Sender: TObject); 　　begin 　　 Image2.picture := nil; 　　end; 　　end.

这是个有意思的窗口设计实例源码，Delphi实现窗体失去焦点时标题栏闪动特效，flashwindow特效，这样可吸引操作者注意，其实实现这一功能并不复杂，以下代码最关键： 　　procedure TForm1.Timer1Timer(Sender: TObject); 　　begin 　　 flashwindow(Handle,true); 　　end; 　　procedure TForm1.WMACTIVATEAPP(var message: TWMACTIVATEAPP); 　　begin 　　 if Message.Active then 　　 form1.Timer1.Enabled := false 　　 else 　　 form1.Timer1.Enabled := true; 　　end; 　　完整源码请下载。

Delphi实现RGB色环的绘制源码 XE10.2+WIN764，鼠标移动时提取颜色RGB的值,可以设置中心圆是否是透明的，RGB色环的代码绘制，传入图片的大小,扣出中心的黑色圆,输入图片与中心圆的半径。这个色环的颜色十分精细，过渡十分自然，本例子代码的参考价值还是挺大的。

Delphi 获取网页源代码，这个程序首先是一个网页浏览器，可解析用户输入的网址，直接输出网页界面，然后通过操作主窗口区的Tab选项，查看该网页的源代码，也就是完成了两种功能：1、网页浏览器，2、查看源代码。运行界面如下图示。

Delphi 函数【Frame3D】的应用，该函数用于在画布上绘制一个3维框图： 　　implementation 　　{$R *.dfm} 　　procedure TFrmFrame3D.FormCreate(Sender: TObject); 　　begin 　　 Bc:=Rect(80,50,100,200); 　　end; 　　procedure TFrmFrame3D.FormPaint(Sender: TObject); 　　begin 　　 Frame3D(canvas,Bc,clblack,clAppWorkSpace,2); 　　end; 　　procedure TFrmFrame3D.Button1Click(Sender: TObject); 　　begin 　　 Bc:=Rect(strtoint(Edx.text),strtoint(Edy.Text),strtoint(EdH.Text),strtoint(EdW.Text)); 　　 Frame3D(canvas,Bc,clblack,clAppWorkSpace,2); 　　end;

使用Delphi 制作无闪烁的动画效果，如何实现不闪烁的动画呢？这个例子或许能找到一些答案：部分代码如下： 　　var 　　 x,i: Integer; 　　 dir,run: Boolean; 　　begin 　　 b := TBitMap.Create; 　　 b.Width := AnimWindow.Width; 　　 b.Height := 32; 　　 b.Canvas.Pen.Color := clBtnFace; 　　 b.Canvas.Brush.Color := clBtnFace; 　　 b.Canvas.Rectangle(0,0,AnimWindow.Width,32); 　　 run := True; 　　 dir := False; 　　 x := 0; 　　 while run do 　　 for i := 0 to AnimWindow.ImageList1.Count-1 do 　　 begin 　　 b.Canvas.Rectangle(0,0,AnimWindow.Width,32); 　　 AnimWindow.ImageList1.Draw(b.Canvas,x,0,i); 　　 Synchronize(DrawAnimPic); 　　 Sleep(AnimWindow.SpinEdit1.Value); 　　 if (x = 0) or (x = 300) then dir := not dir; 　　 if dir then Inc(x) else Dec(x); 　　 end; 　　 b.Free; 　　end;

Delphi判断双字节，用法简单，在窗口输入框中输入字符串，单击按钮即可，程序会判断出是否包含有双字节字符，判断方法请看下边的代码段： 　　s := Edit1.Text; 　　i := 0; 　　while i　　begin 　　 if (ByteType(S,i) mbSingleByte) then 　　 begin 　　 s1 := s1+ copy(s,i,2)+; 　　 i := i+2; 　　 end 　　 else 　　 i:= i+1; 　　end; 　　label2.Caption := trim(s1);

Delphi 模拟Windows “显示桌面”功能，对于功能就不再详述了，单击后，会看到Windows桌面，具体的实现方法也挺简单的，下面几行代码就搞定了： 　　if IsWindowVisible(h) then 　　 PostMessage(h, WM_SYSCOMMAND, SC_MINIMIZE, 0); 　　h := GetNextWindow(h, GW_HWNDNEXT); 　　完整的可编译源码请你下载源码包吧。

Delphi 把时间格式转换成字符串来显示，在运行的程序界面中，选择一个指定的日期后，可将此日期转换成字符串格式的，也就是不再具备时间的属性，但是自身已经变为字符串了。人可以识别，但机器不再识别为时间了。 　　procedure TForm1.FormShow(Sender: TObject); 　　begin 　　 DateTimePicker1.Date:=now(); 　　end; 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 edit1.Text:=datetostr(DateTimePicker1.Date); 　　end;

Delphi添加图层蒙版，运行本程序后，在屏幕上添加一层阴影，透明度大概在70%左右，可看作是在屏幕上方蒙了一层薄膜的感觉，代码简单：procedure TForm1.FormCreate(Sender: TObject); 　　var 　　 bTrans: Byte; 　　 OldStyle: Integer; 　　begin 　　 form1.Color := clGradientActiveCaption; 　　 WindowState := wsMaximized; 　　 BorderStyle := bsNone; 　　 FormStyle := fsStayOnTop; 　　 OldStyle := GetWindowLong(Handle, GWL_EXSTYLE); 　　 SetWindowLong(Handle, GWL_EXSTYLE, OldStyle or WS_EX_LAYERED Or WS_EX_TRANSPARENT); 　　 bTrans := 128; 　　 SetLayeredWindowAttributes(Handle, 0, bTrans, LWA_ALPHA); 　　end;