Форум: "Основная";
Текущий архив: 2005.02.20;
Скачать: [xml.tar.bz2];
ВнизПередача данных между MDI формами Найти похожие ветки
← →
dim- (2005-02-02 17:39) [0]Помогите
Есть MDI форма , открываю по кнопке новую MDI форму "справочник"
как вернуть выбранную запись справочника в первую форму?
Пробывал передавать в форму справочника DataSet:TDataSet, а при выборе делать DataSet.FieldByName(index_name).AsString:=list.FieldByName("name").AsString
Ругается что нет Field.
← →
Reindeer Moss Eater © (2005-02-02 17:41) [1]Что значит "вернуть"?
Когда вернуть?
MDIChild же не модальны.
← →
АлексейК (2005-02-03 10:14) [2]Ругается что нет Field.
Значит так оно и есть. На каком DataSet"e возникает возникает ошибка?
← →
Johnmen © (2005-02-03 10:25) [3]Первейшая задача - провести жирную черту между данными и способами их отображения. Почитать про TDataModule.
← →
Плохиш © (2005-02-03 10:31) [4]>dim- (02.02.05 17:39)
7
1я форма говорит вызванной "я тебя вызвала". Отработав, 2я говорит первой "выбрана запись xxx".
Ключевые слова: property, Owner, procedure, var.
← →
Kazus (2005-02-03 10:31) [5]Открываем модально форму справочника и далее обрабочик что то типа
If TForm.ShowModal=mrOk Then
If not TDataSet2.IsEmpty Then
TDataSet1.FieldByName("Поле куда надо втавить").as...:=
TDataSet2.FieldByName("Поле откуда надо вставить").as...;
← →
Соловьев © (2005-02-03 10:42) [6]http://www.delphikingdom.com/asp/viewitem.asp?catalogid=724
← →
dim- (2005-02-03 17:36) [7]Может и не очень понятно вопрос задан, Повторю, что формы не модальные (с модальными проблем не).
[6] спасибо за ссылку но там тоже про модальные, да и не оригинально
По поводу вопроса, АлексейК оказался прав ошибся в имени
← →
Silver Alex © (2005-02-03 18:57) [8]могу дать такой совет.
в форму которую вызываешь(это справочник) передавай Handle формы из которой вызываешь.Ну а потом шли свое сообщение по этому Handle.
SendMessage(fHandle,WM_main_MESSAGE,0,fID);
если надо создай свою структуру и передавай что угодно
type
TInfo=record
id: integer;
name: String[64];
end;
procedure save;
var
info: Tinfo;
begin
with info do
begin
id=5;
iname:="test";
end;
SendMessage(fHandle,WM_main_MESSAGE,0,Integer(@info: ));
Close;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.02.20;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.04 c