Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #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???
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 19:02.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025