Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Вниз

Найти вернее окно (форму) среди нескольких одинаковых   Найти похожие ветки 

← →
Дмитрий Белькевич   (2012-08-16 14:04) [0]

У приложения есть несколько одинаковых форм (созданных в реалтайме). Стиль форм - fsNormal. Нужно найти самую верхнюю форму (по z order) из них.

---

← →
AV ©   (2012-08-16 14:15) [1]

Screen.ActiveForm ?

---

← →
Дмитрий Белькевич   (2012-08-16 14:29) [2]

> Screen.ActiveForm ?


Уточняю. Ни одна форма из них не активна. Что бы понять, как это выглядит.
В системе два монитора. На одном мониторе - активная форма (главная форма программы). На втором мониторе - 2-3, или больше, одинаковых форм. Нужно найти самую верхнюю из них.

---

← →
Anatoly Podgoretsky ©   (2012-08-16 14:30) [3]

Если же все таки окна то

GetTopWindow function to search all child windows of a parent window and return the handle of the child window that is highest in Z order.

И GetNextWindow function для прохода по списку

---

← →
AV ©   (2012-08-16 14:43) [4]

> Дмитрий Белькевич   (16.08.12 14:29) [2]

т.е. вторую сверху?
тогда, Anatoly Podgoretsky ©   (16.08.12 14:30) [3]
http://msdn.microsoft.com/en-us/library/windows/desktop/ms633509%28v=vs.85%29.aspx

---

← →
Дмитрий Белькевич   (2012-08-17 13:40) [5]

>т.е. вторую сверху?

Уточняю :) окон может быть много разных (в приложении 40 разных форм, что там юзер пооткрывал и где какие окна по мониторам будут расположены - я заранее не знаю). Знаю только, что может быть открыто несколько одинаковых форм одного класса (TForm14) одновременно. Они могут быть открыты как на одном мониторе, так и на разных. Нужно найти все формы такого класса (это знаю как сделать) и найти самую "верхнюю" из них (это не знаю).

Спасибо за ответы и прошу прощения за неполную постановку задачи сразу.

---

← →
AV ©   (2012-08-17 13:49) [6]

ну и?

GetTopWindow - верхнее, если оно in SET - выход
repeat
GetNextWindow,  если оно in SET - выход
until Кончились окна

SET =

> найти все формы такого класса (это знаю как сделать)

---

← →
Дмитрий Белькевич   (2012-08-17 16:19) [7]

> ну и?


Элементарно, Ватсон :) Спасибо, нужно больше отдыхать :)

---

← →
Дмитрий Белькевич   (2012-08-19 12:19) [8]

Сделал так:


function TForm1.GetTopForm14: TForm;
var
Wnd: THandle;

function WindowClassName(Wnd: HWND): string;
var
 Buffer: array [0..255] of char;
begin
 SetString(Result, Buffer, GetClassName(Wnd, Buffer, SizeOf(Buffer) - 1));
end;

begin
Result := nil;
Wnd := GetTopWindow(0);
while (Wnd <> 0) do
begin
 if WindowClassName(Wnd) = "TForm14" then
  Exit(TForm(FindControl(Wnd)));
 Wnd := GetNextWindow(Wnd, GW_HWNDNEXT);
end;
end;


Вопрос. Можно ли как-то найти форму по классу, а не по названию класса?

---

← →
Дмитрий С ©   (2012-08-19 13:34) [9]

var FC: TFormClass;

...
FC := TForm14;

WindowClassName(Wnd) = FC.ClassName :)

---

← →
Дмитрий Белькевич   (2012-08-19 20:53) [10]

Спасибо :)

---

← →
Алибабай   (2012-08-20 21:40) [11]

function TopForm(AClass: TFormClass): TForm;
var
 i: integer;
begin
 for i := 0 to Screen.FormCount - 1 do
 begin
   Result := Screen.Forms[i];
   if Result is AClass then
     Exit;
 end;
 Result := nil;
end;

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.064 c