Друзья!   

У меня БД в SQL Server, использую ADO (связку ADOConnection, ADOTable, DataSource). Ситуация следующая:
на Форме1 есть Эдит1. При выборе Эдит1 создается и открывается Форма2 с возможными вариантами выбора.

Хочу, чтобы выбор нужного значения на Форме2 закрывал Форму2 и помещал в Форма1.Эдит1 значение нужной колонки выбранной строки (ну вообщем, как в 1С 7.7 (да и 8.0), кто знаком).

1) Все формы в памяти не держу, создаю по мере необходимости.

2) Назначить вручную свой обработчик форме2 уже пробовал, сработал он только на OnClose (впринципе, понятно почему).

...
procedure FormOnDblClisk(Sender: TObject);
begin
...
end;

...
begin
  AChangeForm:=TChangeForm.Create(Self);
  AChangeForm.OnDblClick:=FormOnDblClick;
...

Есть другие варианты?   

а если просто создать глобальную переменную и через нее передавать инфу?!

Это выход для частного случая, когда проектируешь каждый раз новую форму и знаешь, куда возвращать результат.
А если идти нормальным методом и создать одну "универсальную" форму?

Существуют ли способы передачи значения от одной форме - другой и обратно без явного их указания? может WinAPI?

Передавать значение по ссылке пробовал, вот кусок кода:

***

//форма-родитель
...
   AChangeForm:=TChangeForm.Create(Self);
   AChangeForm.InitMyField(Edit2.Text); //моя процеура
   ...
   AChangeForm.Show;

//открываемая форма
...
interface

type
  TChangeForm = class(TForm)
    ...
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    procedure DBGrid1DblClick(Sender: TObject);
  private
    ...
    MyField: ^string;
  public
    ...
    procedure InitMyField(str: string);
  end;

implementation
....
procedure TChangeForm.InitMyField(str: string);
begin
  MyField:=@str;
end;

procedure TChangeForm.DBGrid1DblClick(Sender: TObject);
begin
  MyField^:=ADOQuery1.FieldByName('Наименование').AsString;
  Close;
end;

***
Данный метод работает, но в Edit значение не возвращается. Если поставить TChangeForm.InitMyField(VAR str: string); то компилятор выругается, мол передаваемый Edit2.Text не идентифицирован ([Pascal Error] CreateDoc.pas(112): E2033 Types of actual and formal var parameters must be identical). Как быть?

Это сообщение отредактировал(а) pseud - 21.4.2008, 10:21

Спасибо за ответ!   

А если форма MDIChild (ShowModal не прокатит)?

ну тогда готовься:



конечно, код сырой. но куда копать - видно ))

Это сообщение отредактировал(а) pseud - 21.4.2008, 14:01

WOW! Выглядит ужасающе!    Но использовать можно.

Впервые слышу про процедуру SetDataHolder! Век живи - век учись.

Спасибо большое pseud!!!  

Добавлено через 1 минуту и 24 секунды
Тема закрыта. Всем спасибо