Ver Mensaje Individual
  #7  
Antiguo 16-10-2007
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Reputación: 25
Delphius Va camino a la fama
douglas, esa no es manera de pedir ayuda. Te sugiero una mejor leída de la guia de estilo. Venir con un tono de pedir ayuda a por obligaciones no consegue lo que tu deseas sino lo contrario.

Al estar diciendome:

Cita:
oye mira lo he colocado en todos lados y no funciona
Me reflejas la conducta del menor esfuerzo y que quieres que te haga la tarea. Aqui no hacemos la tarea a nadie.

Distinto hubiera sido mi reacción si al menos te hubieras tomado la decencia de pedir de mejor manera. Un "disculpa pero sigo sin entender, he probado copiando el código..." y sobre todo indicando el hecho de si eres iniciado en la programación en Delphi.

Me tomé la molestia de copiar toda la unidad, con un ejemplo sencillo. Esto no genera error alguno. lo único que debes hacer es iniciar un nuevo proyecto, borra el contenido del Unit1 y reemplazalo por este. Pon un Label y un Edit y prueba.


Código Delphi [-]
unit Unit1;

interface

{En interface va la parte declarativa }

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    {El error tal vez se produce debido a que no haz puesto la declaración
    del evento onChange}
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{Aqui comienza el cuerpo el codigo propiamente dicho}

procedure TForm1.Edit1Change(Sender: TObject);
{El evento onChange del Edit1 se dispara cada vez que se cambie lo
escrito en el Edit}
begin
  {El contenido del Edit queda almacenado en la propiedad text.
   El contenido del Label en la propiedad caption.
   Basta con hacer esta asignación: }
  Label1.Caption := Edit1.Text;
end;

end.

Prueba y dime.
Saludos,
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita