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

@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
Можно это как то исправить?

@Arcor · 29.04.2019, 16:41

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

@CatEatingDogs · 29.04.2019, 16:43 **[ТС]**

Так как я пробовал на разных ПК с разными мониторами и окно по разному увеличивалось в размерах где то на меньше пикселей где то на больше пикселей.

@vijer · 29.04.2019, 16:44

Arcor, Мне то без надобности) я вообще об их существовании только сейчас узнал ^^. Но ведь странно... у одних такое поведение наблюдается... у других нет... "Почему?"... любопытно )

@D1973 · 29.04.2019, 16:44

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

Попробуйте поставить любую тему которая у вас есть чтобы окно выбора тоже была с темой

Вот сейчас я дома, тут у меня Win7x64 и ХЕ 8 и Ваша тема присутствует... Проконтролировал, чтобы стояла именно она, запустил - эффект тот же самый: программа в теме, а диалог - системный.
Поставил другую тему - эффект тот же самый...

Но размер диалогового окна не меняется ни там, ни там... Где-то в настройках ОС, я так думаю, надо колупаться...

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

Вот у человека vijer тоже такая проблема

А Вы пиратку с одного торрента качали

@CatEatingDogs · 29.04.2019, 16:47 **[ТС]**

Arcor, Я уже писал что для чистоты эксперимента не поленился и с ходил до другого ПК на котором только только установили Windows и кроме него на ПК не чего не было! Я прямо с этого ПК скачал новую версию 10.3 установил ее и создал новый проект, новая форма кинул кнопку и вставил туда этот код и поменял тему, и проблема повторилась что и на других ПК.

@D1973 · 29.04.2019, 16:47

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

скажите мне, дураку, нахрена вообще эти темы Вам?)))

И еще один дурак к просьбе присоединяется...

@CatEatingDogs · 29.04.2019, 16:55 **[ТС]**

D1973, Пост выше там Windows лицензия а Delphi та версия которая бесплатная.

Добавлено через 4 минуты
Хм тема применяется на проект вроде, странно почему у вас не в теме окно выбора папки. Да и в настройках Windows не че по этому поводу не менялось. По вопросу тем, ну они присутствуют в Delphi и их туда явно не какие то пираты запихали а сама компания embarcadero для того чтобы как то украсить (разнообразить) интерфейс программы, сделать ее выделяющейся и почему я не могу этим воспользоватся?

Добавлено через 2 минуты
И повторю может кто не прочитал ЕСЛИ ОКНО ВЫБОРА ПАПКИ БЕЗ ТЕМЫ ОНО НЕ УВЕЛИЧИВАЕТСЯ В РАЗМЕРАХ А ЕСЛИ С ТЕМОЙ ТО УВЕЛИЧИВАЕТСЯ.

@D1973 · 29.04.2019, 16:59

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

А ЕСЛИ С ТЕМОЙ ТО УВЕЛИЧИВАЕТСЯ.

Ну вот а как его "с темой" сделать-то? Я вот попробовал на двух компах с разными ОС... И везде в качестве диалогового окна у меня было окно с "системной темой"...

@Arcor · 29.04.2019, 17:01

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

Так проверил все варианты Arcor, Ваш вариант по ссылке окно старого образца неудобный и много ненужного

хде?

ну я же говорил...

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

у SelectDirectory есть куча прототипов перегруженных

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

D1973, Возможно от версии Delphi зависит? Может у вас более старая версия? и она эти окна в тему не заносит? даже не знаю в чем причина. Могу скомпилиный проект выложить который тут выкладывал, там это окно точно с темой. Можно так проверить в чем причина в Delphi или Windows.

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

Arcor, Нужен простой вариант такой:

@Arcor · 29.04.2019, 17:14

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

Arcor, Нужен простой вариант такой:

ну а с флагами поигратсья?)) религия забанила?

Delphi
1
2
3
var S: String;
begin
  SelectDirectory('', '', S, [])

Flip · 29.04.2019, 17:17

А если честно то функция SelectDirectory тоже не без греха, и багов в ней предостаточно, в подробности вдаваться не стал, но там автор пишет, что были проблемы с позиционированием диалога, и все каким-то образом упиралось в размеры, модально создаваемого диалога. Это не единственная тема, в которой он рассказано баги, поиском можно найти еще темы, в которых автор описывает проблемы с данной функцией.

@Arcor · 29.04.2019, 17:17

ниче не растет)) даже с темой)))

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

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

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

@D1973 · 29.04.2019, 17:29

CatEatingDogs, а вот именно тот пример, который Вы выложили - он у Вас тоже "растет"???

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

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

@Arcor · 29.04.2019, 17:31

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

