Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.08.2008, 23:06   #1
Irat
Пользователь
 
Регистрация: 04.02.2008
Сообщений: 35
По умолчанию Активация окна

Здравствуйте!
Подскажите как можно активировать окно, что бы в нем в Edit ввести текст?
И как имитировать нажатие Enter?
спасибо!
Irat вне форума Ответить с цитированием
Старый 12.08.2008, 23:21   #2
Манжосов Денис :)
Участник клуба
 
Регистрация: 29.01.2008
Сообщений: 1,039
По умолчанию

Создаешь процедуру для Edit1 OnKeyPress
Пишешь код:
Код:
if Key = #13 then // #13 - клавиша Enter
...
Активировать окно как понять?
Код:
Form2.ShowModal;
По другому:
Код:
Application.CreateForm(TForm2, Form2);
Манжосов Денис :) вне форума Ответить с цитированием
Старый 13.08.2008, 00:13   #3
Crivel
Delphi\C++
Форумчанин
 
Аватар для Crivel
 
Регистрация: 18.06.2008
Сообщений: 277
По умолчанию

Можно и подругому -
Код:
if Key = VK_RETURN then //VK_RETURN тоже клавиша ENTER
...
Crivel вне форума Ответить с цитированием
Старый 13.08.2008, 08:51   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
Подскажите как можно активировать окно, что бы в нем в Edit ввести текст?
Вообще-то надо пояснять чье окно твое или чужое.
Цитата:
И как имитировать нажатие Enter?
Ну послать эдиту эту клавишу через SendMessage или Keybd_event (Уже обсуждалось)
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 13.08.2008, 15:03   #5
Irat
Пользователь
 
Регистрация: 04.02.2008
Сообщений: 35
По умолчанию

Нахожу нужное окно:
h:=FindWindows(nil,'заголовок окна');
if h=0 then exit;
SendMessage(h,??? ,0,0);

подскажите что нужно чтобы окно стало активным и в Edit ввести текст, после этого программно нажать Enter?
Irat вне форума Ответить с цитированием
Старый 13.08.2008, 15:50   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

В цикле посылай SendMessage с параметром WM_CHAR посимвольно.
Еще проще будет так:
Код:
s:='Текст'#0;
SendMessage(h,WM_SETTEXT ,0,integer(@i));
Можешь обьяснить зачем такие страсти?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Размер окна в зависимости от размера окна Reverent JavaScript, Ajax 1 02.02.2008 15:49
Окна Baby Паскаль, Turbo Pascal, PascalABC.NET 9 21.12.2007 15:34
закрыть все дочерни окна, кроме главного окна Worms Общие вопросы Delphi 2 03.12.2007 22:18
Как сделать чтобы дочерние окна в MDI-приложениях были вне главного окна??? dimonchuk Общие вопросы Delphi 1 11.08.2007 12:13