Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Вниз

Нужен совет, как можно сделать автоматич. появление-пропадание ..   Найти похожие ветки 

 
Dima1   (2003-10-24 19:41) [0]

панели (TPanel) на подобии как это сделано в винде с TaskBar или панели MS Offise. Т.е. чтобы она сама пряталась при уходе мышы, и появлялась при ее наведении.

Моя идея была такая.. Добавил события OnEnter, и OnExit в панель, написал их обработчики, они работают. Но! когда я навожу на кнопку, которая стоит на этой панели (с самой панели я не сходил), она как дура, начинает то появлятся, то исчезать, пока не уйдеш с кнопки снова на панель. Короче говоря, может какие есть идеи по этому поводу. А еще лучше, может что уже готовое есть. Помогите плиз.


 
clickmaker   (2003-10-24 20:34) [1]

procedure TForm1.FormCreate(Sender: TObject);
begin
FOldPanelProc:= Panel1.WindowProc;
Panel1.WindowProc := NewPanelProc;
end;

procedure TForm1.NewPanelProc(var Message: TMessage);
begin
case Message.Msg of
CM_MOUSEENTER: Panel1.Height := 41;
CM_MOUSELEAVE: Panel1.Height := 3;
end;
FOldPanelProc(Message);
end;


 
Yakudza   (2003-10-24 21:44) [2]

Панель дурой обозвал....

:))



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.044 c
4-42230
off
2003-08-28 10:42
2003.11.13
Определение размера папки.


1-41603
Miha
2003-10-26 19:34
2003.11.13
Резидентная программа


4-42277
samson
2003-09-12 10:54
2003.11.13
сообщение в момент выполнения запроса


3-40926
Alex
2003-10-19 13:12
2003.11.13
Поиск повторяющихся записей


14-42137
Jek
2003-10-20 16:24
2003.11.13
Прикольное сообщение об ошибке





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский