| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
В Form2 получается строка, которую нужно передать в Form1 [D7, XP]
Fynjy © (2008-09-05 10:32:00)Привет всем! Есть такой проект, в нем много всяких форм, окон. Предположим есть Form1, и Form2 которая вызавается из Form1 немодально по верх всех окон. В Form2 получается строка, которую нужно передать в Form1, при закрытии Form2. Обычно типа
Form1.Edit1.text:= Form2.Edit1.text не получается. Подскажите, как можно это сделать по грамотному?
Anatoly Podgoretsky (2008-09-05 14:26:00) [1]> Плохиш (05.09.2008 12:11:30) [30]
Откуда у детей деньги?
Сергей М. (2008-09-05 13:25:00) [2]Удалено модератором
Fynjy (2008-09-05 13:13:00) [3]Удалено модератором
Сергей М. (2008-09-05 12:33:00) [4]
> Плохиш © (05.09.08 12:11) [30]
Видать, "друзья" поссорились и больше не общаются)
Будем надеяться, что хоть не поколотили друг-друга - тема-то довольно важная)
Плохиш (2008-09-05 12:11:00) [5]Прикольно
Dagir © (04.09.08 11:27) [18]
ну, будем посмотреть
вылилось в
> Fynjy (05.09.08 10:32)
> Привет всем!
:-))
PS. Дети, вам бы пора нанять программиста.
Ega23 (2008-09-05 12:11:00) [6]
> конкурс на самый взаимозависимый между модулями и самый
> неподдерживаемый код?
в качестве пятничной задачки предложи, в "потрепаться".
brother (2008-09-05 12:07:00) [7]главное, чтоб победила дружба!
Медвежонок Пятачок (2008-09-05 12:04:00) [8]конкурс на самый взаимозависимый между модулями и самый неподдерживаемый код?
brother (2008-09-05 12:01:00) [9]> Боже...
> :-(
Как предупреждал журнал: Здоровье - нервные клетки не восстанавливаются ;)
Юрий Зотов (2008-09-05 11:59:00) [10]Боже...
:-(
brother (2008-09-05 11:54:00) [11]> Form1.Edit1.text:= Form2.Edit1.text не получается.
по этому поводу...
в Form1 uses добавь то что написано в unit form2 (например: unit2), а в
Form2 uses добавь то что написано в unit form1 (например: unit1) теперь ты можешь сделать так:
в form1: Form1.Edit1.text:= Form2.Edit1.text
или в form2: Form1.Edit2.text:= Form1.Edit1.text
коряво, но как вариант пойдет?
Сергей М. (2008-09-05 11:53:00) [12]
> при чем тут Query
Совершенно ни причем)
Query - это просто некий существующий объект в Форме1, к которому требуется получить доступ из методов Формы2.
Сергей М. (2008-09-05 11:49:00) [13]Ну и где в твоем коде собственно строка
Form1.Edit1.text:= Form2.Edit1.text
?
Fynjy (2008-09-05 11:43:00) [14]да при чем тут Query? мне просто нужна строка из формы 2, а Query я в фрейме попользую.
Сергей М. (2008-09-05 11:33:00) [15]
> Fynjy (05.09.08 11:28) [19]
С вами, "друзьями", все ясно - чукчи-писатели)
Здесь
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1220507763&n=18
твоему "другу" все разжевано, осталось только прочитать и вникнуть.
Fynjy (2008-09-05 11:28:00) [16]вот код формы2
procedure AdvancedSearchShow;
begin
with TAdvancedSearchForm.Create(Application) do
begin
BBB;
Show;
end;
end;
function TAdvancedSearchForm.BBB: Boolean;
var
fhh:TMainFrame;
begin
fhh:=TMainFrame.Create(nil);
try
with fhh.IBQParam do
begin
SQL.Clear;
SQL.Add('select distinct PAR_NAME, PAR_ID from PAR where PAR_NAME :str order by PAR_NAME ');
ParamByName('str').AsString := '';
Open;
First;
while not Eof do
begin
ComboBox1.Items.AddObject( FieldByName('PAR_NAME').AsString,
Pointer( FieldByName('PAR_ID').AsInteger) );
Next;
end;
Close;
end;
finally
fhh.free;
end;
end;
и вот как получается строка
procedure TAdvancedSearchForm.Button3Click(Sender: TObject);
begin
if length(ComboBox1.Text) = 0 then
begin
ShowMessage('Ââåäèòå íàèìåíîâàíèå ïàðàìåòðà!');
exit;
end;
if length(Edit1.Text) = 0 then
begin
ShowMessage('Çíà÷åíèå íå ìîæåò áûòü ïóñòûì!' + #13 +' Ââåäèòå çíà÷åíèå!');
exit;
end;
if parsearch = '' then
begin
parsearch := '(nmk_par.Par_id = ' + IntToStr( Integer( ComboBox1.Items.Objects[ComboBox1.ItemIndex]) ) + ' and' +
' nmk_par.nmk_par_value containing ' + Edit1.Text+ ')' ;
end
else
parsearch := parsearch + ' and (nmk_par.Par_id = ' + IntToStr( Integer( ComboBox1.Items.Objects[ComboBox1.ItemIndex]) ) + ' and' +
' nmk_par.nmk_par_value containing ' + Edit1.Text+ ')';
with ListView1.Items.Add do
begin
Caption := ComboBox1.Text;
with SubItems do
Add(Edit1.Text);
end;
Button1.Enabled:=true;
Button4.Enabled:=true;
Edit2.Text:= parsearch;
end;
Сергей М. (2008-09-05 11:24:00) [17]
> сказал что не опубликовал ничего
Не понял, кто кому что сказал и кто что не опубликовал ?
Странные вы "друзья", однако ..
Покажи текст BBB - посмотрим, друзья вы или не друзья) ..
Vlad Oshin (2008-09-05 11:19:00) [18]покажи обе формы
Fynjy (2008-09-05 11:15:00) [19]я просил друга, но сказал что не опубликовал ничего
Сергей М. (2008-09-05 11:04:00) [20]
> Fynjy (05.09.08 11:01) [14]
см.
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1220507763&n=18
p.s. Что за клоунская буффонада с никами ?
| |
Страницы: 