cxgrid ib dll delphi - PullRequest
Новая
       17

cxgrid ib dll delphi

0 голосов
/ 06 марта 2012

Добрый день, пишу плагины dll из основной формы позвоните в dll 

type
  TCreateCustomWindow=function(ParentFrame:TWinControl; ParentHandle:integer; ParentRect:TRect; var WinHandle:THandle):integer; stdcall;

var
CreateW:TCreateCustomWindow;
begin
CreateW:=GetProcAddress(FHLib,'Create_LEF');
if Assigned(CreateW) then
begin
  if Assigned(CreateW) then LEFT_OKNO:=CreateW(ScrollBox2, ScrollBox2.Handle, ClientRect, FChildHandle);
end;

в самой dll, похоже на 

function Create_LEF(ParentFrame:TWinControl; ParentHandle:integer; ParentRect:TRect; var WinHandle:THandle):integer; stdcall; export;
begin
  Result:=0;
  WinHandle:=0;
  try
    FD3:=TForm3.Create(nil);
    FD3.Parent:= ParentFrame;
    Result:=integer(FD3);
    WinHandle:=FD3.Handle;
    if ParentHandle<>0 then begin
      SetParent(WinHandle,ParentHandle);
      with FD3 do begin
      FD3.Align:=alTop;
      FD3.Width:=ParentFrame.Width;
      hirina_left:=ParentFrame.Width;
      FD3.Show;
      end;
    end;
  except
    On E:exception do MessageDlg(E.Message,mtError,[mbOK],0);
  end;
end;

проблема в том, что я не могу редактировать ячейки cxGrid, могу я сделать что-то не так?

1 Ответ

0 голосов
/ 06 марта 2012

Я сталкивался с этим раньше, и есть несколько способов обойти это.Это было очень давно, поэтому вам придется сделать небольшую пробу и ошибку. 

function Create_LEF(ParentFrame:TWinControl; ParentHandle:integer; ParentRect:TRect; var WinHandle:THandle):integer; stdcall; export;
begin
  Result:=0;
  WinHandle:=0;
  try
    FD3:=TForm3.Create(nil);
    FD3.Parent:= ParentFrame;
    Result:=integer(FD3);
    WinHandle:=FD3.Handle;
    if ParentHandle<>0 then begin
      with FD3 do begin
        ParentWindow := ParentFrame.Handle;
        Parent := ParentFrame;
        Align:=alTop;
        Width:=ParentFrame.Width;
        hirina_left:=ParentFrame.Width;
        Show;
      end;
    end;
  except
    On E:exception do MessageDlg(E.Message,mtError,[mbOK],0);
  end;
end;

Это должно решить вашу проблему.В противном случае попробуйте установить DLL Application.Handle в Application.Handle приложения.Я обычно делаю это с помощью функции Init в DLL.Эта функция сохраняет DLL-файл Application.Handle в глобальной переменной и переназначает ее на дескриптор приложения, передаваемый в качестве параметра функции.Когда вы выгружаете библиотеку DLL, вы присваиваете файлу application.handle библиотеки DLL исходное значение, иначе все идет на юг. 

var
    FOldHandle: THandle;

procedure Init(AHandle: THandle); stdcall;
begin
    FOldHandle := Application.Handle;
    Application.Handle := AHandle;
end;

procedure UnInit; stdcall;
begin
    Application.Handle := FOldHandle;
end;
...
...