Скачать: CL | DM;

ChildForm вопрос по активной форме   Найти похожие ветки 

← →
Lionzi ©   (2003-10-02 13:55) [0]

Вопрос такой: при открытии нескольких окон по следущей процедуре

begin
if OpenPictureDialog1.Execute then // если файл выбран, то выполнять следующее
begin
ChildForm := TChildForm.Create(Self);//открыть дополнительное окно
ChildForm.Image1.Picture.loadFromFile(OpenPictureDialog1.FileName);//открыть в этом окне заданный файл
ChildForm.Caption := OpenPictureDialog1.FileName;//присвоить окну имя файла
end;

Как положено окна открываются, но в случии необходимости внести изменение в свойства:
begin
if ChildForm.Image1.Stretch = True // если Stretch равно true
then ChildForm.Image1.Stretch := False // то присвоить ему значение false
else ChildForm.Image1.Stretch := True // иначе, присвоить значение true
end;

Изменение действует только на последнюю открытую форму, а не на активную в данный момент.

Как запустить последнюю процедуру для активного в данный момент окна?

Помогите пожалуста решить данную проблему!

Заранее благодарен, Александр.

---

← →
Skier ©   (2003-10-02 13:57) [1]

TForm.ActiveMDIChild ?

---

← →
Radionov Alexey ©   (2003-10-02 14:17) [2]

Вот это:
if ChildForm.Image1.Stretch = True // если Stretch равно true
then ChildForm.Image1.Stretch := False // то присвоить ему значение false
else ChildForm.Image1.Stretch := True // иначе, присвоить значение true

заменить этим:
if Assigned(ActiveMDIChild) then
with (ActiveMDIChild as TChildForm).Image1 do
Stretch := not Stretch

А то, что ChildForm показывает на последнюю созданную форму, следует из способа, которым ты их создаешь.
Так что ActiveMDIChild спасет отца русской демократии :)

---

← →
Rem ©   (2003-10-02 14:26) [3]

Если пишешь проект с динамически создаваемыми формами, то...
на (далекое) будущее:
Выкинь из модуля объявление:
var
ChildForm: TChildForm;
И забудь про эту переменную!

Ну и... убери форму из списка автоматически создаваемых (в настройках проекта).

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c