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
public
end;
var
frmCadClie: TfrmCadClie;
implementation
{$R *.dfm}
end.
Y mi llamada:
Código Delphi
[-]frmCadClie := TfrmCadClie.Create(Self);
frmCadClie.ShowModal;