Главная страница
    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.016 c
15-1157688089
num
2006-09-08 08:01
2006.10.01
Логин и пароль


1-1156108386
Out
2006-08-21 01:13
2006.10.01
Перехват сообщений


2-1157802111
Mr tray
2006-09-09 15:41
2006.10.01
хелп по стандартным командам коиандной строки


2-1158207408
O.O
2006-09-14 08:16
2006.10.01
Погасить message


15-1157814167
ArtemESC
2006-09-09 19:02
2006.10.01
Английский...





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский