|
Вопрос # 2 111/ вопрос открыт / |
|
Здравствуйте люди помогите мне, пожалуйста
Я хотел изменить ресурс из ехе фала короче там есть кнопка если нажать на него то он переходит на сайт www.ronyasoft.nm.ru
и я хотел его изменить на mail.ru и изменил но все ровно переходит на www.ronyasoft.nm.ru подскажите мне что сделать ?
К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)
Примечание #1 (24 ноября 2008, 19:39): object GotoSite: TMenuItem
Caption = 'www.ronyasoft.nm.ru'
ImageIndex = 12
OnClick = GotoSiteClick
Изменил
object GotoSite: TMenuItem
Caption = 'mail.ru' (сайт на пример)
ImageIndex = 12
OnClick = GotoSiteClick
 |
Вопрос задал: Omon Bazarbaev (статус: Посетитель)
Вопрос отправлен: 24 ноября 2008, 19:38
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: DNK
Здравствуйте, Omon Bazarbaev!
Правкой данного ресурса вы измените внешний вид пункта меню. Чтобы изменить реакцию меню, похоже, нужно изменять код метода GotoSiteClick. Все было бы проще, если бы адрес брался из свойства Caption, но в нашем случае похоже он "вбит" в код.
 |
Ответ отправил: DNK (статус: Студент)
Время отправки: 25 ноября 2008, 00:31
|
Мини-форум вопроса
Всего сообщений: 12; последнее сообщение — 25 ноября 2008, 11:39; участников в обсуждении: 3.
|
Nasgool (статус: 2-ой класс), 24 ноября 2008, 19:50 [#1]:
Ты поменял внешний вид программы (Caption = \'mail.ru\'). Теперь нужно посмотреть на содержимое процедуры GotoSiteClick и поменять действия программы.
|
|
|
Omon Bazarbaev (статус: Посетитель), 24 ноября 2008, 20:08 [#2]:
Салам а где его найти
|
|
|
Nasgool (статус: 2-ой класс), 24 ноября 2008, 20:16 [#3]:
В Object Inspector вкладка Events там событие onClick. На имени процедуры двойной клик. Откроется место в коде, где прописано тело процедуры. B вобще! Учись программить, а не задалбывай глупыми вопросами.
|
|
|
Omon Bazarbaev (статус: Посетитель), 24 ноября 2008, 20:39 [#4]:
по моему здесь нету то что ты говоришь
object AboutForm: TAboutForm
Left = 250
Top = 163
Width = 278
Height = 317
Caption = #1055#1088#1086' '#1087#1088#1086#1075#1091'...'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
OnCreate = FormCreate
OnDestroy = FormDestroy
OnKeyDown = FormKeyDown
PixelsPerInch = 96
TextHeight = 13
object Image1: TImage
Left = 0
Top = 0
Width = 0
Height = 0
AutoSize = False
Picture.Data = {0754426}
end
object pnlMarc: TPanel
Left = 10
Top = -3
Width = 250
Height = 224
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
end
object BitBtn1: TBitBtn
Left = 110
Top = 240
Width = 75
Height = 25
TabOrder = 1
OnClick = BitBtn1Click
Kind = bkOK
end
end
|
|
|
Omon Bazarbaev (статус: Посетитель), 24 ноября 2008, 20:40 [#5]:
object DebugForm: TDebugForm
Left = 276
Top = 115
Width = 225
Height = 215
Caption = #1042#1110#1076#1083#1072#1076#1082#1072
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
OnCreate = FormCreate
OnKeyDown = FormKeyDown
PixelsPerInch = 96
TextHeight = 13
object BitBtn1: TBitBtn
Left = 75
Top = 155
Width = 75
Height = 25
TabOrder = 0
OnClick = BitBtn1Click
Kind = bkOK
end
object MainPanel: TPanel
Left = 0
Top = 0
Width = 217
Height = 147
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
object Label1: TLabel
Left = 15
Top = 15
Width = 65
Height = 13
Caption = #1030#1085#1110#1094#1110#1072#1083#1110#1079#1072#1094#1110#1103' :'
end
object Label2: TLabel
Left = 15
Top = 40
Width = 96
Height = 13
Caption = #1047#1072#1074#1072#1085#1090#1072#1078#1077#1085#1085#1103' '#1041#1044':'
end
object Label3: TLabel
Left = 15
Top = 65
Width = 62
Height = 13
Caption = #1057#1086#1088#1090#1091#1074#1072#1085#1085#1103':'
end
object lbInitTime: TLabel
Left = 130
Top = 15
Width = 12
Height = 13
Caption = '***'
end
object lbLoadBaseTime: TLabel
Left = 130
Top = 40
Width = 12
Height = 13
Caption = '***'
end
object lbSortTime: TLabel
Left = 130
Top = 65
Width = 12
Height = 13
Caption = '***'
end
object Label4: TLabel
Left = 190
Top = 40
Width = 13
Height = 13
Caption = 'ms'
end
object Label5: TLabel
Left = 190
Top = 65
Width = 13
Height = 13
Caption = 'ms'
end
object Label6: TLabel
Left = 190
Top = 15
Width = 13
Height = 13
Caption = 'ms'
end
object Label7: TLabel
Left = 15
Top = 115
Width = 71
Height = 13
Caption = #1047#1072#1087#1080#1089' '#1091' '#1092#1072#1081#1083':'
end
object lbSearchTime: TLabel
Left = 130
Top = 90
Width = 12
Height = 13
Caption = '***'
end
object Label9: TLabel
Left = 190
Top = 90
Width = 13
Height = 13
Caption = 'ms'
end
object Label10: TLabel
Left = 15
Top = 90
Width = 36
Height = 13
Caption = #1055#1086#1096#1091#1082':'
end
object lbSaveFileTime: TLabel
Left = 130
Top = 115
Width = 12
Height = 13
Caption = '***'
end
object Label12: TLabel
Left = 190
Top = 115
Width = 13
Height = 13
Caption = 'ms'
end
end
end
|
|
|
Omon Bazarbaev (статус: Посетитель), 24 ноября 2008, 20:40 [#6]:
object OptionsForm: TOptionsForm
Left = 262
Top = 129
BorderIcons = [biSystemMenu, biHelp]
BorderStyle = bsSingle
Caption = ' '#1054#1087#1094#1110#1111'...'
ClientHeight = 518
ClientWidth = 490
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
Position = poOwnerFormCenter
OnCreate = FormCreate
OnDestroy = FormDestroy
OnKeyDown = FormKeyDown
PixelsPerInch = 96
TextHeight = 13
object pnlReg: TPanel
Left = 4
Top = 270
Width = 482
Height = 38
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object cbCaseSensitiv: TCheckBox
Left = 16
Top = 11
Width = 191
Height = 17
Caption = #1042#1088#1072#1093#1086#1074#1091#1074#1072#1090#1080' '#1088#1077#1075#1110#1089#1090#1088' '#1089#1080#1084#1074#1086#1083#1110#1074
TabOrder = 0
end
end
object pnlBack: TPanel
Left = 0
Top = 30
Width = 490
Height = 240
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
object lvCheckPar: TListView
Left = 88
Top = 19
Width = 400
Height = 219
Align = alRight
BevelOuter = bvNone
BiDiMode = bdRightToLeft
Columns = <>
IconOptions.AutoArrange = True
IconOptions.WrapText = False
LargeImages = imgCheck
ParentBiDiMode = False
TabOrder = 0
OnCustomDraw = lvCheckParCustomDraw
OnGetImageIndex = lvCheckParGetImageIndex
OnSelectItem = lvCheckParSelectItem
end
object HeaderControl: THeaderControl
Left = 2
Top = 2
Width = 486
Height = 17
Sections = <
item
ImageIndex = -1
Width = 50
end
item
Alignment = taCenter
ImageIndex = -1
Text = #1055#1086' '#1090#1077#1083#1077#1092#1086#1085#1091
Width = 50
end
item
Alignment = taCenter
ImageIndex = -1
Width = 50
end
item
Alignment = taCenter
ImageIndex = -1
Width = 50
end
item
Alignment = taCenter
ImageIndex = -1
Width = 50
end
item
Alignment = taCenter
ImageIndex = -1
Width = 50
end>
Style = hsFlat
end
end
object pnlAdditional: TPanel
Left = 0
Top = 308
Width = 490
Height = 70
Align = alBottom
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 2
object cbImmedSearch: TCheckBox
Left = 20
Top = 11
Width = 258
Height = 17
Caption = #1055#1086#1096#1091#1082' '#1087#1110#1089#1083#1103' '#1074#1074#1077#1076#1077#1085#1085#1103' '#1085#1086#1074#1086#1075#1086' '#1089#1080#1084#1074#1086#1083#1091
TabOrder = 0
OnClick = cbImmedSearchClick
end
object cbDelay: TCheckBox
Left = 41
Top = 39
Width = 258
Height = 17
Caption = #1042#1080#1082#1086#1088#1080#1089#1090#1086#1074#1091#1074#1072#1090#1080' '#1085#1077#1074#1077#1083#1080#1095#1082#1091' '#1079#1072#1090#1088#1080#1084#1082#1091
TabOrder = 1
end
end
|
|
|
Omon Bazarbaev (статус: Посетитель), 24 ноября 2008, 20:40 [#7]:
object stParam: TStaticText
Left = 0
Top = 0
Width = 490
Height = 30
Align = alTop
Alignment = taCenter
AutoSize = False
BevelEdges = [beLeft, beTop, beRight]
BevelKind = bkTile
Caption = ' '#1055#1072#1088#1072#1084#1077#1090#1088#1080' '#1087#1086#1096#1091#1082#1091' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clHighlight
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
end
object stLang: TStaticText
Left = 0
Top = 378
Width = 490
Height = 30
Align = alBottom
Alignment = taCenter
AutoSize = False
BevelEdges = [beLeft, beTop, beRight]
BevelKind = bkTile
Caption = ' '#1052#1086#1074#1072' '#1030#1085#1090#1077#1088#1092#1077#1081#1089#1091
Font.Charset = DEFAULT_CHARSET
Font.Color = clHighlight
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
end
object pnlLang: TPanel
Left = 0
Top = 408
Width = 490
Height = 50
Align = alBottom
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 5
object cmbLanguage: TComboBox
Left = 163
Top = 13
Width = 145
Height = 21
ItemHeight = 13
TabOrder = 0
Text = 'cmbLanguage'
OnChange = cmbLanguageChange
end
end
object stReg1: TStaticText
Left = 0
Top = 270
Width = 4
Height = 38
Align = alLeft
BevelEdges = [beLeft]
BevelKind = bkTile
TabOrder = 6
end
object stReg2: TStaticText
Left = 486
Top = 270
Width = 4
Height = 38
Align = alRight
BevelEdges = [beRight]
BevelKind = bkTile
TabOrder = 7
end
object Panel1: TPanel
Left = 0
Top = 458
Width = 490
Height = 60
Align = alBottom
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 8
DesignSize = (
490
60)
object btnOk: TBitBtn
Left = 334
Top = 17
Width = 75
Height = 25
Anchors = [akBottom]
TabOrder = 0
OnClick = btnOkClick
Kind = bkOK
end
object btnCancel: TBitBtn
Left = 80
Top = 17
Width = 75
Height = 25
TabOrder = 1
OnClick = btnCancelClick
Kind = bkCancel
end
end
object imgCheck: TImageList
Height = 32
Width = 32
Left = 296
Top = 192
Bitmap = {94C01}
end
end
object PhoneForm: TPhoneForm
Left = 280
Top = 414
Width = 750
Height = 317
BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
Caption = #1058#1077#1083#1077#1092#1086#1085#1085#1080#1081' '#1076#1086#1074#1110#1076#1085#1080#1082
Color = clBtnFace
Constraints.MinHeight = 250
Constraints.MinWidth = 750
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
Menu = MainMenu1
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnResize = FormResize
PixelsPerInch = 96
TextHeight = 13
object lvMain: TListView
Left = 0
Top = 0
Width = 742
Height = 189
Align = alClient
Columns = <>
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FlatScrollBars = True
HideSelection = False
OwnerData = True
RowSelect = True
ParentFont = False
PopupMenu = PopupMenu
TabOrder = 0
ViewStyle = vsReport
OnColumnClick = lvMainColumnClick
OnData = lvMainData
end
object gbInputs: TGroupBox
Left = 0
Top = 189
Width = 742
Height = 55
Align = alBottom
Caption = ' '#1042#1093#1110#1076#1085#1110' '#1076#1072#1085#1110' '
TabOrder = 1
DesignSize = (
742
55)
object btnSearch: TBitBtn
Left = 656
Top = 17
Width = 75
Height = 25
Action = actSearch
Anchors = [akTop, akRight]
Caption = #1055#1086#1096#1091#1082
TabOrder = 0
Glyph.Data = {80C007E}
end
object XPManifest1: TXPManifest
Left = 688
Top = 16
end
end
|
|
|
Omon Bazarbaev (статус: Посетитель), 24 ноября 2008, 20:49 [#8]:
я не меню чужое это специальная программа для создания телефонного справочника я почти сделал все но там написана сайт автора я хотел его поменять
|
|
Вадим К (статус: Академик), 25 ноября 2008, 09:51 [#9]:
Ага и поучаствовать в конкурсе Mail.ru. Молодец, зачетно. Недаром автор вставил ссылку на свой сайт. Не надо тут заниматься модификацией ресурсов, а тем более, изменять код.
Если уж так сильно хочеться - можно пойти к автору программы и договориться.
Куски кода, точнее содержимое форм, которое тут "понавставленно" вообще ни к чему.
Цитата:
Все было бы проще, если бы адрес брался из свойства Caption, но в нашем случае похоже он "вбит" в код.
Ну фантазия у человека, ну фантазия. Никто нормальный просто так не делает - брать путь с визуального компонента.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
Omon Bazarbaev (статус: Посетитель), 25 ноября 2008, 11:30 [#10]:
а че вбит нельзя изменить
|
|
|
Вадим К (статус: Академик), 25 ноября 2008, 11:39 [#12]:
Я смотрел программу. Вполне написать такую за пару дней.
З.Ы. У нас принято на обращаться на Вы.
Галочка "подтверждения прочтения" - вселенское зло.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
