нужна помощь!! есть текст программы в DFM от Delphi.
Код:
object Form1: TForm1
Left = 271
Top = 112
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
AutoScroll = False
BorderIcons = [biSystemMenu]
Caption = 'DXSoft Switcher 2.10'
ClientHeight = 25
ClientWidth = 192
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
Scaled = False
OnActivate = FormActivate
OnCreate = FormCreate
OnDestroy = FormDestroy
OnResize = FormResize
PixelsPerInch = 96
TextHeight = 13
Form1 = Application.Terminate
object Sw1Button: TSpeedButton
AllowAllUp = true
GroupIndex = 1
Caption = '1'
ParentFont = true
OnClick = Sw1ButtonClick
end
object Sw2Button: TSpeedButton
AllowAllUp = False
GroupIndex = 2
Caption = '2'
ParentFont = False
OnClick = Sw2ButtonClick
end
object Sw3Button: TSpeedButton
AllowAllUp = False
GroupIndex = 3
Caption = '3'
ParentFont = False
OnClick = Sw3ButtonClick
end
object Sw4Button: TSpeedButton
AllowAllUp = False
GroupIndex = 4
Caption = '4'
ParentFont = False
OnClick = Sw4ButtonClick
end
object Sw5Button: TSpeedButton
AllowAllUp = False
GroupIndex = 5
Caption = '5'
ParentFont = False
OnClick = Sw5ButtonClick
end
object Sw6Button: TSpeedButton
AllowAllUp = False
GroupIndex = 6
Caption = '6'
ParentFont = False
OnClick = Sw6ButtonClick
end
object Sw7Button: TSpeedButton
AllowAllUp = False
GroupIndex = 7
Caption = '7'
ParentFont = False
OnClick = Sw7ButtonClick
end
object Sw8Button: TSpeedButton
AllowAllUp = False
GroupIndex = 8
Caption = '8'
ParentFont = False
OnClick = Sw8ButtonClick
end
object VicPort1: TVicPort
LPTNumber = 0
Left = 41
Top = 123
end
end
Application.Terminate вроде как срабатывает закрывает форму, но файл всеже остается в списке процессов, и перед закрытием появляется сообщение об ошибке:
Цитата:
Access violation at address 00401696 in module '1.exe'. Read of addres 00000109.
|
Подскажите как сделать чтобы прога закрылась полностью и без сообщений об ошибке, и только один из объектов SwButton был True? а остальные 7 false???