Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

Можно ли в DesignMode открыть закрыть модуль зная его имя?   Найти похожие ветки 

 
jacksotnik   (2012-05-10 12:54) [0]

Произвожу манипуляции с модулем через wizard и мне надо закрыть данный модуль а потом опять его открыть не закрывая весь проект


 
AV ©   (2012-05-10 13:10) [1]

Ctrl Alt F11
DblClick
Ctrl F4


 
Юрий Зотов ©   (2012-05-10 15:55) [2]

Не проверял, но должно работать. Вставьте это в свой wizard и вызовите процедуру CloseIDEFile.

function FindInterface(AInterface: TGUID): IUnknown;
var
 i: Integer;
begin
 Result := nil;
 with BorlandIDEServices as IOTAModuleServices do
   for i := 0 to ModuleCount - 1 do
     if Modules[i].QueryInterface(AInterface, Result) = S_OK then Break
end;

function GetCurrentProjectGroup: IOTAProjectGroup;
begin
 Result := FindInterface(IOTAProjectGroup) as IOTAProjectGroup
end;

function GetCurrentProject: IOTAProject;
var
 ProjectGroup: IOTAProjectGroup;
begin
 ProjectGroup := GetCurrentProjectGroup;
 if Assigned(ProjectGroup) then
   Result := ProjectGroup.ActiveProject
 else Result := FindInterface(IOTAProject) as IOTAProject
end;

procedure CloseIDEFile(IDEFileName: string);
var
 i: integer;
begin
 with GetCurrentProject do
   for i := 0 to GetModuleCount - 1 do
     if AnsiSameText(IDEFileName, GetModule(i).Name) then
     begin
       (BorlandIDEServices as IOTAActionServices).CloseFile(GetModule(i).FileName);
       Exit
     end
end;


 
AV ©   (2012-05-10 15:58) [3]

вона как.. :)
[1] - "обшибочка" вышла ^)


 
Юрий Зотов ©   (2012-05-10 15:59) [4]

Только параметр IDEFileName надо бы переименовать в IDEUnitName, поскольку это именно имя модуля, а не имя самого файла. Впрочем, можно использовать и имя файла, но тогда GetModule(i).Name тогда надо заменить на GetModule(i).FileName.


 
Юрий Зотов ©   (2012-05-10 16:04) [5]

Открываем файл тем же кодом, только вместо CloseFile пишем OpenFile.


 
Юрий Зотов ©   (2012-05-11 08:25) [6]

Блин... вот так обрушивают IDE. А потом говорят, что она кривая.

Если не открыто ни одного проекта, то будет AV. Надо проверять.

procedure CloseIDEFile(IDEFileName: string);
var
 CurrentProject: IOTAProject;
 i: integer;
begin
 CurrentProject := GetCurrentProject;
 if CurrentProject <> nil then
   with CurrentProject do ...

и далее по тексту.



Страницы: 1 вся ветка

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.056 c
2-1331617183
TSubject
2012-03-13 09:39
2013.03.22
Null значение в поле Number (DBF )


15-1342284725
ПЛОВ
2012-07-14 20:52
2013.03.22
Некорректная работа StringReplace, или я туплю?


4-1258360883
ABolnykh
2009-11-16 11:41
2013.03.22
Как задать координаты точки минимизации окна?


2-1328511667
_QWERTY_
2012-02-06 11:01
2013.03.22
инициализировать переменную


2-1342725812
Wadimka
2012-07-19 23:23
2013.03.22
Помогите сделать персер строки