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
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.