먼저, 고맙습니다..
.dfm파일 첨부합니다..
파일내용 보니..Left, Top,,에 마이너스 위치좌표는 없는뎅...???

---------------------------<uDM.dfm>--------------
object DM: TDM
  OldCreateOrder = False
  Left = 65019
  Top = 149
  Height = 343
  Width = 465
  object pimsDB: TDatabase
    Connected = True
    DatabaseName = 'pimsDB'
    DriverName = 'INTRBASE'
    LoginPrompt = False
    Params.Strings = (
      'SERVER NAME=d:\interbase\pims.gdb'
      'USER NAME=tarzan'
      'OPEN MODE=READ/WRITE'
      'SCHEMA CACHE SIZE=8'
      'LANGDRIVER='
      'SQLQRYMODE='
      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
      'SCHEMA CACHE TIME=-1'
      'MAX ROWS=-1'
      'BATCH COUNT=200'
      'ENABLE SCHEMA CACHE=FALSE'
      'SCHEMA CACHE DIR='
      'ENABLE BCD=FALSE'
      'BLOBS TO CACHE=64'
      'BLOB SIZE=32'
      'WAIT ON LOCKS=FALSE'
      'COMMIT RETAIN=FALSE'
      'ROLE NAME='
      'PASSWORD=jane4u')
    SessionName = 'Default'
    Left = 8
    Top = 8
  end
  object tblPerson: TTable
    Active = True
    BeforeEdit = tblPersonBeforeEdit
    BeforePost = tblPersonBeforePost
    DatabaseName = 'pimsDB'
    TableName = 'PERSON'
    Left = 64
    Top = 8
  end
  object dsPerson: TDataSource
    DataSet = tblPerson
    Left = 128
    Top = 8
  end
  object tblOrg: TTable
    Active = True
    DatabaseName = 'pimsDB'
    TableName = 'ORGINFO'
    Left = 64
    Top = 64
  end
  object dsOrg: TDataSource
    DataSet = tblOrg
    Left = 128
    Top = 64
  end
  object tblCompany: TTable
    Active = True
    DatabaseName = 'pimsDB'
    TableName = 'COMPANY'
    Left = 64
    Top = 120
    object tblCompanyCP_NAME: TStringField
      FieldName = 'CP_NAME'
      Required = True
      Size = 40
    end
    object tblCompanyCP_ZIPCODE: TStringField
      FieldName = 'CP_ZIPCODE'
      FixedChar = True
      Size = 6
    end
    object tblCompanyCP_ADDR: TStringField
      FieldName = 'CP_ADDR'
      Size = 120
    end
    object tblCompanyCP_TEL: TStringField
      FieldName = 'CP_TEL'
    end
    object tblCompanyCP_FAX: TStringField
      FieldName = 'CP_FAX'
    end
    object tblCompanyCP_HOMEPAGE: TStringField
      FieldName = 'CP_HOMEPAGE'
      Size = 30
    end
  end
  object dsCompany: TDataSource
    DataSet = tblCompany
    Left = 128
    Top = 120
  end
  object Table1: TTable
    Left = 64
    Top = 184
  end
end
--------------------------------------
입니다...

civilian 님이 쓰신 글 :
: .PAS의 내용은 별 의미가 없으니 .DFM 파일을 에디터로 열어서 내용을 올려주세요.
: 언젠가... 폼의 좌표가 화면영역에 표시할 수 없는 곳으로 설정된 경우가 있더군요.
: Left = -1000, Top = -300
: 머 이런식이면.. 화면에 안나오거든요.
: 확인해볼 수 있는 방법은 DFM의 내용을 들여다보는 수 밖에 없습니다
:
: 강가딘 님이 쓰신 글 :
: : 이전에 작성했든 델프로젝트를..이번에 시스템 다시밀고,,
: : 포멧하여 설치하야 열어보니..
: : Ctrl+F12를 눌러 폼을 선택한후에..\F12를눌러도 폼화면이 안보이네요..
: :
: : 프로젝트내의 다른폼들은 모두 정상적으로 잘보이는데...
: : 아래 어느분이 답변한것처럼....dfm파일도 분명히 있습니다...
: : uDM.pas
: : uDM.dfm
: : uDM.dcu
: : uDM.ddp
: :
: : 라는 파일들이 분명 존재합니다....
: :
: : 아래는 소스화일첨부합니다...
: : --------------< uDM.pas >p-----------------------
: : unit uDM;
: :
: : interface
: :
: : uses
: :   SysUtils, Classes, DB, DBTables;
: :
: : type
: :   TDM = class(TDataModule)
: :     tblPerson: TTable;
: :     pimsDB: TDatabase;
: :     dsPerson: TDataSource;
: :     tblOrg: TTable;
: :     dsOrg: TDataSource;
: :     tblCompany: TTable;
: :     dsCompany: TDataSource;
: :     Table1: TTable;
: :     tblCompanyCP_NAME: TStringField;
: :     tblCompanyCP_ZIPCODE: TStringField;
: :     tblCompanyCP_ADDR: TStringField;
: :     tblCompanyCP_TEL: TStringField;
: :     tblCompanyCP_FAX: TStringField;
: :     tblCompanyCP_HOMEPAGE: TStringField;
: :     procedure tblPersonBeforePost(DataSet: TDataSet);
: :     procedure tblPersonBeforeEdit(DataSet: TDataSet);
: :   private
: :     { Private declarations }
: :   public
: :     { Public declarations }
: :   end;
: :
: : var
: :   DM: TDM;
: :
: : implementation
: :
: : {$R *.dfm}
: :
: : procedure TDM.tblPersonBeforePost(DataSet: TDataSet);
: : begin
: :   DM.tblPerson.FieldByName('PN_SN').AsInteger := DM.tblPerson.FIeldByName('PN_SN').AsInteger +1;
: : end;
: :
: : procedure TDM.tblPersonBeforeEdit(DataSet: TDataSet);
: : begin
: :   tblPerson.Refresh;
: : end;
: :
: : end.
: : ----------------------------------------------------