[Delphi] ActiveX + TListView - Public forum of MSU united student networks

Quote:

Можешь выложить минимальный код, в котором появляется ошибка? (файлы проектов, чтобы можно было посмотреть из дельфи)

Если создавал ActiveX, то вот процедура инициализации компонента
procedure TNPanelX.InitializeControl;
var
  FPageControl: TPageControl;
  FTabSheet: TTabSheet;
  FWebBrowser: TWebBrowser;
  FListView: TListView;
  FPanel: TPanel;
  FBitBtn: TBitBtn;
begin
  FDelphiControl := Control as TPanel;
  with FDelphiControl do begin
    OnCanResize := CanResizeEvent;
    OnClick := ClickEvent;
    OnConstrainedResize := ConstrainedResizeEvent;
    OnDblClick := DblClickEvent;
    OnResize := ResizeEvent;
    BevelOuter := TBevelCut(bvNone);
  end;
// page control
  FPageControl := TPageControl.Create(FDelphiControl);
  TWinControl(FPageControl).Name := 'NPageControl';
  TWinControl(FPageControl).Parent := FDelphiControl;
  FPageControl.Align := alClient;
// first page
  FTabSheet := TTabSheet.Create(FPAgeControl);
  TWinControl(FTabSheet).Name := 'NTabSheet2';
  TWinControl(FTabSheet).Parent := FPageControl;
  FTabSheet.PageControl := FPageControl;
  FTabSheet.Caption := 'Закладка 1';

  FPanel := TPanel.Create(FTabSheet);
  TWinControl(FPanel).Name := 'NPanel1';
  TWinControl(FPanel).Parent := FTabSheet;
  with FPanel do begin
    Align := alTop;
    Caption := '';
    Height := 72;
  end;

  FBitBtn := TBitBtn.Create(FPanel);
  TWinControl(FBitBtn).Name := 'NButton';
  TWinControl(FBitBtn).Parent := FPanel;
  with FBitBtn do begin
    Top := FDatePicker.Top + FDatePicker.Height + 8;
    Left := FDatePicker.Left;
    Caption := 'Вывести';
    Anchors := [akRight, akTop];
    OnClick := NButtonClick;
  end;
  FPanel.InsertControl(FBitBtn);

  FListView := TListView.Create(FTabSheet);
  TWinControl(FListView).Name := 'NListView1';
  TWinControl(FListView).Parent := FTabSheet;
  with FListView do begin
    Parent := FTabSheet;
    ViewStyle := vsReport;
    ReadOnly := true;
    RowSelect := true;
    GridLines := true;
    HideSelection := false;
    Align := alClient;
  end;
// second page
  FTabSheet := TTabSheet.Create(FPAgeControl);
  TWinControl(FTabSheet).Name := 'NTabSheet1';
  TWinControl(FTabSheet).Parent := FPageControl;
  FTabSheet.PageControl := FPageControl;
  FTabSheet.Caption := 'Закладка 2';
  FPageControl.InsertControl(FTabSheet);

  FWebBrowser := TWebBrowser.Create(FTabSheet);
  TWinControl(FWebBrowser).Name := 'NWebBrowser';
  TWinControl(FWebBrowser).Parent := FTabSheet;
  FWebBrowser.Align := alClient;
  FTabSheet.InsertControl(FWebBrowser);

  FDelphiControl.InsertControl(FPageControl);
end;

А если не создавал, то надо будет создать проект ActiveXControl, за основу взять TPanel. Впихнуть этот код в процедуру инициализации. Скомпилировать. Полученный файл <project_name>.ocx зарегистрировать с помощью команды regsvr32 и потом использовать этот ActiveX в любом проекте.

Редактировал drunken (28.09.2007 17:48)

code:

procedure TWinControl.SetFocus; var Parent: TCustomForm; begin Parent := GetParentForm(Self); if Parent <> nil then Parent.FocusControl(Self) else if ParentWindow <> 0 then Windows.SetFocus(Handle) else ValidParentForm(Self); end; function GetParentForm(Control: TControl): TCustomForm; begin while Control.Parent <> nil do Control := Control.Parent; if Control is TCustomForm then Result := TCustomForm(Control) else Result := nil; end; function ValidParentForm(Control: TControl): TCustomForm; begin Result := GetParentForm(Control); if Result = nil then raise EInvalidOperation.CreateFmt(SParentRequired, [Control.Name]); //Тут непонятно с какой целью генерится исключение :((((((((((( end;