Ver Mensaje Individual
  #4  
Antiguo 04-04-2011
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 lucas05.

Si no entiendo mál la lógica que queres aplicar, no tendrías que hacer ningún tipo de asignación a la propiedad Text del TDBEdit, bastaría con que tengas asignadas las propiedades DataSource y DataField.

En el ejemplo, para mayor claridad las voy a asignar en tiempo de ejecución, pero es más fácil aún desde el Object Inspector.

Form1:
Código Delphi [-]
...
uses unit2;

procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
  with TForm2.Create(Self) do
  try
    Showmodal;
  finally
    Free;
  end
end;
...

Form2:
Código Delphi [-]
...

uses unit1;

(* El código del evento OnShow lo evitas si previamente asignas 
   las  propiedades mediante el Object Inspector *)
procedure TForm2.FormShow(Sender: TObject);
begin
  DBEdit1.DataSource:= Form1.DataSource1;
  DBEdit1.DataField:= 'descripcion';
  DBEdit2.DataSource:= Form1.DataSource1;
  DBEdit2.DataField:= 'precio';
  ...
end;
...

Un saludo.
__________________
Daniel Didriksen

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

Última edición por ecfisa fecha: 04-04-2011 a las 20:41:50.
Responder Con Cita