DBGrid

← →
TP (2003-10-22 13:46) [40]

Как это не смешно, но Form1 астивна после закрытия Form2.
"Не активен" только Grid. см. [24]

← →
k_len © (2003-10-22 13:49) [41]

>>Может всё - таки объяснишь, что такое InfFlats и как закрывается Form2.
Это опечатка InfFlats=Form2, приводила код в удобочитаемую форму.

>>сделать hide
не было этого, но то что это прикол - согласна

← →
DenK_vrtz © (2003-10-22 13:52) [42]

А сделать гриду явно SetFocus

← →
TP (2003-10-22 13:57) [43]

Убери Action:=caFree в Form2 и сделай

if resEtFlat <> nil then
BEGIN
Form2.Caption:="Ул. "+datamoduleReports.QBuildsStreet.AsString+" дом "+datamoduleReports.QBuildsHouse.AsString;

Form1.WindowState:=wsMinimized;
Form2.ShowModal;
Form2.Free;
END//not nil

← →
k_len © (2003-10-22 13:58) [44]

>>А сделать гриду явно SetFocus

не кликается

← →
k_len © (2003-10-22 14:03) [45]

>>Form2.Free;
не кликается

если форму с гридом свернуть и развернуть кликается, есть мысли?

← →
Vlad © (2003-10-22 14:08) [46]

Вот это убери
Form1.WindowState:=wsMinimized;

← →
k_len © (2003-10-22 14:12) [47]

>>Vlad © (22.10.03 14:08) [46]

прошло,
ребята, спасибо всем большое.

но все-таки почему так было?

← →
Vlad © (2003-10-22 14:18) [48]

>k_len © (22.10.03 14:12) [47]
Потому что Form1 "думает" что она минимизирована. Соотв. не дает управлять контролами.

PS Оч. хороший и показательный вопрос по базам данных :)

← →
TP (2003-10-22 14:20) [49]

А что
Form1.WindowState:= wsNormal;
не было ????

>>Form1.WindowState:= wsNormal;
было на закрытие Form2

← →
TP (2003-10-22 14:28) [51]

Убери в Form2 из uses unit1, а в Form2:

Form1.WindowState:=wsMinimized;
Form2.ShowModal;
Form2.Free;
Form1.WindowState:= wsNormal;

>>TP (22.10.03 14:28) [51]
проходит
спасибо!!!

DBGrid Найти похожие ветки