Есть программа на Delphi 7, к ней там же был написан плагин. Плагин представляет из себя mdi - форму для работы с графикой.
Так в VCL предусмотрена как mdi форма только главная форма, то пришлось идти обходными путями - у дочерней формы изменить CreateWindowHandle
| Код |
procedure TImageEditor.CreateWindowHandle(const Params: TCreateParams);
var CreateStruct:TMDICreateStruct;
begin
if (FormStyle=fsMDIChild) and not (csDesigning in ComponentState) then
begin
if (Owner=nil) or ((Owner as TForm).ClientHandle=0) then
raise EInvalidOperation.Create('Cannot create form. No MDI forms are currently active');
//ShowMessage('OK');
with CreateStruct do
begin
szClass:=Params.WinClassName;
szTitle:=Params.Caption;
hOwner:=HInstance;
X:=Params.X;
Y:=Params.Y;
cX:=Params.Width;
cY:=Params.Height;
style:=Params.Style;
lParam:=Longint(Params.Param);
end;
WindowHandle:=SendMessage((Owner as TForm).ClientHandle,WM_MDICREATE,0,Longint(@CreateStruct));
Include(FFormState, fsCreatedMDIChild)
end
else
raise EInvalidOperation.Create('Form should be MDIChild form')
end;
|
в mdi форме изменен код загрузки child форм
| Код |
ImageEditor:= TImageEditor.Create(self);
|
код создания mdi окна
| Код |
function CreateWindow(App: TApplication): integer; stdcall;
begin
DllApp:= Application;
Application:= App;
ImageContainer:= TImageContainer.Create(Application);
end;
|
Так вот, на простом примере, где тестился плагин все это работало стабильно, но когда я прикрутил его к основной программе, то при попытке открыть окно dll вываливается с ошибкой, иногда правда не вываливается, но происходит это тогда, когда главная форма, полностью закрыта mdi окном из dll, а припопытке переместить mdi форму - вываливается пресловутая ошибка, которую нельзя отловить.
Что делать, может кто нибудь предложить какоенибудь решение проблемы? [code=delphi]
 |