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

@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, я проверял уход мыши с окна.

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

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

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

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

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

@volvo Супер-модератор 33411 / 21521 / 8236 Регистрация: 22.10.2011 Сообщений: 36,922 Записей в блоге: 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