Ayuda con llamada de un form a un edit

[XBart]

Antes que nada gracias po su atencion prestada, ahora paso al problema:

Tengo un aplicacion con 2 forms

el primero es el menu y el mdi
el segundo guarda unos datos y el mdichild
el segundo tiene 2 edit

aqui viene el problema
debo aclarar que el form2 no esta disponible al arracancar la aplicacion, si no que se le llama manualmente

el asunto es que cuando le en el form2 en el evento oncreate
trato de hacer que los edit queden deshabilitados, pero cuando lo hace me marca un error de violacion de memoria, si alguin sabe a que se deba agradece su ayuda.

XBart

[dec]

Hola,

He tratado de reproducir el error pero no lo he conseguido: todo va como se espera. He hecho esto:

- Creado una aplicación con dos formularios, el primero "MDIForm" y el segundo "MDIChild".

- El segundo contiene dos "TEdit". En el evento "OnCreate" de este formulario deshabilito los "TEdit" mediante su propiedad "Enabled".

- El segundo formulario no se crea sino en el evento "OnClick" de un elemento de un menú que he colocado en el primer formulario.

Creo que he seguido todos los pasos que indicas. Desde luego lo dicho parece funcionar bien, vaya.

Edito: Adjunto las pruebas que he realizado por si ayudan.

[nemesio]

XBart, habría que ver tu código para determinar donde está tu falla.

[XBart]

este es el codigo del form2,el error ocurre al llamar el procedimiento limpia

Código Delphi [-]
unit ucliente;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxMemo, cxControls, cxTextEdit,
  StdCtrls, cxButtons, cxLookAndFeelPainters, cxContainer, cxEdit, ExtCtrls;

type
  Tfcliente = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    ENombre: TcxTextEdit;
    codigo: TLabel;
    Ecodigo: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Edireccion: TcxTextEdit;
    eColonia: TcxTextEdit;
    EMunicipio: TcxTextEdit;
    EEstado: TcxTextEdit;
    EPais: TcxTextEdit;
    ETele1: TcxTextEdit;
    Etele2: TcxTextEdit;
    Efax: TcxTextEdit;
    ERFC: TcxTextEdit;
    EEmail: TcxTextEdit;
    EContacto: TcxTextEdit;
    Efechaalta: TcxTextEdit;
    ENotas: TcxMemo;
    Bnuevo: TcxButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BnuevoClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);


  private

  public

    { Public declarations }
  end;

var
  fcliente: Tfcliente;

implementation

uses umenu;

{$R *.dfm}

procedure Tfcliente.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;



procedure Tfcliente.BnuevoClick(Sender: TObject);
begin
  ENombre.Text:='';
end;


procedure limpia;
begin
 fcliente.ENombre.Enabled:=false;
end;

procedure Tfcliente.FormCreate(Sender: TObject);
begin
     limpia;
end;


end.

espero me puedan ayudar