Ver Mensaje Individual
  #3  
Antiguo 28-09-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
Cita:
que un campo de cualquier fila se agregue o aparezca en un Edit en otro Formulario..?
Hola Niiña.

Algo parecido se trató aquí. Adaptando a tu caso la propuesta de roman del enlace anterior, creo que podrías hacer algo parecido a esto:

Form1 (receptor):
Código Delphi [-]
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormShow(Sender: TObject);
  private
    procedure ValueChange(Value: string);
  public
  end;

var
  Form1: TForm1;

implementation 

uses Unit2;

procedure TForm1.FormShow(Sender: TObject);
begin
  with TForm2.Create(Self) do
  begin
    FieldChange:= ValueChange;
    Show;
  end;
end;

procedure TForm1.ValueChange(Value: string);
begin
  Edit1.Text:= Value;
end;
...

Form2 (emisor):
Código Delphi [-]
...
type
  TFieldChange = procedure(Value: string) of object;
  TForm2 = class(TForm)
    ...
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    procedure DBGrid1CellClick(Column: TColumn);
  private
    FFieldOnChange: TFieldChange;
  public
    property FieldChange: TFieldChange read FFieldOnChange
      write FFieldOnChange;
  end;

var
  Form2: TForm2;

implementation 

{ DBGrid OnCellClick }
procedure TForm2.DBGrid1CellClick(Column: TColumn);
begin
 if Assigned(FFieldOnChange) then
    FFieldOnChange(DBGrid1.SelectedField.AsString);
end;
...
En este caso usé el evento OnCellClick del DBGrid pero podrías usar el OnClick de un TButton, etc.

Un saludo.
__________________
Daniel Didriksen

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

Última edición por ecfisa fecha: 28-09-2011 a las 23:53:15.
Responder Con Cita