DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: taolimanyuan
今日帖子: 2
在线用户: 3
导航: 论坛 -> 论坛精华贴 斑竹:liumazi,iamdream  
作者:
男 fans4000 (狼啸九天) ★☆☆☆☆ -
盒子活跃会员
2003/5/6 13:40:40
标题:
如何做出图形化的登陆界面,如一本书的形状 浏览:4432
加入我的收藏
楼主: 要用什么控件,请大虾帮忙~~~谢谢~~~~~~~~

----------------------------------------------
==DELPHI是我的生命==
作者:
男 fans4000 (狼啸九天) ★☆☆☆☆ -
盒子活跃会员
2003/5/6 13:51:10
1楼: 请高手现身
----------------------------------------------
==DELPHI是我的生命==
作者:
女 321 (321) ★☆☆☆☆ -
注册会员
2003/5/6 21:26:00
2楼: 根据位图做出漂亮的不规则FORM 
出自:http://www.2ccc.com
mantousoft 2002年10月04日 22:55 

  2000年看到一篇文章做的演示代码,可以根据位图做出漂亮的不规则FORM。

// 
//   -'`"_     -'`" \ 
//   /   \    /   " 
//  /   /\\__  / ___  \  西安科技学院143信箱 710054 
//  |   | \ -"`.-(  \  | 
//  |   | |   | \" | | 万 重 
//  |   / / "-" \ \  | 
//  \___/ / (o o) \ (__/  电邮: mantousoft@sina.com 
//     __| _   _ |__ 
//    (   ( )   )     网址: http://www.delphibox.com/
//     \_\.-.___.-./_/ 
//      __ | | __        QQ : 6036742 
//     | \.| |./ | 
//     | '#.  .#' | 
//     |__/ '"" \__|       2001.3.1 
//    -/       \- 
// 

unit Unit1; 

interface 

uses 
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
 ExtCtrls, StdCtrls, Buttons; 

type 
 TForm1 = class(TForm) 
 Image1: TImage; 
 Button1: TButton; 
 procedure FormCreate(Sender: TObject); 
 procedure Button1Click(Sender: TObject); 
 procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; 
 Shift: TShiftState; X, Y: Integer); 
 private 
  function CreateRegion(wMask: TBitmap; wColor: TColor;hControl: THandle): HRGN; 
  { Private declarations } 
 public 
  { Public declarations } 
end; 

var 
 Form1: TForm1; 

implementation 

{$R *.DFM} 

function Tform1.CreateRegion(wMask:TBitmap;wColor:TColor;hControl:THandle): HRGN; 
var 
 dc, dc_c: HDC; 
 rgn: HRGN; 
 x, y: integer; 
 coord: TPoint; 
 line: boolean; 
 color: TColor; 
begin 
 dc := GetWindowDC(hControl); 
 dc_c := CreateCompatibleDC(dc); 
 SelectObject(dc_c, wMask.Handle); 
 BeginPath(dc); 
 for x:=0 to wMask.Width-1 do 
 begin 
  line := false; 
  for y:=0 to wMask.Height-1 do 
  begin 
   color := GetPixel(dc_c, x, y); 
   if not (color = wColor) then 
   begin 
    if not line then 
    begin 
     line := true; 
     coord.x := x; 
     coord.y := y; 
    end; 
   end; 
   if (color = wColor) or (y=wMask.Height-1) then 
   begin 
    if line then 
    begin 
     line := false; 
     MoveToEx(dc, coord.x, coord.y, nil); 
     LineTo(dc, coord.x, y); 
     LineTo(dc, coord.x + 1, y); 
     LineTo(dc, coord.x + 1, coord.y); 
     CloseFigure(dc); 
    end; 
   end; 
  end; 
 end;
 EndPath(dc); 
 rgn := PathToRegion(dc); 
 ReleaseDC(hControl, dc); 
 Result := rgn; 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
var 
 w1:TBitmap; 
 w2:TColor; 
 rgn: HRGN; 
begin 
 w1:=TBitmap.Create; 
 w1.Assign(image1.Picture.Bitmap); 
 w2:=w1.Canvas.Pixels[0,0]; 
 rgn := CreateRegion(w1,w2,Handle); 
 if rgn<>0 then 
 begin 
  SetWindowRgn(Handle, rgn, true); 
 end; 
 w1.Free; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
 Close; 
end; 

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; 
Shift: TShiftState; X, Y: Integer); 
begin 
 ReleaseCapture; 
 SendMessage(Handle, WM_SYSCOMMAND, $F012, 0); 
end; 

end. 

----------------------------------------------
-
作者:
男 nestle_hcl (gigi) ★☆☆☆☆ -
注册会员
2003/5/6 21:33:58
3楼: 用到那几个控件呀!能说清楚一下吗??谢谢!
----------------------------------------------
-
作者:
女 321 (321) ★☆☆☆☆ -
注册会员
2003/5/6 21:39:46
4楼:  Image1: TImage; 
 Button1: TButton;
----------------------------------------------
-
作者:
男 Giver (Giver) ★☆☆☆☆ -
盒子活跃会员
2003/5/7 3:25:52
5楼: 这里有一个gifform,很容易可以得到某一个图片不规则窗口,而且支持gif,
不过今天,我访问不到我的网站了,完了?
你可以去www.playicq.com搜索:gifform,或者到sohu,sina等,嗖一下,应该找得到,或者,有时间,我发给你
----------------------------------------------
http://www.gaiwei.com
作者:
男 guozi (guozi) ★☆☆☆☆ -
注册会员
2003/5/8 9:22:16
6楼: 你可以到书店去找一本书,书名为《Delphi第三方控件使用大全》,现在已经出版了I,II两本,书中介绍了许多有用的控件,很不错!你说的问题,在书中有好几种控件都能够实现,书还配带光盘,有控件提供,真是不错!
----------------------------------------------
I love delphi very much !
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行41.01563毫秒 RSS