Q&A

  • 프로그램 고칠려고 하는데요
델파이 인데... 리소스 고쳐서...
프로그램 실행시에 화면창이 안뜨고 자동으로 트래이 아이콘으로 들어가 버려서...
실행할때 메인화면 보이게 하고 싶퍼서요...
어떻게 수정해야 되나요 ?

==================================================================

object Form1: TForm1
  Left = 325
  Top = 172
  Width = 572
  Height = 484
  Caption = 'DL To List'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Menu = MainMenu1
  OldCreateOrder = False
  ScreenSnap = True
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnShortCut = FormShortCut
  PixelsPerInch = 96
  TextHeight = 13
  object TV: TTreeView
    Left = 0
    Top = 30
    Width = 564
    Height = 400
    Align = alClient
    ChangeDelay = 50
    DragMode = dmAutomatic
    HideSelection = False
    Indent = 19
    PopupMenu = PopupMenu1
    ReadOnly = True
    TabOrder = 0
    OnAdvancedCustomDrawItem = TVAdvancedCustomDrawItem
    OnChange = TVChange
    OnDblClick = TVDblClick
    OnDragDrop = TVDragDrop
    OnDragOver = TVDragOver
    OnEditing = TVEditing
    OnEnter = TVEnter
    OnMouseDown = TVMouseDown
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 564
    Height = 30
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object NewBtn: TSpeedButton
      Left = 0
      Top = 0
      Width = 30
      Height = 30
      Flat = True
      Glyph.Data = {
        42010000424D4201000000000000760000002800000011000000110000000100
        040000000000CC00000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888800000008888888888888888800000008088888888888888800000008088
        0000000000088000000080880BBBBBBBBB088000000080000BBBBBBBBB088000
        000080880BBBBBBBBB0880000000808800000000000880000000808888888888
        8888800000008088888888888888800000008088000000000008800000008088
        0FFFFFFFFF088000000080000FFFFFFFFF088000000080880FFFFFFFFF088000
        0000808800000000000880000000888888888888888880000000888888888888
        888880000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = NewBtnClick
    end
    object NewSubBtn: TSpeedButton
      Left = 30
      Top = 0
      Width = 30
      Height = 30
      Flat = True
      Glyph.Data = {
        42010000424D4201000000000000760000002800000011000000110000000100
        040000000000CC00000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888800000008888888888888888800000008888888888888888800000008888
        88880000000080000000888888880BBBBBB080000000888800000BBBBBB08000
        0000888808880BBBBBB080000000888808880000000080000000888808888888
        888880000000888808888888888880000000880000000000088880000000880F
        FFFFFFFF088880000000880FFFFFFFFF088880000000880FFFFFFFFF08888000
        0000880000000000088880000000888888888888888880000000888888888888
        888880000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = NewSubBtnClick
    end
    object EditBtn: TSpeedButton
      Left = 60
      Top = 0
      Width = 30
      Height = 30
      Flat = True
      Glyph.Data = {
        42010000424D4201000000000000760000002800000011000000110000000100
        040000000000CC00000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888800000008888888888888888800000008888888888888888800000008000
        0000000008888000000080FFFFFFFFFF08888000000080F0F0F0F00F08888000
        000080F0F0F0FF0008888000000080FFFFFFF00B70888000000080000000000B
        808880000000888888888880B70880000000888888888880B808800000008888
        888888880B70800000008888888888880B708000000088888888888880050000
        0000888888888888805500000000888888888888880080000000888888888888
        888880000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = EditBtnClick
    end
    object DelBtn: TSpeedButton
      Left = 90
      Top = 0
      Width = 30
      Height = 30
      Flat = True
      Glyph.Data = {
        42010000424D4201000000000000760000002800000011000000110000000100
        040000000000CC00000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        777770000000777777777777777770000000777777777777770F700000007777
        0F777777777770000000777000F7777770F770000000777000F777770F777000
        00007777000F77700F777000000077777000F700F7777000000077777700000F
        7777700000007777777000F777777000000077777700000F7777700000007777
        7000F70F7777700000007770000F77700F7770000000770000F7777700F77000
        00007700F7777777700F70000000777777777777777770000000777777777777
        777770000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = DelBtnClick
    end
    object UndoBtn: TSpeedButton
      Left = 120
      Top = 0
      Width = 30
      Height = 30
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777777777777777777777777777777
        7777777777777778477777444447777748777744447777777477774447777777
        7477774474777777747777477744777748777777777744448777777777777777
        7777777777777777777777777777777777777777777777777777}
      ParentShowHint = False
      ShowHint = True
      OnClick = UndoBtnClick
    end
    object UpBtn: TSpeedButton
      Left = 160
      Top = 0
      Width = 30
      Height = 30
      Flat = True
      Glyph.Data = {
        DE000000424DDE0000000000000076000000280000000D0000000D0000000100
        0400000000006800000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7000777777777777700077770000077770007777066607777000777706660777
        7000777706660777700070000666000070007706666666077000777066666077
        7000777706660777700077777060777770007777770777777000777777777777
        7000}
      ParentShowHint = False
      ShowHint = True
      OnClick = UpBtnClick
    end
    object DownBtn: TSpeedButton
      Left = 190
      Top = 0
      Width = 30
      Height = 30
      Flat = True
      Glyph.Data = {
        DE000000424DDE0000000000000076000000280000000D0000000D0000000100
        0400000000006800000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7000777777777777700077777707777770007777706077777000777706660777
        7000777066666077700077066666660770007000066600007000777706660777
        7000777706660777700077770666077770007777000007777000777777777777
        7000}
      ParentShowHint = False
      ShowHint = True
      OnClick = DownBtnClick
    end
    object LeftBtn: TSpeedButton
      Left = 220
      Top = 0
      Width = 30
      Height = 30
      Flat = True
      Glyph.Data = {
        DE000000424DDE0000000000000076000000280000000D0000000D0000000100
        0400000000006800000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7000777777077777700077777007777770007777060777777000777066000007
        7000770666666607700070666666660770007706666666077000777066000007
        7000777706077777700077777007777770007777770777777000777777777777
        7000}
      ParentShowHint = False
      ShowHint = True
      OnClick = LeftBtnClick
    end
    object RightBtn: TSpeedButton
      Left = 250
      Top = 0
      Width = 30
      Height = 30
      Flat = True
      Glyph.Data = {
        DE000000424DDE0000000000000076000000280000000D0000000D0000000100
        0400000000006800000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7000777777077777700077777700777770007777770607777000770000066077
        7000770666666607700077066666666070007706666666077000770000066077
        7000777777060777700077777700777770007777770777777000777777777777
        7000}
      ParentShowHint = False
      ShowHint = True
      OnClick = RightBtnClick
    end
    object OptionsBtn: TSpeedButton
      Left = 290
      Top = 0
      Width = 30
      Height = 30
      Flat = True
      Glyph.Data = {
        42010000424D4201000000000000760000002800000011000000110000000100
        040000000000CC00000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFF0000000F87777777777777FF0000000F88888888888887FF0000000F8FF
        FFFFFFFFF87FF0000000F8F0F7777777F87FF0000000F8000FFFFFFFF87FF000
        0000F80F00777777F87FF0000000F8FFF00FFFFFF87FF0000000F8F0F7777777
        F87FF0000000F8000FFFFFFFF87FF0000000F80F00777777F87FF0000000F8FF
        F00FFFFFF87FF0000000F8FFF77777F7777FF0000000F8FFFFFFFFF8F7FFF000
        0000F8FFFFFFFFF87FFFF0000000F88888888888FFFFF0000000FFFFFFFFFFFF
        FFFFF0000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = Options1Click
    end
    object Bevel2: TBevel
      Left = 155
      Top = 0
      Width = 10
      Height = 30
      Shape = bsLeftLine
    end
    object Bevel3: TBevel
      Left = 285
      Top = 0
      Width = 10
      Height = 30
      Shape = bsLeftLine
    end
  end
  object Memo1: TMemo
    Left = 16
    Top = 104
    Width = 73
    Height = 65
    Lines.Strings = (
      'Memo1')
    TabOrder = 2
    Visible = False
    WordWrap = False
  end
  object Edit1: TEdit
    Left = 16
    Top = 184
    Width = 121
    Height = 21
    TabOrder = 3
    Visible = False
    OnExit = Edit1Exit
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'sdl'
    Filter = 'DL To List Files (*.dlt)|*.dlt'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 152
    Top = 56
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'sdl'
    Filter = 'DL To List Files (*.dlt)|*.dlt'
    Left = 112
    Top = 96
  end
  object MainMenu1: TMainMenu
    Left = 24
    Top = 56
    object File1: TMenuItem
      Caption = 'File'
      object New1: TMenuItem
        Caption = '&New'
        ShortCut = 16462
        OnClick = New1Click
      end
      object Open1: TMenuItem
        Caption = '&Open...'
        ShortCut = 16463
        OnClick = Open1Click
      end
      object Save1: TMenuItem
        Caption = '&Save'
        ShortCut = 16467
        OnClick = Save1Click
      end
      object SaveAs1: TMenuItem
        Caption = 'Save &As...'
        ShortCut = 16449
        OnClick = SaveAs1Click
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object PrintSetup1: TMenuItem
        Caption = 'Print...'
        OnClick = PrintSetup1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exportastext1: TMenuItem
        Caption = 'E&xport to Text File...'
        OnClick = Exportastext1Click
      end
      object ImportfromTextFile1: TMenuItem
        Caption = '&Import from Text File...'
        OnClick = ImportfromTextFile1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object MinimizetoTray1: TMenuItem
        Caption = 'Minimize to Tray'
        OnClick = MinimizetoTray1Click
      end
      object Exit1: TMenuItem
        Caption = 'Exit Completely'
        OnClick = Exit1Click
      end
    end
    object Item1: TMenuItem
      Caption = 'Edit'
      object Undo1: TMenuItem
        Caption = 'Undo'
        Enabled = False
        ShortCut = 16474
        OnClick = UndoBtnClick
      end
      object Redo1: TMenuItem
        Caption = 'Redo'
        Enabled = False
        OnClick = Redo1Click
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object Find1: TMenuItem
        Caption = 'Find'
        ImageIndex = 1
        ShortCut = 16454
        OnClick = Find1Click
      end
      object FindNext1: TMenuItem
        Caption = 'Find Next'
        ImageIndex = 0
        ShortCut = 114
        OnClick = FindNext1Click
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object Cut1: TMenuItem
        Caption = 'Cut Item'
        OnClick = Cut1Click
      end
      object Copy1: TMenuItem
        Caption = 'Copy Item'
        OnClick = Copy1Click
      end
      object Paste1: TMenuItem
        Caption = 'Paste Item'
        OnClick = Paste1Click
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object CopytoClipboard1: TMenuItem
        Caption = 'Copy all items to Clipboard'
        OnClick = CopytoClipboard1Click
      end
    end
    object Item2: TMenuItem
      Caption = 'Item'
      object NewItem1: TMenuItem
        Caption = 'New Item'
        OnClick = NewBtnClick
      end
      object NewSubItem1: TMenuItem
        Caption = 'New Sub-item     '
        OnClick = NewSubBtnClick
      end
      object EditItem1: TMenuItem
        Caption = 'Edit Item'
        OnClick = EditBtnClick
      end
      object DeleteItem1: TMenuItem
        Caption = 'Delete Item'
        OnClick = DelBtnClick
      end
      object DuplicateItem1: TMenuItem
        Caption = 'Duplicate Item'
        ShortCut = 16452
        OnClick = DuplicateItem1Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object Moveup1: TMenuItem
        Caption = 'Move up'
        OnClick = UpBtnClick
      end
      object MoveDown1: TMenuItem
        Caption = 'Move down'
        OnClick = DownBtnClick
      end
      object Level1: TMenuItem
        Caption = 'Level ->'
        OnClick = RightBtnClick
      end
      object Level2: TMenuItem
        Caption = 'Level <-'
        OnClick = LeftBtnClick
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object ExpandAll1: TMenuItem
        Caption = 'Expand All'
        OnClick = Button9Click
      end
      object CollapseAll1: TMenuItem
        Caption = 'Collapse All'
        OnClick = Button10Click
      end
    end
    object Priority1: TMenuItem
      Caption = 'Category'
      object Priority11: TMenuItem
        Tag = 1
        Caption = 'Priority1'
        RadioItem = True
        OnClick = Priority11Click
      end
      object Priority21: TMenuItem
        Tag = 2
        Caption = 'Priority2'
        RadioItem = True
        OnClick = Priority11Click
      end
      object Priority31: TMenuItem
        Tag = 3
        Caption = 'Priority3'
        RadioItem = True
        OnClick = Priority11Click
      end
      object Priority41: TMenuItem
        Tag = 4
        Caption = 'Priority4'
        RadioItem = True
        OnClick = Priority11Click
      end
      object Priority51: TMenuItem
        Tag = 5
        Caption = 'Priority5'
        RadioItem = True
        OnClick = Priority11Click
      end
      object Priority61: TMenuItem
        Tag = 6
        Caption = 'Priority6'
        RadioItem = True
        OnClick = Priority11Click
      end
      object Priority71: TMenuItem
        Tag = 7
        Caption = 'Priority7'
        RadioItem = True
        OnClick = Priority11Click
      end
      object Priority81: TMenuItem
        Tag = 8
        Caption = 'Priority8'
        RadioItem = True
        OnClick = Priority11Click
      end
      object Priority91: TMenuItem
        Tag = 9
        Caption = 'Priority9'
        RadioItem = True
        OnClick = Priority11Click
      end
    end
    object Options1: TMenuItem
      Caption = 'Options'
      object ShowToolbar1: TMenuItem
        AutoCheck = True
        Caption = 'Show Toolbar'
        OnClick = ShowToolbar1Click
      end
      object ShowFilename1: TMenuItem
        Caption = 'Show File Name in Title Bar'
        OnClick = ShowFilename1Click
      end
      object Options2: TMenuItem
        Caption = 'Preferences...'
        ShortCut = 16464
        OnClick = Options1Click
      end
    end
    object Help1: TMenuItem
      Caption = 'Help'
      object Documentation1: TMenuItem
        Caption = 'Help File...'
        OnClick = Documentation1Click
      end
      object keyboardShortcuts1: TMenuItem
        Caption = 'Keyboard Shortcuts...'
        OnClick = keyboardShortcuts1Click
      end
      object Website1: TMenuItem
        Caption = 'Go to Website...'
        OnClick = Website1Click
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object Register1: TMenuItem
        Caption = 'Register...'
        OnClick = Register1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object About1: TMenuItem
        Caption = 'About...'
        OnClick = About1Click
      end
    end
  end
  object SaveDialog2: TSaveDialog
    DefaultExt = 'txt'
    Filter = 'Text Files (*.txt)|*.txt'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 112
    Top = 56
  end
  object OpenDialog2: TOpenDialog
    DefaultExt = 'txt'
    Filter = 'Text Files (*.txt)|*.txt'
    Left = 152
    Top = 96
  end
  object PopupMenu1: TPopupMenu
    Left = 56
    Top = 56
    object PopPriority11: TMenuItem
      Tag = 1
      Caption = 'PopPrority1'
      RadioItem = True
      OnClick = PopPriority11Click
    end
    object PopPriority21: TMenuItem
      Tag = 2
      Caption = 'PopPrority2'
      RadioItem = True
      OnClick = PopPriority11Click
    end
    object PopPriority31: TMenuItem
      Tag = 3
      Caption = 'PopPrority3'
      RadioItem = True
      OnClick = PopPriority11Click
    end
    object PopPriority41: TMenuItem
      Tag = 4
      Caption = 'PopPrority4'
      RadioItem = True
      OnClick = PopPriority11Click
    end
    object PopPriority51: TMenuItem
      Tag = 5
      Caption = 'PopPrority5'
      RadioItem = True
      OnClick = PopPriority11Click
    end
    object PopPriority61: TMenuItem
      Tag = 6
      Caption = 'PopPrority6'
      RadioItem = True
      OnClick = PopPriority11Click
    end
    object PopPriority71: TMenuItem
      Tag = 7
      Caption = 'PopPrority7'
      RadioItem = True
      OnClick = PopPriority11Click
    end
    object PopPriority81: TMenuItem
      Tag = 8
      Caption = 'PopPriority8'
      RadioItem = True
      OnClick = PopPriority11Click
    end
    object PopPriority91: TMenuItem
      Tag = 9
      Caption = 'PopPriority9'
      RadioItem = True
      OnClick = PopPriority11Click
    end
  end
  object Timer1: TTimer
    Interval = 60000
    OnTimer = Timer1Timer
    Left = 112
    Top = 136
  end
  object PrinterSetupDialog1: TPrinterSetupDialog
    Left = 152
    Top = 136
  end
  object XPManifest1: TXPManifest
    Left = 488
    Top = 72
  end
end
1  COMMENTS
  • Profile
    Marek 2006.12.11 18:05
    안녕하세요.
    FormCreate에서 아래 MinimizeToTray1Click(Self)를 제거 하시면 될겁니다.

    Marek...


          object MinimizetoTray1: TMenuItem
            Caption = 'Minimize to Tray'
            OnClick = MinimizetoTray1Click
          end