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

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

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

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

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

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

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

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

@SatanaXIII · 08.11.2013, 15:02

Стопудово еще и семерка какая-нибудь?

@Avazart · 08.11.2013, 15:12

Ну так свойствами Left/Top в TTimer в чем проблема ?

@coder8763 · 08.11.2013, 15:15 **[ТС]**

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

Стопудово еще и семерка какая-нибудь?

восьмерка )

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

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

Ну так свойствами Left/Top в TTimer в чем проблема ?

спасибо. буду посмотреть )

@Samrisbe · 08.11.2013, 18:26

Попробуй так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int form_left;// обьявляем
//-----------------------
void __fastcall TForm1MouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
form_left = Form1->Left;
Timer1->Enabled = true;
}
//-----------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if (Form1->Left==form_left+70){ // когда форма сместилась на 70
  Timer1->Enabled=false;}
}

интервал таймера и шаг смещения сам подбери...

@volvo · 08.11.2013, 22:04

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

@coder8763 · 10.11.2013, 15:28 **[ТС]**

спасибо господа за толковые мысли. буду пробовать

@coder8763 · 13.11.2013, 14:06 **[ТС]**

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

Попробуй так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int form_left;// обьявляем
//-----------------------
void __fastcall TForm1MouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
form_left = Form1->Left;
Timer1->Enabled = true;
}
//-----------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if (Form1->Left==form_left+70){ // когда форма сместилась на 70
  Timer1->Enabled=false;}
}

интервал таймера и шаг смещения сам подбери...

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

может еще чего где прописать надо?

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

@coder8763 · 13.11.2013, 15:09 **[ТС]**

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

Попробуй так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int form_left;// обьявляем
//-----------------------
void __fastcall TForm1MouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
form_left = Form1->Left;
Timer1->Enabled = true;
}
//-----------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if (Form1->Left==form_left+70){ // когда форма сместилась на 70
  Timer1->Enabled=false;}
}

интервал таймера и шаг смещения сам подбери...

и еще одну фишку странную заметил. на форму поместил TLabel черного стандартного цвета. после компиляции как он отображается на этой форме видно на картинке. глюк или это можно исправить как-то?

во всех остальных случаях нормально все отображается а этом примере вот так ...

@coder8763 · 13.11.2013, 16:38 **[ТС]**

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

Попробуй так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int form_left;// обьявляем
//-----------------------
void __fastcall TForm1MouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
form_left = Form1->Left;
Timer1->Enabled = true;
}
//-----------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if (Form1->Left==form_left+70){ // когда форма сместилась на 70
  Timer1->Enabled=false;}
}

интервал таймера и шаг смещения сам подбери...

а пристыковать к правой части нельзя? если заменяешь Left на Right пишет что ошибка. только к левой стороне экрана можно?

@Kulgar · 13.11.2013, 16:47

coder8763, разве у формы есть свойство Right?
Свойство Left определяет величину отступа от левой части элемента, к которому она принадлежит. Так же форма имеет свойство Width - ширина самой формы. В совокупии с шириной внешнего элемента формы получается Right форме и не нужен.

@coder8763 · 13.11.2013, 16:52 **[ТС]**

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

coder8763, разве у формы есть свойство Right?
Свойство Left определяет величину отступа от левой части элемента, к которому она принадлежит. Так же форма имеет свойство Width - ширина самой формы. В совокупии с шириной внешнего элемента формы получается Right форме и не нужен.

а что делать если форму надо пристыковать к правой части экрана? ведь ширина экрана у всех разная. как быть в этом случае без свойства Right? это можно как-то реализовать?

@Kulgar · 13.11.2013, 17:47

coder8763, так Вам к границам экрана..... Тут сложнее. Возможно это Вам поможет.

@volvo · 13.11.2013, 19:43

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

Тут сложнее

С чего бы? TScreen.Width прекрасно показывает ширину пользовательского экрана. Отнимаем ширину формы, и результат пишем в Form.Left

@coder8763 · 14.11.2013, 08:58 **[ТС]**

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

coder8763, так Вам к границам экрана..... Тут сложнее. Возможно это Вам поможет.

там похоже обсуждение кончилось ничем. вопрос так и не решили

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

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

С чего бы? TScreen.Width прекрасно показывает ширину пользовательского экрана. Отнимаем ширину формы, и результат пишем в Form.Left

толково придумано. поковыряю, может чего получится. спасибо.

Добавлено через 12 часов 58 минут

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

