Скрытие и открытие формы

@coder8763 · Регистрация: 18.09.2013

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

Имеется небольшая форма без бордюра и заголовка окна пристыкованная к правой части десктопа.

Необходимо сделать чтобы когда убираешь мышку от формы прога плавно скрывалась за видимую часть экрана вправо.

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

Подскажите пожалуйста как это реализовать? Если это не очень сложно конечно.

Для примера можно использовать пустую форму. Программу делаю в Builder XE.

@coder8763 · 14.11.2013, 11:56 **[ТС]**

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

coder8763, я проверял уход мыши с окна.

проверил на чистой форме. ничего. может еще чего где указывали?

@Kulgar · 14.11.2013, 12:00

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

проверил на чистой форме. ничего. может еще чего где указывали?

На чистой форме и я делал.

Есть обходной манёвр.. точнее напрямую.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
    int X, int Y)
{
    if (X==0 || Y==0 || X==Form1->Width || Y==Form1->Height)
    {
        Timer1->Enabled=true;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    Form1->Left=Screen->Width-Form1->Width;
    Timer1->Enabled=false;
    Timer1->Interval=10;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    if(Form1->Left<Screen->Width)
        Form1->Left++;
    else
        Timer1->Enabled=false;
}

@volvo · 14.11.2013, 12:24

OnMouseMove с доп. проверками не нужно, есть OnMouseLeave для сигнализации, что мышь ушла с контрола. Вот в обработчике этого события формы вполне можно сделать AnimateWindow...

@Kulgar · 14.11.2013, 12:26

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

OnMouseMove с доп. проверками не нужно, есть OnMouseLeave для сигнализации, что мышь ушла с контрола. Вот в обработчике этого события формы вполне можно сделать AnimateWindow...

Сори, поленился, недоковырял.

Добавлено через 1 минуту
UI, в 6.0 нет события OnMouseLeave

@volvo · 14.11.2013, 12:37

У ТС-а Билдер XE, об этом сказано в самом первом посте... А 6-ому Билдеру вообще место в музее

@coder8763 · 14.11.2013, 14:34 **[ТС]**

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

На чистой форме и я делал.

Есть обходной манёвр.. точнее напрямую.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
    int X, int Y)
{
    if (X==0 || Y==0 || X==Form1->Width || Y==Form1->Height)
    {
        Timer1->Enabled=true;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    Form1->Left=Screen->Width-Form1->Width;
    Timer1->Enabled=false;
    Timer1->Interval=10;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    if(Form1->Left<Screen->Width)
        Form1->Left++;
    else
        Timer1->Enabled=false;
}

супер! это потрясающе! все отлично работает!

огромное спасибо!

а как сделать чтобы когда форма исчезла когда подводишь к краю экрана появляется стрелочка её нажимаешь и форма выезжает?

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

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

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

coder8763, почему-то мне кажется, что с TDockTabSet-ом это будет реализовать проще всего (ну, понятно, форма делается прозрачной через TransparentColor + TransparentColorValue, "выплывает" только панелька, причаленная на этот контрол. Причем плавное появление панели уже есть, его делать-то не надо)...

может и правда TDockTabSet попробовать?! поскольку другие варианты хоть и работают но не всехда. иногда просто программа открыта и не задвигается. как-то не стабильно срабатывает

а можно какой-нибудь примерчик с этим компонентом? а то информация по нему крайне скудная и в сети и в литературе

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .

@coder8763 273 / 12 / 1 Регистрация: 18.09.2013 Сообщений: 641

	Скрытие и открытие формы 08.11.2013, 10:40. Показов 3694. Ответов 25 Метки нет (Все метки) Имеется небольшая форма без бордюра и заголовка окна пристыкованная к правой части десктопа. Необходимо сделать чтобы когда убираешь мышку от формы прога плавно скрывалась за видимую часть экрана вправо. Подводишь мышку к правой части десктопа появляется стрелочка. Нажимаешь на стрелочку окно выдвигается плавно из правой части экрана в исходное положение. Подскажите пожалуйста как это реализовать? Если это не очень сложно конечно. Для примера можно использовать пустую форму. Программу делаю в Builder XE. 0

@volvo Супер-модератор 33479 / 21577 / 8250 Регистрация: 22.10.2011 Сообщений: 37,038 Записей в блоге: 12
	14.11.2013, 12:24
	OnMouseMove с доп. проверками не нужно, есть OnMouseLeave для сигнализации, что мышь ушла с контрола. Вот в обработчике этого события формы вполне можно сделать AnimateWindow... 2

@volvo Супер-модератор 33479 / 21577 / 8250 Регистрация: 22.10.2011 Сообщений: 37,038 Записей в блоге: 12
	14.11.2013, 12:37
	У ТС-а Билдер XE, об этом сказано в самом первом посте... А 6-ому Билдеру вообще место в музее 1