
26.02.2010, 16:50
|
Прохожий
|
|
Регистрация: 26.02.2010
Сообщения: 3
Репутация: 10
|
|
Делал так - не помогло:
DLL:
Код:
library
...
function MakeUnitClient(pn:HWND) : TFrame; stdcall;
begin
Result := TFrame1.CreateParented(pn);
end;
...
Программа:
Код:
procedure TForm1.sFrameBar1Items2CreateFrame(Sender: TObject;
var Frame: TCustomFrame);
begin
FrameUnitClient:=MakeUnitClient(sFrameBar1.ParentWindow);
Frame:=FrameUnitClient;
end;
|