ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Подскажите
6 сообщений из 6, страница 1 из 1
Подскажите
    #32247741
Dimasa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimasa
Гость
Как узнать открыта ли MDI форма
...
Рейтинг: 0 / 0
26.08.2003, 15:34
| Ответить | Цитировать | Написать  
Подскажите
    #32247770
pkarklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pkarklin
Участник
Ты дочерние формы имеешь в виду (MDIChild)?
...
Рейтинг: 0 / 0
26.08.2003, 15:47
| Ответить | Цитировать | Написать  
Подскажите
    #32247825
Dimasa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimasa
Гость
Да
...
Рейтинг: 0 / 0
26.08.2003, 16:08
| Ответить | Цитировать | Написать  
Подскажите
    #32247856
pkarklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pkarklin
Участник
У TForm, есть свойства MDIChildCount и MDIChildren. Вот используя их и Пиши:

Код: plaintext
1.
2.
3.
4.
5.
6.
...
for Counter :=  0  to MDIChildCount -  1  do begin
  if MDIChild[Counter] is TYouFormClass then begin
    ShowMesage('Form is Open');
    break;
  end;
end
...
Рейтинг: 0 / 0
26.08.2003, 16:20
| Ответить | Цитировать | Написать  
Подскажите
    #32247967
Dimasa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimasa
Гость
Народ подскажите как чтобы по enter переходил из одного edita в другой
...
Рейтинг: 0 / 0
26.08.2003, 17:01
| Ответить | Цитировать | Написать  
Подскажите
    #32248097
Voha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Voha
Участник
Ну вобщето перед тем как задать вопрос желательно поискать на него ответ самому.
в OnKeyPress прописать чтото типа:
Код: plaintext
1.
2.
3.
4.
5.
6.
if Key = # 13  then  
  begin
    SelectNext(Sender as TWinControl, True, True);  
    Key := # 0 ;  
  end;
end;
...
Рейтинг: 0 / 0
26.08.2003, 17:54
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Подскажите
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]