|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Управление чужой формой
Есть главная форма программы, через нее открывается дополнительная форма.
На этой дополнительной форме есть несколько EDIT-ов и Кнопки. Как сделать перебор этих всех контролов, узнать их идентификаторы, присваивать им значения и считывать их и как достучатся до этой второй формы, если использовать API функции FindWindow и FindWindowEx, то надо хотя бы знать заголовок окна, чтобы получить хандл на него. Мой заголовок окна состоит из первых двух постоянных слова "День недели" , а вот весь заголовок (День недели XXXXX YYYYYY ZZZZZ) - XXXXX YYYYYY ZZZZZ постоянно меняется,при запуске изменятся. Каким образом можно выходить на хандл этого окна если я укажу не весть, а только часть заголовка? |
#2
|
||||
|
||||
Цитата:
Код:
for I := 0 to ComponentCount - 1 do if Components[i] is TMyClass then // что то делаем. Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#3
|
|||
|
|||
Цитата:
А как едитам присвоить значение или считать из нужного едита в перменную, а потом щелкнуть на кнопку? Я забыл добавить - я пишу в делфи мини приложение которое должно управлять другим приложением - вписывать в едиты значения и считывать значения, кликать по кнопке и считывать новые значения из едитов которые уже присвоила им эта чужая программа. Последний раз редактировалось aquatell, 13.07.2013 в 01:14. |
#4
|
||||
|
||||
Не путай понятия, чужое приложение и другая форма. Для чужого приложения нужно использовать FinfWindow, а для другой формы не требуется. Она твоя, что хочешь то и делаешь.
Вот с этого и нужно было начинать, а то другая форма. Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#5
|
||||
|
||||
Оффтоп:
Цитата:
Пичалька... А по существу, ести это TEdit - обращаешся с свойству Text, если кликнуть на кнопку - вызывай метод Click кнопки. Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#6
|
||||
|
||||
Ну и куда "щёлкать"?
Код:
function EnumChildProc(WndCtrl : HWND; lParam : Longint) : Boolean; stdcall; var szClass : array[Byte] of Char; begin GetClassName(WndCtrl, szClass, SizeOf(szClass)); if (lstrcmpi(szClass, 'TEDIT') = 0) then begin // делаем что нужно end; Result := True; end; procedure TForm2.Button1Click(Sender: TObject); var Wnd: HWND; begin // когда известен точный заголовок Wnd := FindWindow(NIL, 'Моё окно'); // если нет, то Wnd := FindWindow('Моё окно', NIL); if Wnd <> 0 then begin if not EnumChildWindows(Wnd, @EnumChildProc, 0) then begin Exit; end; end; end; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. Последний раз редактировалось angvelem, 13.07.2013 в 01:30. |
Эти 2 пользователя(ей) сказали Спасибо angvelem за это полезное сообщение: | ||
aquatell (13.07.2013),
Aristarh Dark (13.07.2013)
|
#7
|
|||
|
|||
Цитата:
Давайте так: Приложение1 - это мое. Приложение2 - это чужое. У приложения2 есть дополнительная форма - вызываемая из меню главной формы Приложения2. Мне надо передавать из Приложения1 в приложение2 значения несколько EDIT-ов. Но мне не известны идентификаторы едитов из приложения2. |
#8
|
||||
|
||||
Ну как дети, чес-слово.
Чужой контрол - все, сразу "ай-я-яй!". Если это чистый Edit - передай ему WM_SETTEXT если какой-то хитрый контрол - дебажить придется. Кнопке передай клик, сам найдешь в сети нет ничего сложного - запомни главнвное - винда это система сообщений, вот в ДОСе ты бы сломал ноги, про CPM я вообще молчу тупо в трубочку. Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
Этот пользователь сказал Спасибо Aristarh Dark за это полезное сообщение: | ||
aquatell (13.07.2013)
|
#9
|
|||
|
|||
Цитата:
На счет FindWindow -первый параметр это же название класса должно быть. Если я хочу получить хэндл окна Notepad++ то я так и должен написать, а если я пишу Notepad+ то уже ничего не находит. Цель такая чтобы мой заголовок был таким Note т.е. я отсекаю pad++ и хочу чтобы нашелся хэндл. |
#10
|
||||
|
||||
Вот и пиши правильно имя класса, если с заголовком проблемы.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#11
|
||||
|
||||
Цитата:
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#12
|
|||
|
|||
Цитата:
Вообще как сделать в цикле полный перебор окон и его дочерних? Если это у меня получится то до контролов я уже доберусь сам. |
#13
|
||||
|
||||
Должен знать либо имя класса, либо заголовок. Код перебора для контролов я привёл (TEdit). Остальные добавишь по аналогии.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#14
|
|||
|
|||
Цитата:
|
#15
|
||||
|
||||
Цитата:
Цитата:
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |