Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2006.10.01;
Скачать: [xml.tar.bz2];

Вниз

Cannot focus a disabled or invisible window   Найти похожие ветки 

 
term1t ©   (2006-07-31 13:28) [0]

Добрый день, местера ;) !
Возникла такая проблема: есть определенная база с заявлениями о товаре, нужно сделать чтобы при выборе определенного заказа можно было добавить товары из другого существующего заказа. сделал. но возникает ошибка "Cannot focus a disabled or invisible window". Причем когда запускаю сам ехе-шник данные вставляются в грид, но не фиксятся и выскакивает все та же ошибка.

{здесь я выбираю номер заказа, с которого нужно копировать}
procedure TFormVvNZayav.SpeedButton1Click(Sender: TObject);
begin
pNomer:=DBEdit1.Text;
self.Close;
FormVibTovar.ShowModal;{ошибка, почему-то выскакивает именно здесь...}
end;
{вот сама процедура "перетягивания" заказов}
procedure TFormVibTovar.ButDodClick(Sender: TObject);
var
 i:integer;
begin
dm1.TTovar.Filtered:=true;

dm1.TTovar.First;
dm1.findZayavQuery.First;

 while not DM1.findZayavQuery.Eof do
  begin
     dm1.TTovar.First;
 while not DM1.TTovar.Eof do begin
   if DM1.TTovar.FieldByName("rec_pril").AsInteger=DM1.findZayavQuery.FieldByName("rec _pril").AsInteger
     then begin
       showMessage("Такой товар уже есть в списке!");
       Exit;
     end;
   DM1.TTovar.Next;
 end;
 i:=0;
 i:=i+1;
 dm1.TTovar.Append;
 DM1.TTovar.FieldByName("n_p").AsInteger:=DM1.findZayavQuery.FieldByName("n_p").A sInteger;
 DM1.TTovar.FieldByName("tnzed").AsString:=DM1.findZayavQuery.FieldByName("tnzed" ).AsString;
 DM1.TTovar.FieldByName("name").AsString:=DM1.findZayavQuery.FieldByName("name"). AsString;
 dm1.TTovar.FieldByName("rec_pril").AsInteger:=inRec_pril+i;
 dm1.TTovar.Post;
 dm1.findZayavQuery.Next; {при отладке ошибка возникает здесь, но если запустить, то указывает именно в то место, где я вызываю ShowModal}
 DM1.TTovar.ApplyUpdates;
end;
end;

вот такая вот ппетруха.
P.S. опыт в программировании мал


 
Max Zyuzin ©   (2006-07-31 13:32) [1]

>term1t ©   (31.07.06 13:28)  
Вообще то тебе не в эту эху... но..

Какие значения стоят у формы FormVibTovar
Visible
Enabled
Где вообще это окно создается?


 
term1t ©   (2006-07-31 13:41) [2]

это окно созается при выборе пункта главного меню "добавить из".
оно представляет собой 2 кнопки (далее и выход) и 1 ДБЭдит. Visible и Enabled  у него изначально стоят  true.


 
Max Zyuzin ©   (2006-07-31 14:01) [3]

Судя по всему на момент FormVibTovar.ShowModal
Форма уже видима...


 
term1t ©   (2006-07-31 14:49) [4]

нет, форма впервые вызывается в этом месте. Она нормально отображается, но припопытке сделать Post для таблицы возникает эта ошибка...
Я вот думаю, а может это как то связано с тем что я одновременно обращаюсь к 1 и той же таблице 2-мя компонентами (Query и Table)?


 
term1t ©   (2006-07-31 18:42) [5]

Все, всем спасибо, проблема на самом деле была в базе.


 
mr.il ©   (2006-07-31 18:43) [6]

На OnActivate, FormVibTovar, у тебя ничего не повешано. Типа SetFocus объекта другова окна.



Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2006.10.01;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.012 c
1-1156143454
Bless
2006-08-21 10:57
2006.10.01
Закрытие формы в OnShow


1-1156172149
Fay
2006-08-21 18:55
2006.10.01
THintWindow.CalcHintRect


2-1158074657
B0x
2006-09-12 19:24
2006.10.01
Строки!


2-1157723033
random(128)
2006-09-08 17:43
2006.10.01
HashLib! v1.03 и т.д.


2-1158218239
kyn66
2006-09-14 11:17
2006.10.01
Составной индекс для ADS





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский