Страшно! Ожившая форма диалога!

@CatEatingDogs · Регистрация: 28.04.2019

Студворк — интернет-сервис помощи студентам

Столкнулся с таким чудом что аж страшно стало

Сижу значит создаю форму на ней кнопку не кого не трогаю да и вроде ничего не предвещало беды пока не вписал в кнопку этот код:

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
var
  chosenDirectory: string;
begin
  if SelectDirectory('Выберите каталог', '', chosenDirectory) then
    ShowMessage('Выбранный каталог = ' + chosenDirectory)
  else
    ShowMessage('Выбор каталога прервался');
end;

Стандартная функция из FileCtrl:

Delphi
1
function SelectDirectory ( const Caption : string; const StartDir : WideString; out ChosenDir : string ) : Boolean;

И теперь форма этого диалога при каждом открытии оживает и начинает увеличиваться сама по себе в право и в низ! После 10 открытий и закрытий форма становится раза в 2 больше чем была изначально

Страшно спасайте

P.S. Такое поведение окна начало проявляться после того как в настройках проекта поменял тему на другую стандартную (Amakrits). Delphi 10.2
Можно это как то исправить?

@CatEatingDogs · 29.04.2019, 17:36 **[ТС]**

Arcor,

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

все видимо зависит от версии Delphi у кого то если не стоит флаг sdNewUI то показывает окно старого образца, а в новых версия Delphi он и без флага sdNewUI автоматом выводит окно нового образца. Попробуйте с флагом sdNewUI запустить тот проект который я выкладывал думаю что будет расти окно и у вас при условии что оно будет с темой!

вот я объясняю в чем видимо причина не растущего окна у некоторых, окно можно определить по индикатору в правом нижнем углу тот что растягивает окно. Попробуйте это окно у вас мышкой растягивается если потянуть за правый нижний угол?

@Arcor · 29.04.2019, 17:37

в конце концов конечная прога должна будет в своей жизни показать этот диалог 1 раз, для выбора быстродоступной папки и благоустроенно забыта, за столько всяких ньюансов

, практика показывает, чем примитивнее интерфейс программы, тем программа жизнеобильнее

@CatEatingDogs · 29.04.2019, 17:39 **[ТС]**

Если не растягивается окно значит оно старого образца и в нем эффекта живого окна не будет!

Добавлено через 1 минуту

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
var
  chosenDirectory: string;
begin
  if SelectDirectory('Выберите каталог', '', chosenDirectory,[sdNewUI]) then
    ShowMessage('Выбранный каталог = ' + chosenDirectory)
  else
    ShowMessage('Выбор каталога прервался');
end;

Вообщем вот так код попробуйте написать, так мне кажется у всех начнет увеличиваться окно при условии что окно с темой!

@Arcor · 29.04.2019, 17:40

что значит старого?

@CatEatingDogs · 29.04.2019, 17:46 **[ТС]**

Вот окно нового образца где лупа И РАСТУЩЕЕ ОКНО, вот пытаюсь открыть облако показывается лупа и окно не виснет.

@Arcor · 29.04.2019, 17:48

у меня нет никаких луп(ой какой слово то.. ээхх

) там вообще...

такой прототип еще есть..

Delphi
1
2
3
var Q: TArray<String>;
begin
  SelectDirectory('sdfg', Q, []);

@CatEatingDogs · 29.04.2019, 17:49 **[ТС]**

Вот окно старого образца которое нельзя растянуть И ОНО НЕ РАСТЕТ

@CatEatingDogs · 29.04.2019, 17:50 **[ТС]**

Arcor, так я и говорю что окно у вас старого образца поэтому и лупы нет.

@CatEatingDogs · 29.04.2019, 17:51 **[ТС]**

Вот что происходит с окном старого образца при попытки открыть облако и это в лучшем случае бывает и хуже

@Arcor · 29.04.2019, 17:53

дак у меня и с "новым" нету

только я понять не могу - что такое старый и что такое новый)))))

Добавлено через 2 минуты
и такого нету ни со "старым" ни со с "новым", я скрин выложил обоих вариантов выглядят одинаково. одно только растянуть можно

@CatEatingDogs · 29.04.2019, 17:54 **[ТС]**

Старое окно это без sdNewUI а новое с ним, только получается от версии Delphi зависит нужно его вписывать или нет на новых автоматом sdNewUI окно показывается.
Вот попробуйте именно такой код:

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
var
  chosenDirectory: string;
begin
  if SelectDirectory('Выберите каталог', '', chosenDirectory,[sdNewUI]) then
    ShowMessage('Выбранный каталог = ' + chosenDirectory)
  else
    ShowMessage('Выбор каталога прервался');
end;

и раз я не знаю 30 попробуйте его открыть-закрыть, будет расти оно главное чтобы оно было с темой!.

@Arcor · 29.04.2019, 17:57

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

и раз я не знаю 30 попробуйте его открыть-закрыть, будет расти оно главное чтобы оно было с темой!.

растет!!!

дало уже не в растет, чем не устраивает "старый"? что лупы нету?))) а чем она помогает?

@CatEatingDogs · 29.04.2019, 18:00 **[ТС]**

Arcor, Да блин

я уже раз 20 написал что глючит оно, а нового образца окно не глючит а прогружается и показывает лупу

а старого образца окно глючит, виснет и не реально открыть облако для выбора папки.

Добавлено через 33 секунды

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

растет!!!

Вот я же говорил!

@Arcor · 29.04.2019, 18:01

а это?
Страшно! Ожившая форма диалога!

с лупой? виснет? Что тут не так будет?)

@CatEatingDogs · 29.04.2019, 18:06 **[ТС]**

Лупа показывается во время загрузки папок облака так как на это нужно время и окно при этом не виснет! А у старого образца окно виснет во время загрузки папок причем конкретно виснет и в итоге папку не выбрать!

Добавлено через 3 минуты
Arcor, Есть два вида этого окна:
1) нового образца с sdNewUI оно не глючит но окно растет.
2) старого образца без sdNewUI оно глючит но не растет.
И в итоге нужно окно которое не глючит и не растет.

@Arcor · 29.04.2019, 18:10

ну тогда зажимай шифт и тыкай по SelectDirectory... и... объедини два случая, чтобы получилось как надо)

@CatEatingDogs · 29.04.2019, 18:12 **[ТС]**

И если использовать этот код и чтобы окно было с темой, то у всех окно будет расти.

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
var
  chosenDirectory: string;
begin
  if SelectDirectory('Выберите каталог', '', chosenDirectory,[sdNewUI]) then
    ShowMessage('Выбранный каталог = ' + chosenDirectory)
  else
    ShowMessage('Выбор каталога прервался');
end;

И это походу баг который просто не замечали раньше. Но вот представьте программу запустили выбрали папку закрыли, и после 50 запусков программы окно будет с пол экрана жесть.

Добавлено через 1 минуту
Arcor, Так в этом и проблема я не знаю как это сделать, проблему (баг) нашел а как исправить не знаю, помогите с этим.

@Arcor · 29.04.2019, 18:13

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

И это походу баг который просто не замечали раньше. Но вот представьте программу запустили выбрали папку закрыли, и после 50 запусков программы окно будет с пол экрана жесть.

вы уверены что за один сеанс включили-выключили компутер, вашей прогой будут пользоваться, а именно открытием диалога выбора больше даже 10 раз?)

@CatEatingDogs · 29.04.2019, 18:18 **[ТС]**

Arcor, Получается нужно окно нового образца но без функции растягивания чтобы окно не расло, или восстанавливать размеры окна при каждом его открытии/закрытии, но как?

Добавлено через 2 минуты
Arcor, Да вполне возможно что и 50 раз могут открывать окно при том что даже не выходя из программы, так как выполняются манипуляции с файлами и до и после нужно выбирать папку откуда и куда.

Добавлено через 1 минуту
Если бы одноразово это окно открывалось я бы и сам не заметил что оно живет своей жизнью.

Flip · 29.04.2019, 18:22

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

И если использовать этот код и чтобы окно было с темой, то у всех окно будет расти.

Вы тут не обобщайте ))) У меня всё стабильно, ничего не растёт. Тем пять попробовал, всё ровно, и не рисует он диалог этот со шкурой, хоть с флагом sdNewUI, хоть без него...

Новые блоги и статьи Все статьи Все блоги /
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .
Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .	Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .

@Arcor 5709 / 2300 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	29.04.2019, 17:37
	в конце концов конечная прога должна будет в своей жизни показать этот диалог 1 раз, для выбора быстродоступной папки и благоустроенно забыта, за столько всяких ньюансов , практика показывает, чем примитивнее интерфейс программы, тем программа жизнеобильнее 0

@Arcor 5709 / 2300 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	29.04.2019, 17:40
	что значит старого? 0

@CatEatingDogs 0 / 0 / 0 Регистрация: 28.04.2019 Сообщений: 61
	29.04.2019, 17:46 [ТС]
	Вот окно нового образца где лупа И РАСТУЩЕЕ ОКНО, вот пытаюсь открыть облако показывается лупа и окно не виснет. Миниатюры 0

@CatEatingDogs 0 / 0 / 0 Регистрация: 28.04.2019 Сообщений: 61
	29.04.2019, 17:49 [ТС]
	Вот окно старого образца которое нельзя растянуть И ОНО НЕ РАСТЕТ Миниатюры 0

@CatEatingDogs 0 / 0 / 0 Регистрация: 28.04.2019 Сообщений: 61
	29.04.2019, 17:50 [ТС]
	Arcor, так я и говорю что окно у вас старого образца поэтому и лупы нет. 0

@CatEatingDogs 0 / 0 / 0 Регистрация: 28.04.2019 Сообщений: 61
	29.04.2019, 17:51 [ТС]
	Вот что происходит с окном старого образца при попытки открыть облако и это в лучшем случае бывает и хуже Миниатюры 0

@Arcor 5709 / 2300 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	29.04.2019, 17:53
	дак у меня и с "новым" нету только я понять не могу - что такое старый и что такое новый))))) Добавлено через 2 минуты и такого нету ни со "старым" ни со с "новым", я скрин выложил обоих вариантов выглядят одинаково. одно только растянуть можно 0

@Arcor 5709 / 2300 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	29.04.2019, 18:01
	а это? Страшно! Ожившая форма диалога! с лупой? виснет? Что тут не так будет?) 0

@CatEatingDogs 0 / 0 / 0 Регистрация: 28.04.2019 Сообщений: 61
	29.04.2019, 18:06 [ТС]
	Лупа показывается во время загрузки папок облака так как на это нужно время и окно при этом не виснет! А у старого образца окно виснет во время загрузки папок причем конкретно виснет и в итоге папку не выбрать! Добавлено через 3 минуты Arcor, Есть два вида этого окна: 1) нового образца с sdNewUI оно не глючит но окно растет. 2) старого образца без sdNewUI оно глючит но не растет. И в итоге нужно окно которое не глючит и не растет. 0

@Arcor 5709 / 2300 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	29.04.2019, 18:10
	ну тогда зажимай шифт и тыкай по SelectDirectory... и... объедини два случая, чтобы получилось как надо) 0

@CatEatingDogs 0 / 0 / 0 Регистрация: 28.04.2019 Сообщений: 61
	29.04.2019, 18:18 [ТС]
	Arcor, Получается нужно окно нового образца но без функции растягивания чтобы окно не расло, или восстанавливать размеры окна при каждом его открытии/закрытии, но как? Добавлено через 2 минуты Arcor, Да вполне возможно что и 50 раз могут открывать окно при том что даже не выходя из программы, так как выполняются манипуляции с файлами и до и после нужно выбирать папку откуда и куда. Добавлено через 1 минуту Если бы одноразово это окно открывалось я бы и сам не заметил что оно живет своей жизнью. 0