線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:836
推到 Plurk!
推到 Facebook!

delphi 5 升级到 7的问题

尚未結案
gqlv
一般會員


發表:18
回覆:10
積分:5
註冊:2003-07-23

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-04-07 17:38:56 IP:218.104.xxx.xxx 未訂閱
我有个程序是delphi 5编写的,现在升级到delphi 7 ,编译通过了,也能运行, 但界面的风格变了,变成了平面风格。请问怎样才能保留以前的风格?
deity
尊榮會員


發表:90
回覆:876
積分:678
註冊:2003-05-09

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-04-07 22:16:32 IP:219.129.xxx.xxx 未訂閱
你好: 在form properity下的 scale 改为False即可 ——行径窄处,留一步与人行——
gqlv
一般會員


發表:18
回覆:10
積分:5
註冊:2003-07-23

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-04-08 09:58:52 IP:218.104.xxx.xxx 未訂閱
// 在form properity下的 scale 改为False即可! 这样不行呀! 在delphi 5 的时候控件是立体的,delphi 7的时候是平面的
deity
尊榮會員


發表:90
回覆:876
積分:678
註冊:2003-05-09

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-04-08 10:44:40 IP:218.15.xxx.xxx 未訂閱
我以为是窗体的形状,原来是控件的,不过我从
gqlv
一般會員


發表:18
回覆:10
積分:5
註冊:2003-07-23

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-04-12 15:10:08 IP:218.104.xxx.xxx 未訂閱
引言: 我以为是窗体的形状,原来是控件的,不过我从>< face="Verdana, Arial, Helvetica"> 都是一些delphi 自带的控件。都变程了office 2000 的风格呀!
mustapha.wang
資深會員


發表:89
回覆:409
積分:274
註冊:2002-03-13

發送簡訊給我
#6 引用回覆 回覆 發表時間:2004-04-13 09:59:46 IP:218.80.xxx.xxx 未訂閱
你是在windowsXP系统下吧     久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听
------
江上何人初见月,江月何年初照人
gqlv
一般會員


發表:18
回覆:10
積分:5
註冊:2003-07-23

發送簡訊給我
#7 引用回覆 回覆 發表時間:2004-04-13 10:40:44 IP:218.104.xxx.xxx 未訂閱
引言: 你是在windowsXP系统下吧 久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听
是2000 系统呀
mustapha.wang
資深會員


發表:89
回覆:409
積分:274
註冊:2002-03-13

發送簡訊給我
#8 引用回覆 回覆 發表時間:2004-04-13 11:36:31 IP:218.80.xxx.xxx 未訂閱
很好奇,你可否把dfm代码拿来看看 是不是用了TXPMenu元件     久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听
------
江上何人初见月,江月何年初照人
gqlv
一般會員


發表:18
回覆:10
積分:5
註冊:2003-07-23

發送簡訊給我
#9 引用回覆 回覆 發表時間:2004-04-14 09:24:19 IP:218.104.xxx.xxx 未訂閱
引言: 很好奇,你可否把dfm代码拿来看看 是不是用了TXPMenu元件 久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听
我只是在主form里用了txpmenu,其他form 没用,但其他FORM 的控件的风格也变呀 一下是其中变风格的 一个 form object loginForm: TloginForm Left = 357 Top = 317 BorderIcons = [] BorderStyle = bsSingle BorderWidth = 1 Caption = #29992#25143#30331#24405 ClientHeight = 131 ClientWidth = 260 Color = 15263976 Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True OldCreateOrder = False Position = poDesktopCenter PrintScale = poNone Scaled = False OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnKeyPress = FormKeyPress PixelsPerInch = 96 TextHeight = 16 object Label1: TLabel Left = 32 Top = 32 Width = 52 Height = 13 Caption = #29992#25143#24080#21495 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #23435#20307 Font.Style = [] ParentFont = False end object Label2: TLabel Left = 32 Top = 64 Width = 52 Height = 13 Caption = #29992#25143#23494#30721 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #23435#20307 Font.Style = [] ParentFont = False end object Image1: TImage Left = 192 Top = 22 Width = 32 Height = 32 AutoSize = True Picture.Data = { E000003FF00801FFF80000FFF80400FFF80600FFF80700FFFC0F81FFFE1FC3FF FFFFFFFF} end object Image2: TImage Left = 192 Top = 54 Width = 32 Height = 32 AutoSize = True Picture.Data = { 055449636F6E0000010001002020000001000800A80800001600000028000000 FFFFFFFF} end object ComboBox1: TComboBox Left = 91 Top = 26 Width = 97 Height = 24 Style = csDropDownList BiDiMode = bdLeftToRight Color = 14811135 Ctl3D = True ImeName = #26234#33021'ABC'#36755#20837#27861 ItemHeight = 16 ParentBiDiMode = False ParentCtl3D = False TabOrder = 0 OnKeyPress = ComboBox1KeyPress end object Edit1: TEdit Left = 91 Top = 58 Width = 97 Height = 24 Color = 14811135 ImeName = #26234#33021'ABC'#36755#20837#27861 PasswordChar = '*' TabOrder = 1 OnKeyPress = Edit1KeyPress end object BitBtn1: TBitBtn Left = 48 Top = 96 Width = 75 Height = 25 Caption = #30830#23450 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = Button1Click Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0000} NumGlyphs = 2 end object BitBtn2: TBitBtn Left = 144 Top = 96 Width = 75 Height = 25 Caption = #21462#28040 TabOrder = 3 OnClick = Button2Click Kind = bkCancel end end
gqlv
一般會員


發表:18
回覆:10
積分:5
註冊:2003-07-23

發送簡訊給我
#10 引用回覆 回覆 發表時間:2004-04-14 09:42:36 IP:218.104.xxx.xxx 未訂閱
引言: 很好奇,你可否把dfm代码拿来看看 是不是用了TXPMenu元件 久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听
真是txpmenu的问题。 现在问题已经解决
系統時間:2024-05-20 0:02:09
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!