Arcor, Потому что у вас не то окно, поставьте флаг sdNewUI и будет то окно про которое я говорю.

поставил точно твое окно, которые ты показал или хотелка снова изменилась?)

у меня не такое окно, у меня там все на немецком))))

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

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

@Arcor · 29.04.2019, 17:34

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

при прогружении папок показывается анимация в виде лупы и окно не виснет.

покажи где появлется? ни разу не видел лупы о которой речь)))

Новые блоги и статьи Все статьи Все блоги /
Мир по моей воле 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 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .	Почему SEO не начинается с ключевых слов: что проверить до написания текстов Neotwalker 01.08.2026 Когда владельцу сайта предлагают заняться SEO, первым шагом часто становится сбор запросов и написание текстов. Логика кажется понятной: 1. Находим ключевые слова. 2. Добавляем их на. . .

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

@CatEatingDogs 0 / 0 / 0 Регистрация: 28.04.2019 Сообщений: 61
	29.04.2019, 16:43 [ТС]
	Так как я пробовал на разных ПК с разными мониторами и окно по разному увеличивалось в размерах где то на меньше пикселей где то на больше пикселей. 0

@vijer 24 / 22 / 9 Регистрация: 23.09.2014 Сообщений: 326
	29.04.2019, 16:44
	Arcor, Мне то без надобности) я вообще об их существовании только сейчас узнал ^^. Но ведь странно... у одних такое поведение наблюдается... у других нет... "Почему?"... любопытно ) 0

@CatEatingDogs 0 / 0 / 0 Регистрация: 28.04.2019 Сообщений: 61
	29.04.2019, 16:47 [ТС]
	Arcor, Я уже писал что для чистоты эксперимента не поленился и с ходил до другого ПК на котором только только установили Windows и кроме него на ПК не чего не было! Я прямо с этого ПК скачал новую версию 10.3 установил ее и создал новый проект, новая форма кинул кнопку и вставил туда этот код и поменял тему, и проблема повторилась что и на других ПК. 0

@CatEatingDogs 0 / 0 / 0 Регистрация: 28.04.2019 Сообщений: 61
	29.04.2019, 16:55 [ТС]
	D1973, Пост выше там Windows лицензия а Delphi та версия которая бесплатная. Добавлено через 4 минуты Хм тема применяется на проект вроде, странно почему у вас не в теме окно выбора папки. Да и в настройках Windows не че по этому поводу не менялось. По вопросу тем, ну они присутствуют в Delphi и их туда явно не какие то пираты запихали а сама компания embarcadero для того чтобы как то украсить (разнообразить) интерфейс программы, сделать ее выделяющейся и почему я не могу этим воспользоватся? Добавлено через 2 минуты И повторю может кто не прочитал ЕСЛИ ОКНО ВЫБОРА ПАПКИ БЕЗ ТЕМЫ ОНО НЕ УВЕЛИЧИВАЕТСЯ В РАЗМЕРАХ А ЕСЛИ С ТЕМОЙ ТО УВЕЛИЧИВАЕТСЯ. 0

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

@CatEatingDogs 0 / 0 / 0 Регистрация: 28.04.2019 Сообщений: 61
	29.04.2019, 17:09 [ТС]
	Arcor, Нужен простой вариант такой: Миниатюры 0

Flip 335 / 173 / 67 Регистрация: 25.02.2018 Сообщений: 616
	29.04.2019, 17:17
	А если честно то функция SelectDirectory тоже не без греха, и багов в ней предостаточно, в подробности вдаваться не стал, но там автор пишет, что были проблемы с позиционированием диалога, и все каким-то образом упиралось в размеры, модально создаваемого диалога. Это не единственная тема, в которой он рассказано баги, поиском можно найти еще темы, в которых автор описывает проблемы с данной функцией. 0

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

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

@D1973 Модератор 9951 / 6486 / 2461 Регистрация: 21.01.2014 Сообщений: 27,481 Записей в блоге: 3
	29.04.2019, 17:29
	CatEatingDogs, а вот именно тот пример, который Вы выложили - он у Вас тоже "растет"??? 0

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

@CatEatingDogs 0 / 0 / 0 Регистрация: 28.04.2019 Сообщений: 61
	29.04.2019, 17:34 [ТС]
	D1973, Да который я выкладывал пример он у меня растет но там файлы не скомпилированы а просто проект, все видимо зависит от версии Delphi у кого то если не стоит флаг sdNewUI то показывает окно старого образца, а в новых версия Delphi он и без флага sdNewUI автоматом выводит окно нового образца. Попробуйте с флагом sdNewUI запустить тот проект который я выкладывал думаю что будет расти окно и у вас при условии что оно будет с темой! 0