想做一个新型的窗体给女朋友，不知道怎么做

Question

要求必须动态创建，分不够可以无限量的给，给完为止

Answer 1

老大，你邮箱多少，我给你发个。var newform:tform
begin
  newform:=tform.create(self);
  newform.caption:='new form';
  newform.show;
  ......
end;

Answer 2

是“心型”吧？可以用Raize控件中的RzFormShape，可以作出图片指定形状的窗体。甚至可以作出你女友形象的窗体。

Answer 3

参照一下QQ2004II Beta2的魔法表情试试，应该不错前一期的电脑报有讲

Answer 4

哎, 去網上下載個gif動畫. 用某個動畫控件綁定在界面上, 
寫幾句鮮艷動聽的句子.女孩子對漂亮,浪漫,及搞笑的的圖片感興趣!
如果你女友對我這種方案感興趣.別忘了在你女友面前提及我哦~~ ^O^ >> TO 回复人： weidegong(weidegong)
你的方法太死板, 她最多看一眼就玩完了.

Answer 5

在窗体IMAGE放一张异型的图片
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons;type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Image2: TImage;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
  private
  procedure aa(var msg:Twmnchittest);message wm_nchittest;
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
{$R *.dfm}procedure TForm1.aa(var msg:Twmnchittest);
begin
inherited;
if (htclient=msg.Result) then
msg.Result:=htcaption;
end;   procedure TForm1.FormCreate(Sender: TObject);
var r1,r2:Hrgn;
begin
  r1:=CreateRoundrectRgn(152,55,392,181,30,30);
  //画圆角矩形,左上角X,Y,右下角X,Y,倒角,倒角
  r2:=CreateEllipticRgn(3,22,200,225);
  //画椭圆,左上角X,Y,右下角X,Y
  combinergn(r2,r1,r2,rgn_or);
  setWindowRgn(Handle,r2,True);
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=cafree;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

Answer 6

把好的全裸写真作为skin最最特别了，一定对你印象大为改观

Answer 7

她的名字
//窗体创建事件
procedure TForm1.FormCreate(Sender:TObject);
var
rgn:HRGN;
begin
  //设置文字颜色为红色
  form1.Color:=clred;
  //开始设置路径
  Beginpath(canvas.Handle);
  //设置背景为透明
  setbkmode(canvas.Handle,TRANSPARENT);
  //设置字体
  canvas.Font.Name:='宋体';
  //设置字号
  canvas.Font.Size:=100;
  //
  canvas.Textout(15,15,'你老婆的名字');
  //结束设置路径
  endpath(canvas.handle);
  //将路径转换至区域
  rgn:=pathtoregion(canvas.handle);
  //改变窗体形状
  setwindowrgn(handle,rgn,true);
end;
先看看成不成，然后再做成动态创建的就成。

Answer 8

To JonnySun(智者寡言) :
   老兄，你说的什么图片之类的远不如Flash更有趣。
   用我说的办法是否可以实现类似于Morlin等精灵一类的表现手法？比如以前有个摇头晃脑唱大话西游的

Answer 9

最简单的方法就是，加载你感兴趣的FLASH 现在做的FLASH 既漂亮，又有动感，又有个性化，
  哈哈，看看也很有新意喔。

Answer 10

用JVCL控件做吧，里面有大量的实例，几乎什么窗口都可以做出来，去Down一个吧，老外的控件就是好

Answer 11

上面的都不管用嗎???做什麼窗體, Gif,Flash都沒用.!!!有屁用!還不如帶你女友浪漫的吃一頓, 或帶你女友去逛逛街.買點他喜歡的小禮物, 這才管用哩!

Answer 12

每个人有每个人的想法，我觉得这个想法很有创意啊，可以充分发挥delphi的特长，flash不可能提供管理的功能吧，譬如更换照片，更换窗体的模样，更换其它的一些东西，而且可以使用到老的时候，很有创意啊，我准备做来送给所有的情侣，免费下载，但是现在没有找到做的方法好像没有控件可以根据图像来生成窗体的形状的啊

Answer 13

Delphi 7 做多么的容易啊！！
只要一张心型图片就够了。
什么代码都不用写的。
放一个image控件，在form上改改属性就可以了。