.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.
: ----------------------------------------------------
|