DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: eyang11
今日帖子: 1
在线用户: 10
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 chengyao (百炼成尧) ★☆☆☆☆ -
盒子活跃会员
2004/3/8 15:18:40
标题:
XP窗体? 浏览:1426
加入我的收藏
楼主: 我在DELPHI7里安装了XP系列,可怎么运用啊?
比如我想把窗体变成XP效果的,应该怎么弄啊?
----------------------------------------------
Function IThink(Boy,Girl : TPerson) : String;
begin
  if Boy.钱 < 10W then Girl.Say(''滚!'') else
  begin
     if Girl.Anser = ''我愿意'' then
     Result := ''结婚'' else
     Result := IntToStr(88);
  end;
风过不折→百炼成尧 QQ: 7315910
作者:
男 waterstone (waterstone) ★☆☆☆☆ -
盒子活跃会员
2004/3/8 15:35:14
1楼: 知识是学不完的,拜托大家谦虚点,OK?

----------------------------------------------
我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com
作者:
男 restboy (枫☆白水煮大虾) ★☆☆☆☆ -
盒子活跃会员
2004/3/8 15:44:23
2楼: 我一直很谦虚。。。。真的。。。
----------------------------------------------
夫君子之行,静以修身,俭以养德.非澹泊无以明志, 
非宁静无以致远.夫学须静也,才须学也,非学无以广才,
非志无以成学,淫漫则不能励精,险躁则不能治性,年与时驰, 
意与日去,遂成枯落,多不接世,悲守穷庐,将复何及!
作者:
男 chengyao (百炼成尧) ★☆☆☆☆ -
盒子活跃会员
2004/3/9 9:15:30
3楼: 怎么弄成XP的窗体嘛?
----------------------------------------------
Function IThink(Boy,Girl : TPerson) : String;
begin
  if Boy.钱 < 10W then Girl.Say(''滚!'') else
  begin
     if Girl.Anser = ''我愿意'' then
     Result := ''结婚'' else
     Result := IntToStr(88);
  end;
风过不折→百炼成尧 QQ: 7315910
作者:
男 easykey (悠游) ★☆☆☆☆ -
盒子活跃会员
2004/3/9 12:24:25
4楼: 用界面控件嘛,比如suipack,xpmenu,vclskin等等,自己选择吧
----------------------------------------------
按此在新窗口浏览图片
男儿贵展平生志,为国输忠合天地。甲穿虽则失黄金,剑缺犹能生紫气。塞草萋萋兵士苦,胡虏如今勿胡虏。封侯十万始无心,玉关生入君看取。

敬请光临 学海Delphi站
  http://delphi.studysea.net
学海无涯,让我们共同成长!
作者:
男 chengyao (百炼成尧) ★☆☆☆☆ -
盒子活跃会员
2004/3/9 12:31:38
5楼: 那属性怎么设置呢?
----------------------------------------------
Function IThink(Boy,Girl : TPerson) : String;
begin
  if Boy.钱 < 10W then Girl.Say(''滚!'') else
  begin
     if Girl.Anser = ''我愿意'' then
     Result := ''结婚'' else
     Result := IntToStr(88);
  end;
风过不折→百炼成尧 QQ: 7315910
作者:
男 waterstone (waterstone) ★☆☆☆☆ -
盒子活跃会员
2004/3/9 12:40:46
6楼: 呵呵,我不会!
谦虚吧。

----------------------------------------------
我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com
作者:
男 easykey (悠游) ★☆☆☆☆ -
盒子活跃会员
2004/3/9 12:41:22
6楼: 控件本身就有skin窗体的功能,suipack是直接替换界面,设计期就可以看到效果,vclskin需要选择一个skin文件,然后把Active设置成true,运行时才能看到效果。
这些控件本身都带有demo,看一下就明白了。
----------------------------------------------
按此在新窗口浏览图片
男儿贵展平生志,为国输忠合天地。甲穿虽则失黄金,剑缺犹能生紫气。塞草萋萋兵士苦,胡虏如今勿胡虏。封侯十万始无心,玉关生入君看取。

敬请光临 学海Delphi站
  http://delphi.studysea.net
学海无涯,让我们共同成长!
作者:
男 chengyao (百炼成尧) ★☆☆☆☆ -
盒子活跃会员
2004/3/9 14:00:29
7楼: 我现在在窗体上拉了一个 suiMDIForm1  组件,窗体是变成XP了,但属性跟FORM的属性大不一样,比如我想设置因定大小的属性都没有,咋办啊?
----------------------------------------------
Function IThink(Boy,Girl : TPerson) : String;
begin
  if Boy.钱 < 10W then Girl.Say(''滚!'') else
  begin
     if Girl.Anser = ''我愿意'' then
     Result := ''结婚'' else
     Result := IntToStr(88);
  end;
风过不折→百炼成尧 QQ: 7315910
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行74.21875毫秒 RSS