한수 알려주세여..
opendialog를 사용하여 파일열기하는데요
버튼을 누르면 파일열기화면이 나오게 했는데
가끔 그화면이 다른폼의 뒤에 숨어버려서 불편하네요..
방법이 없나여?
procedure TOffInstMainF.debFWNmDblClick(Sender: TObject);
var
FWName: string;
x : Integer;
begin
x := length(ExtractFilePath(Application.ExeName));
dlgFWNm.InitialDir := copy(ExtractFilePath(Application.ExeName),
0,x-5 + 'inst\IPM';
if dlgFWNm.Execute then
begin
if not (ntdFirmWare.State in [dsEdit]) then
begin
ntdFirmWare.Edit;
btnStart.Enabled := True;
end;
ntdFirmWareFileName.Value := dlgFWNm.FileName;
FWName := ExtractFileName(dlgFWNm.FileName);
if Pos('.', FWName) > 0 then
FWName := Copy(FWName, 1, Pos('.', FWName)-1);
ntdFirmWareFWNm.Value := FWName;
OffInstLIBF.CheckInstTypeInfo(ntdFirmWareFileName.Value, 0);
end;
end;