|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
автоматическое закрытие
нужна помощь!! есть текст программы в 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 вроде как срабатывает закрывает форму, но файл всеже остается в списке процессов, и перед закрытием появляется сообщение об ошибке: Цитата:
Подскажите как сделать чтобы прога закрылась полностью и без сообщений об ошибке, и только один из объектов SwButton был True? а остальные 7 false??? |
#2
|
||||
|
||||
Подобное сообщение появляется обычно в случае неверного освобождения памяти по завершении программы. Копайте код, где-то вы что-то накрутили.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
|||
|
|||
Цитата:
Честно говоря впервые слышу, что бы код вставляли в файл формы. И даже если учесть, что такое возможно и операторы будут отрабатываться. То что вы хотели от данной строчки получить?,Как я понимаю, вы хотите вырубить программу до того, как создана форма. Или я чего-то не понимаю... |
#4
|
|||
|
|||
я просто в delphi далеко не на ТЫ, и хотел что бы программа закрылась сама по завершению......что практически удалось (если не учитывать 2 момента: это сообщения об ошибке, и наличие ее в списке процессов)
|
#5
|
||||
|
||||
У вас ошибка в коде, как написали выше... но если вы НЕ хотите не чего исправлять, то допустим в FormClose пропишите halt;
тогда ваша программа закроется и ошибки выдаваться не будут, но лучше найдите, т.к. из-за не освобождения памяти компьютер будет хуже работать... Помогаю за Спасибо |
#6
|
|||
|
|||
изначальный код не имел строку
Код HTML:
|
#7
|
||||
|
||||
Сказал же, уберите строку "Form1 = Application.Terminate", и если при закрытии процесс остается, значит есть ошибка в коде, но повторюсь, если НЕ хотите ее отлавливать (искать), то напишите:
Код:
tform1Close(...) begin Halt(); end; Помогаю за Спасибо |