Ver Mensaje Individual
  #1  
Antiguo 09-07-2010
Paulao Paulao is offline
Miembro
 
Registrado: sep 2003
Ubicación: Rua D 31 Casa 1 - Inhoaíba - Rio de Janeiro - RJ - Brasil
Posts: 637
Reputación: 21
Paulao Va por buen camino
Problema con DevExpress

Crie un Form y solo puzo componentes en el. Que passa, es simpre que me voy abrir el Form me viene un error de Access Violation. Y abre una Unit llamada dxBar. Esta es la funccion que se abre en el error:
Código Delphi [-]
function TdxBarManager.BarByComponentName(const AName: string): TdxBar;
var
  I: Integer;
begin
  Result := nil;
  for I := 0 to Bars.Count - 1 do
    if Bars[i].Name = AName then
    begin
      Result := Bars[i];
      Break;
    end;
end;
Yo no tengo ninguno BarManager o algo parecido.
Mi Form:
Código Delphi [-]
unit uCadClie;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter,
  cxGraphics, Menus, cxLookAndFeelPainters, cxGroupBox, cxDropDownEdit,
  StdCtrls, cxButtons, cxMaskEdit, cxLookupEdit, cxDBLookupEdit,
  cxDBLookupComboBox, cxLabel, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
  cxPC, cxControls;

type
  TfrmCadClie = class(TForm)
    cxPageControl1: TcxPageControl;
    cxTabSheet1: TcxTabSheet;
    cxDBTextEdit1: TcxDBTextEdit;
    cxDBTextEdit2: TcxDBTextEdit;
    cxDBTextEdit3: TcxDBTextEdit;
    cxDBTextEdit4: TcxDBTextEdit;
    cxDBTextEdit5: TcxDBTextEdit;
    cxDBTextEdit6: TcxDBTextEdit;
    cxDBTextEdit7: TcxDBTextEdit;
    cxDBTextEdit8: TcxDBTextEdit;
    cxDBTextEdit9: TcxDBTextEdit;
    cxLabel1: TcxLabel;
    cxLabel2: TcxLabel;
    cxLabel3: TcxLabel;
    cxLabel5: TcxLabel;
    cxLabel8: TcxLabel;
    cxLabel9: TcxLabel;
    cxLabel10: TcxLabel;
    cxLabel11: TcxLabel;
    cxLabel16: TcxLabel;
    cxLabel17: TcxLabel;
    cxDBLookupComboBox1: TcxDBLookupComboBox;
    cxButton1: TcxButton;
    cxButton2: TcxButton;
    cxButton3: TcxButton;
    cxTabSheet2: TcxTabSheet;
    cxComboBox1: TcxComboBox;
    cxLabel4: TcxLabel;
    cxGroupBox1: TcxGroupBox;
    cxButton4: TcxButton;
    cxButton5: TcxButton;
    cxButton6: TcxButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCadClie: TfrmCadClie;

implementation

{$R *.dfm}

end.
Y mi llamada:
Código Delphi [-]
frmCadClie := TfrmCadClie.Create(Self);
  frmCadClie.ShowModal;
Responder Con Cita