pasar el contenido de un edit a un label sin necesidad de boton

[[Chris]]

Código Delphi [-]
Label1.caption := edit1.text;

[[xEsk]]

Puedes aprovechar lo que ha puesto D&W pero metiéndolo en el evento "OnChange" del TEdit.

Ejemplo:

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin
  Label1.caption:=Edit1.text;  
end;

Saludos.

[douglas]

ia probe lo ke me dijiste pero no funciona, me tira error, no sabes utra forma

[[Delphius]]

Hola douglas,

¿Me puedes decir que error te aparece?
Un código tan simple como el expuesto no debería generarte error.

Saludos,

[douglas]

oye mira lo he colocado en todos lados y no funciona, me puedes indicar donde lo puedo colorcar

[[Delphius]]

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:

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,

[douglas]

perdon señor, tal ves no supe expresarme, perdon por mi inmadurez, la verdad eske estoy inciandome en este delphi, perdon en serio no era mi intencion ofenderlo, es mas respeto mucho a todas las personas que me han ayudado aqui, y perdon, es mas cuando necesite ayuda de cualquier indole, no dude en pedirlo, aqui ñe dejo mi correo [email protected]. perdon en realidad lo siento mucho.