Как передать значение из DBText в edit?

[smaw1989]

Собственно сабж. Нужно чтобы в edit автоматом подставлялось текущее значение из DBText, подскажите пожалуйста, каким образом это сделать.

[dosha]

чёза тупая тема?

procedure TForm1.DBEdit1Change(Sender: TObject);
begin
Edit1.text:=DBEdit1.text;
end;

[smaw1989]

dosha уж какая есть :D Нужно не из DBEdit'a, а из DBText'а.

[Dimasw]

DBText отображает данные из подключенной к нему таблицы через DataSource, DBText'у пофиг на отображаемое содержимое, он даже не знает что вообще написано, поэтому данные брать надо из подключенной к нему таблицы (TTable, TQuery или др..).
А чтобы автоматом подставлялось, надо в событии AfterScroll этой таблицы написать что-то вроде:

procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
Edit1.text:=Table1.fieldbyname('MyField').asstring;
end;

[smaw1989]

Dimasw
Спасибо за ответ! А как событие AfterScroll поймет где находится Edit1? У меня DBText и Edit расположены на одной форме, а таблица из которой DBText берет данные находится в датамодуле.

[Stilet]

А ты пиши полный путь

Edit1.text:=DataModule1.Table1.fieldbyname('MyField').asstring;

[smaw1989]

Stilet
Так если пишем в обработчике события DBText'а, то надо указывать полный путь местонахождения Edit'a, нет?

[Stilet]

то надо указывать полный путь местонахождения Edit'a, нет?

Можно если нужно. Но никак не обязательно

[smaw1989]

Stilet
Это я к тому, что если прописать

Edit1.text:=DataModule1.Table1.fieldbyname('MyField').asstring;

то делфи пишет что Edit1 не определен, он ведь находится не в датамодуле, а вообще на другой форме. Как тут выкрутиться?

[Dimasw]

Есть два выхода:
1.Датамодуль должен видеть ту форму, где лежит Edit1, для этого в датамодуле после implementation пишем

uses Unit2; // модуль где описан класс формы с нужным Edit1

Теперь в Датамодуле мы можем обращаться к Edit1

procedure TDataModule2.Table1AfterScroll(DataSet: TDataSet);
begin
Form1.Edit1.Text:=DataSet.fieldbyname('Name').asstring;
end;

2. Если все-таки есть причины, по которым мы не хотим, чтобы Датамодуль мог обращаться к другой Форме (в нашем случае к той, на которой лежит Edit1), то мы можем "подцепить" нужную процедуру к событию AfterScroll компонента Table1 (который лежит в Датамодуле) из модуля Формы. Для этого:
2.1. В модуле формы в разделе Uses добавляем модуль DB

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls,ExtCtrls,DB;

2.2. Ручками пишем процедуру для класса Формы, которая будет потом обрабатывать событие AfterScroll
2.3.И ключевой момент: Подцепляем эту процедуру к событию AfterScroll таблицы, которая лежит в ДатаМодуле, обращаясь к ней через компонент DBText.
2.3. Само подцепление совершаем сразу, как форма нарисовалась, т.е. в событии FormShow.

Вот что примерно должно получиться:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls,DB, ExtCtrls;

type
  TForm1 = class(TForm)
    DBText1: TDBText;
    Edit1: TEdit;
    Button1: TButton;
    DBNavigator1: TDBNavigator;
    procedure Table1AfterScroll(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
Edit1.text:=DataSet.fieldbyname('Name').asstring; //событие перемещения по базе, которое подцепляем
end;

procedure TForm1.FormShow(Sender: TObject);
begin
DBText1.DataSource.DataSet.AfterScroll:=Table1AfterScroll; // собственно подцепление
end;

end.