Форум: "Основная";
Текущий архив: 2003.10.13;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.13;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c