Ver Mensaje Individual
  #10  
Antiguo 10-03-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola thelibmx.

Suponiendo que le hayas dado un nombre en la creación, ejemplo:
Código Delphi [-]
...
implementation

uses Unit2;

var
  DE: TDBEdit;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DE:= TDBEdit.Create(nil);
  DE.Name:= 'MiDBEdit'; // <- nombre
  DE.DataSource:= DataSource1;
  DE.DataField:= 'Name';
  DE.Parent:= SCrollBox1;
end;

Basta con hacer:
Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Form2.Edit1.Text:= (ScrollBox1.FindChildControl('MiDBEdit') as TDBEdit).Text;
end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita