| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Mdi Окна (модальное окно) [D7, XP]
fics) © (2009-08-01 14:29:00)Уважаемые мастера помогите разобраться с следующей задачей:
Есть MDI приложение. Из одного из окон приложения по кнопке вызываю след. процедуру:
procedure TServKardF.SpeedButton1Click(Sender: TObject);
var
sh: TEditKardF;
begin
sh := TEditKardF.Create(Application);
//SendMessage(sh.Handle, ??);
end;
у TEditKardF.FormStyle = fsMDIForm
как можно TEditKardF сделать модальным?
Заранее спасибо
sniknik (2009-08-01 16:24:00) [21]> вот мое решение
твое "решение" делает что угодно но только не чилд Mdi модальным...
fics) (2009-08-01 16:23:00) [22]ну не совсем удачное, но пойдет пока
sniknik (2009-08-01 16:22:00) [23]> Уже созданое окно нельзя сделать модальным
ну так не создавай его предварительно, в чем проблема?
fics) (2009-08-01 16:21:00) [24]
> Anatoly Podgoretsky © (01.08.09 16:14) [7]
ну что ж не такой видать умный как другие
//родительское окно
procedure TServKardF.FormActivate(Sender: TObject);
begin
if ((EditKardF <> nil) and (EditKardF.Showing)) then
EditKardF.SetFocus;
end;
вот мое решение, а где ваш ответ не вижу?
Anatoly Podgoretsky (2009-08-01 16:14:00) [25]> fics) (01.08.2009 16:03:06) [6]
Тебе дали ответы, а ты даже и не пытаешься их понять.
fics) (2009-08-01 16:03:00) [26]
> Anatoly Podgoretsky © (01.08.09 15:46) [4]
class EInvalidOperation with message 'Cannot make a visible window modal'.
Уже созданое окно нельзя сделать модальным
fics) (2009-08-01 15:50:00) [27]
> Anatoly Podgoretsky © (01.08.09 15:46) [4]
Это не правильно:
> MonoLife © (01.08.09 15:00) [2]
> sh.showmodal
Anatoly Podgoretsky (2009-08-01 15:46:00) [28]> fics) (01.08.2009 15:05:03) [3]
Ну и что, что нет - это нормально.
fics) (2009-08-01 15:05:00) [29]
> MonoLife © (01.08.09 15:00) [2]
Этого окно нет в автокреэйте
MonoLife (2009-08-01 15:00:00) [30]sh.showmodal
MonoLife (2009-08-01 14:59:00) [31]FormStyle = fsNormal?
| |
Страницы: 