up
我没结婚,不好意思, xixi
我没结婚,不好意思, xixi
解决方案 »
- copy,leftstr,pos哪里效率更高
- 急!!!!!!!!!!TSimpleDataSet是怎么一回事???
- Delphi 2006怎么安装控件啊,就是单纯的.pas文件包含的一个简单控件那种
- 如何在*.dll文件中增加有个form1,在需要时显示这个表单?, form1.showmodal;?
- 请问怎么把字符型转换为double型
- 如何将Char中的内容转换成double类型????
- 类名为TVirtualTable 的第三方控件名称 有人知道叫什么吗?
- 请教关于学习DELPHI的问题
- 寻找delphi条码打印控件急!!谢谢
- 在这种情况下怎样实现?急急急!!!
- 关于建立MDI程序的问题
- 控件的问题
我前两天挑了一条debir(我不知道怎么拼,反正是钻石恒久远,一颗永流传广告的那个牌子)的煽情系列的项链给太太庆生,我选的是第三款
2002.8.5
另外约老婆一起吃顿烛光晚餐,跳一曲浪漫的桑巴舞,她一定会很开心的,最后再来一个深情的long long warm kiss!
不过,不知道Delphi是男的还是女的? 是女的,就不能送,否则要说不清了.
生日蛋糕.蜡烛.插上;
生日蛋糕.蜡烛.点燃;
老婆.许愿;
生日蛋糕.蜡烛.吹;
if 老婆.年龄<=25 then
begin
SendMessage(老婆.handle,WM_Happybirthday,0,0);
self.Face.眼睛 := 弯;
self.Face.嘴 := 裂开;
self.Body.手 := 张开;
self.笑;
self.拥抱;
self.Face.嘴 := 老婆.Face.嘴;
......(下面的就不用我再写了);
end;
if (老婆.年龄>25) and (老婆.年龄<=40) then
begin
SendMessage(老婆.handle,WM_Happybirthday,0,0);
ShowWindow(礼物.handle);
客人.ShowModal;
餐厅.桌子.Count := 10;
客人.腿.坐下;
end;
if (老婆.年龄>40) and (老婆.年龄<=100) then
begin
客人.Showmodal;
SetWindowPos(老婆.handle,厨房,0,0,0,0,WM_Cooking);
while 客人.吃饭中 do
begin
客人.吃饭中 := 饭菜.EOF;
end;
老婆.洗碗;
end;
if (老婆.年龄>100) then
begin
if (self.living = true) and (老婆.living = true) then
begin
客人.恭喜恭喜;///金婚纪念阿;
.......
end;
end;
看情况啊。惊喜和浪漫是分不开的,建议作一些她想不到的鬼点子。比如可以证明他最近瘦啦,她比你强的地方多突出一下,女人嘛,爱面子。我调查过,在女人上班后突然送红玫瑰9999朵。大概99%会叫出来,在卡片上写上模棱两可的名字。叫她在同事面前有面子,到家后假装看报纸,问今天有什么事?然后……我就不说了。这只是个比喻,具体还得你拿主意。在别人面前有面子是最让女人开心的。
to: reallike我很欣赏这个浪漫的主意。可惜风险比较大:万一老婆回来你问她今天有什么事,她淡淡地说:“也没什么特别的……”,那完蛋了,好好的生日晚宴将要变成醋坛子翻滚了……(好啊!收到陌生人的玫瑰居然不告诉我,想红杏出墙啊!……)
有一个i love you的程序,可以参考一下