ArrangeIcons

← →
Allexandr © (2007-02-22 01:59) [0]

Здравствуйте.
Для работы с дочерними окнами есть такой метод:
ArrangeIcons;
В описании написано: "выстроить иконки всех дочерних окон"
Попробовал написать, но при нажатии кнопки вообще ничего не наблюдаю.
Подскажите, может я что-то не так написал (ниже приведен код) или может быть объясните чего стоит ждать от этого метода. Спасибо.

procedure TForm1.Button1Click(Sender: TObject); begin form2:=tform2.Create(owner); end; procedure TForm1.Button3Click(Sender: TObject); begin previous; end;

т.е. у меня есть форма один, есть форма два.. ф1 - материнская, внутри которой я при нажатии на кнопки создаю ф2..
после нескольких нажатий на буттон1 я нажимаю на буттон3 и ничего не наблюдаю.

← →
Германн © (2007-02-22 02:17) [1]

> после нескольких нажатий на буттон1 я нажимаю на буттон3
> и ничего не наблюдаю.

А что ты хотел "наблюдать"?
Вообще это чушь - присваивать одной и той же переменной ссылку на вновь создаваемый экземпляр класса без предварительного уничтожения ранее существовавшего!

← →
Allexandr © (2007-02-22 12:18) [2]

Почему же чушь? А например юзер запустил текстовый редактор. Там открывает 2-3 окна для ввода.. Они ведь совершенно одинаковы. Главному окну они никаких данных не должны передавать, а при нажатии на "сохранить" или "печать" или еще что-то - просто сохранить инфу в файл или из активного окна вывести на печать.

> А что ты хотел "наблюдать"?

Честно - ничего не хотел "наблюдать", но раз метод есть, значит он зачем то нужен. Вот я и хотел узнать зачем. А правильный ответ я уже получил на другом форуме. Цитирую:

> Так ваши окна-то минимизированы?
>
> Этот код должен упорядочивать минимизированные MDI-child"ы.
> Чтобы увидеть его действие, надо свернуть окна, раскидать
> их в беспорядке, и тогда после вызова ArrangeIcons они будут
> выстроены строем.

← →
RASkov (2007-02-22 13:14) [3]

> [2] Allexandr © (22.02.07 12:18)

ArrangeIcon - вообщето упорядочивает иконки свернутых окон...
Для окон есть Tile; и type TTileMode = (tbHorizontal, tbVertical);

> Почему же чушь? А например юзер запустил текстовый редактор. Там открывает 2-3 окна для ввода..

Тогда уж создавай их без переменной:
procedure TForm1.Button1Click(Sender: TObject);
begin
tform2.Create(Self);
end;

ArrangeIcons Найти похожие ветки