С чего бы? TScreen.Width прекрасно показывает ширину пользовательского экрана. Отнимаем ширину формы, и результат пишем в Form.Left

вот код, типа пример с того сайта что вы показали:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  for (int i = 0; i < Screen->FormCount; i++)
  {
        if (Screen->Forms[i]->Top < 0)
        {
          Screen->Forms[i]->Height += Screen->Forms[i]->Top;
          Screen->Forms[i]->Top = 0;
        }
        if (Screen->Forms[i]->Left < 0)
        {
          Screen->Forms[i]->Width += Screen->Forms[i]->Left;
          Screen->Forms[i]->Left = 0;
        }
        if (Screen->Forms[i]->Left + Screen->Forms[i]->Width > Screen->Width)
          Screen->Forms[i]->Width = Screen->Width - Screen->Forms[i]->Left;
        if (Screen->Forms[i]->Top + Screen->Forms[i]->Height > Screen->Height)
          Screen->Forms[i]->Height = Screen->Height - Screen->Forms[i]->Top;
  }
}

прописываю в обработчик нажатия кнопки и ничего.

еще чего-то необходимо указать? я так понимаю что там не все указано для правильного функционирования

@Kulgar · 14.11.2013, 10:18

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

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

Ваш код возвращает в видимую область экрана все открытые формы проекта, если они вышли из видимой области. Работает.
Другой вопрос: что до́лжно выполняться на эту кнопку?

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

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

Это?

@coder8763 · 14.11.2013, 10:40 **[ТС]**

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

Ваш код возвращает в видимую область экрана все открытые формы проекта, если они вышли из видимой области. Работает.
Другой вопрос: что до́лжно выполняться на эту кнопку?
Это?

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

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

@Kulgar · 14.11.2013, 11:38

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

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

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

Тогда могу предложивать Вам в качестве скрытия окна:

C++
1
2
3
4
5
6
7
8
9
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    if (X==0 || Y==0 || X==Form1->Width || Y==Form1->Height)
    {
        AnimateWindow(Form1->Handle, 700,AW_HIDE||AW_SLIDE||AW_VER_POSITIVE);
 
    }
}

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

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

Тогда могу предложивать Вам в качестве скрытия окна:

C++
1
2
3
4
5
6
7
8
9
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    if (X==0 || Y==0 || X==Form1->Width || Y==Form1->Height)
    {
        AnimateWindow(Form1->Handle, 700,AW_HIDE||AW_SLIDE||AW_VER_POSITIVE);
 
    }
}

может я туплю, но по логике когда мышка не над формой она должна плавно задвигаться за край экрана.

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

@Kulgar · 14.11.2013, 11:48

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

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

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

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

@SatanaXIII Почетный модератор 5851 / 2862 / 392 Регистрация: 01.11.2011 Сообщений: 6,906
	08.11.2013, 15:02
	Стопудово еще и семерка какая-нибудь? 1

@Avazart 8488 / 6155 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	08.11.2013, 15:12
	Ну так свойствами Left/Top в TTimer в чем проблема ? 1

@volvo Супер-модератор 33403 / 21513 / 8236 Регистрация: 22.10.2011 Сообщений: 36,914 Записей в блоге: 12
	08.11.2013, 22:04
	coder8763, почему-то мне кажется, что с TDockTabSet-ом это будет реализовать проще всего (ну, понятно, форма делается прозрачной через TransparentColor + TransparentColorValue, "выплывает" только панелька, причаленная на этот контрол. Причем плавное появление панели уже есть, его делать-то не надо)... 1

@coder8763 273 / 12 / 1 Регистрация: 18.09.2013 Сообщений: 641
	10.11.2013, 15:28 [ТС]
	спасибо господа за толковые мысли. буду пробовать 0

@Kulgar 511 / 196 / 26 Регистрация: 07.08.2013 Сообщений: 814
	13.11.2013, 16:47
	coder8763, разве у формы есть свойство Right? Свойство Left определяет величину отступа от левой части элемента, к которому она принадлежит. Так же форма имеет свойство Width - ширина самой формы. В совокупии с шириной внешнего элемента формы получается Right форме и не нужен. 1

@Kulgar 511 / 196 / 26 Регистрация: 07.08.2013 Сообщений: 814
	13.11.2013, 17:47
	coder8763, так Вам к границам экрана..... Тут сложнее. Возможно это Вам поможет. 1

@Kulgar 511 / 196 / 26 Регистрация: 07.08.2013 Сообщений: 814
	14.11.2013, 11:48
	coder8763, я проверял уход мыши с окна. 1