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

@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 попробовать?! поскольку другие варианты хоть и работают но не всехда. иногда просто программа открыта и не задвигается. как-то не стабильно срабатывает

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

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

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

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

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

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