[aquatell]

Есть главная форма программы, через нее открывается дополнительная форма.
На этой дополнительной форме есть несколько EDIT-ов и Кнопки.
Как сделать перебор этих всех контролов, узнать их идентификаторы, присваивать им значения и считывать их и как достучатся до этой второй формы,
если использовать API функции FindWindow и FindWindowEx, то надо хотя бы знать заголовок окна, чтобы получить хандл на него.
Мой заголовок окна состоит из первых двух постоянных слова "День недели" , а вот весь заголовок (День недели XXXXX YYYYYY ZZZZZ) - XXXXX YYYYYY ZZZZZ
постоянно меняется,при запуске изменятся. Каким образом можно выходить на хандл этого окна если я укажу не весть, а только часть заголовка?

[angvelem]

Сообщение от aquatell

... через нее открывается дополнительная форма.

При чём тут FindWindow?

Код:

  for I := 0 to ComponentCount - 1 do
    if Components[i] is TMyClass then 
// что то делаем.

[aquatell]

При чём тут FindWindow?

Просто я нашел информацию, что это делается только через Win API
А как едитам присвоить значение или считать из нужного едита в перменную, а потом щелкнуть на кнопку?
Я забыл добавить - я пишу в делфи мини приложение которое должно управлять другим приложением - вписывать в едиты значения и считывать значения, кликать по кнопке и считывать новые значения из едитов которые уже присвоила им эта чужая программа.

[angvelem]

Не путай понятия, чужое приложение и другая форма. Для чужого приложения нужно использовать FinfWindow, а для другой формы не требуется. Она твоя, что хочешь то и делаешь.

Вот с этого и нужно было начинать, а то другая форма.

[Aristarh Dark]

Оффтоп:

щелкнуть

учите русский язык...
Пичалька...
А по существу, ести это TEdit - обращаешся с свойству Text, если кликнуть на кнопку - вызывай метод Click кнопки.

[angvelem]

Ну и куда "щёлкать"?

Код:

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;

[aquatell]

Сообщение от angvelem

Ну и куда "щёлкать"?

Разве слово "щелкать" не из русского языка? Вроде правильно написал А главное вы меня поняли.
Давайте так:
Приложение1 - это мое.
Приложение2 - это чужое.
У приложения2 есть дополнительная форма - вызываемая из меню главной формы Приложения2.
Мне надо передавать из Приложения1 в приложение2 значения несколько EDIT-ов. Но мне не известны идентификаторы едитов из приложения2.

[Aristarh Dark]

Ну как дети, чес-слово.
Чужой контрол - все, сразу "ай-я-яй!".
Если это чистый Edit - передай ему WM_SETTEXT если какой-то хитрый контрол - дебажить придется.
Кнопке передай клик, сам найдешь в сети нет ничего сложного - запомни главнвное - винда это система сообщений, вот в ДОСе ты бы сломал ноги, про CPM я вообще молчу тупо в трубочку.

[aquatell]

Сообщение от angvelem

Код:

function EnumChildProc(WndCtrl : HWND; lParam : Longint) : Boolean; stdcall;

  Wnd := FindWindow(NIL, 'Моё окно');
  // если нет, то
  Wnd := FindWindow('Моё окно', NIL);
  if Wnd <> 0 then
  begin
    if not EnumChildWindows(Wnd, @EnumChildProc, 0) then
    begin
      Exit;
    end;
  end;
end;

На счет FindWindow -первый параметр это же название класса должно быть. Если я хочу получить хэндл окна Notepad++ то я так и должен написать, а если я пишу Notepad+ то уже ничего не находит. Цель такая чтобы мой заголовок был таким Note т.е. я отсекаю pad++ и хочу чтобы нашелся хэндл.

[angvelem]

Вот и пиши правильно имя класса, если с заголовком проблемы.

[Aristarh Dark]

Сообщение от aquatell

а если я пишу Notepad+ то уже ничего не находит

Возможно потому, что класс окна по другому называется...

[aquatell]

Сообщение от angvelem

Вот и пиши правильно имя класса, если с заголовком проблемы.

А если мне не известен класс и используется часть заголовка для поиска?
Вообще как сделать в цикле полный перебор окон и его дочерних?
Если это у меня получится то до контролов я уже доберусь сам.

[angvelem]

Должен знать либо имя класса, либо заголовок. Код перебора для контролов я привёл (TEdit). Остальные добавишь по аналогии.

[aquatell]

Сообщение от Aristarh Dark

Возможно потому, что класс окна по другому называется...

Так и есть, надо какой то один параметр писать точно или это класс или заголовок. В случае когда не известно и не то и другое то надо применить цикл и получить айди окон, потом получить на них дескриптор.

[Aristarh Dark]

надо какой то один параметр писать точно или это класс или заголовок

кАпитан ОЧЕВИДНОСТЬ, я вас категорически приветствую.

когда не известно и не то и другое

нужно отдебажить апликуху и выяснить класс главного окна, его даже я не меняю, а моим окном вы не сможете поуправлять...