Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Круглый стол
  
Правила КС
>> Настройки

Фильтр вопросов
>> Новые вопросы
отслеживать по
>> Новые ответы

Избранное

Страница вопросов
Поиск по КС


Специальные проекты:
>> К л ю к в а
>> Г о л о в о л о м к и

Вопрос №

Задать вопрос
Off-topic вопросы

Помощь

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
  
 
Во Флориде и в Королевстве сейчас  16:56[Войти] | [Зарегистрироваться]
Ответ на вопрос № 35814

19-09-2005 06:22
Ребята, как скрыть панель, когда мышь ушла с нее?

Не могу сообразить как пиркрутить

procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;

Спасибо.

[+] Добавить в избранные вопросы

Отслеживать ответы на этот вопрос по RSS

Ответы:


Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице.
Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.

18-11-2005 08:22
»вопрос КС №34555«, »вопрос КС №34640«, »вопрос КС №33902«, »вопрос КС №35566«

20-09-2005 22:20 | Сообщение от автора вопроса
Большое спасибо, ребята!!! И Вам, уважаемый Ins :)

20-09-2005 08:11
>>>Осталась одна проблема как мне присвоить это только одной панели

TMyPanel = class(TPanel)
private
  FOnMouseLeave: TNotifyEvent;
  procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;
public
  property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
...

procedure CMMouseLeave(var msg: TMessage);
begin
  if Assigned(FOnMouseLeave) then FOnMouseLeave(self);
end;



И в основной программе:

TForm1 = class(TForm)
  MyPanel: TMyPanel;
  procedure MyPanelMouseLeave(Sender: TObject);
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  ...
  TMyPanel.OnMouseLeave:=MyPanelMouseLeave;
  ...
end;

procedure TForm1.MyPanelMouseLeave(Sender: TObject);
begin
  Hide;
end;


19-09-2005 23:12 | Сообщение от автора вопроса
Спасибо, ребята! Осталась одна проблема как мне присвоить это только одной панели - суть такая - пытаюсь сделать такое выпадающую панель как чекбокс жмем кнопку под ней выпадает панель с полями в полях пишем-пишем-пишем а потом уходим с панели и она прячется...

19-09-2005 12:11 | Комментарий к предыдущим ответам
to Антон Григорьев:
Если подходить строго, то что такое Визуальное проектирование и DFM? Это удобный способ задания начальных значений свойств объектов с последующей автоматической инициализацией. И ничего больше. И абсолютно неважно, что думает IDE. Главное -- что получается в результате. Важным является только то, что получается в результате компиляции.

А то получается, что изменение имен параметров в автоматически созданных заготовках методов также является нарушением, потому что мы переписываем то, что создает IDE :-)

Скромно замечу, что использую такой прием очень давно (Delphi-1, Delphi-6 и немного Delphi-3). Много было глюков, обусловленных несовместимостью версий, но ни разу не было глюков, обусловленных использованием данного приема.

19-09-2005 10:43 | Комментарий к предыдущим ответам
Geo:

Ну почему же сразу шаманизм? Использование одинаковых идентификаторов в разных модулях с вызовом через <имя модуля>.<идентификатор> стнтаксисовм допускается.

Да я не о синтаксисе. Просто получается, среда в design-time думает, что у вас TExtCtrls.Panel, а в run-time вы нагло её обманываете, подсовывая свой класс. Вроде как всё должно работать, но как-то это всё сомнительно...

По случаю вспоминается цитата из незабываемого SOFTMARE: "Всемиpно известная фиpма Bormann International пpедставила свой новый пpодукт Bormann D-- (v. 7.40). В этом языке  концепция объектно-оpиентиpованного пpогpаммиpования, заложенная в С++, получила дальнейшее pазвитие. Так, помимо аппаpата  наследования, pеализованы аппаpаты пpодажи, даpения и пpоигpыша в каpты. Пpавда, в pяде случаев это пpиводит к сомнительным махинациям внутpи пpогpаммных сpедств, но пpедставитель фиpмы фон Штиpлиц завеpил, что они легко устаняются утилитой хCоp."

19-09-2005 09:33 | Комментарий к предыдущим ответам
to Антон Григорьев:
Ну почему же сразу шаманизм? Использование одинаковых идентификаторов в разных модулях с вызовом через <имя модуля>.<идентификатор> стнтаксисовм допускается. Таким образом, я сознательно использую визуальную среду для задания значений свойств, общих и для стандартного компонента, и для моего компонента. А значения уникальных свойств задаю в run-time.

По-моему, все законно.

19-09-2005 09:04
А вообще, что-то похожее недавно было:
»вопрос КС №34555«

19-09-2005 07:48 | Комментарий к предыдущим ответам
Geo:

Шаманизмом такой способ попахивает. Лучше уж использовать свойство WindowProc у панели, если не хочтеся плодить компоненты в design-time.

19-09-2005 07:42
Мой любимый прием: в модуле, где собираешься использовать прописываешь:

type
  TPanel = class(ExtCtrls.TPanel)
  private
    ...



Далее все как в примере у Ins.

Преимущество такого подхода: мы можем использовать панель в design-time без регистрации ее в палитре компонент. В design-time у нас будет обычная TPanel, а во время исполнения -- модифицированные вариант.

19-09-2005 07:18
Можно, например, создать потомка TPanel:


TMyPanel = class(TPanel)
private
  procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;
...

procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;
begin
  Hide;
end;



Второй способ - переопределить WndProc.

Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
Жили у бабуси два веселых гуся. Один белый, другой КАКОЙ?
в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Тип сообщения:
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
  •  
     Правила оформления сообщений на Королевстве

    Страница избранных вопросов Круглого стола.
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования