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
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
procedure Edit1Change(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Edit1Change(Sender: TObject);
begin
Label1.Caption := Edit1.Text;
end;
end.
Prueba y dime.
Saludos,