Показать сообщение отдельно
  #1  
Старый 04.10.2010, 10:15
BaRoN9186 BaRoN9186 вне форума
Прохожий
 
Регистрация: 04.10.2010
Сообщения: 3
Репутация: 10
Восклицание автоматическое закрытие

нужна помощь!! есть текст программы в 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???
Ответить с цитированием