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

Вниз

Исчезновение   Найти похожие ветки 

 
Lonix   (2007-02-22 23:49) [0]

Как сделать так чтобы когда наводишь мышкой на картинку она исчезала, точнее я знаю этот код вот он:
procedure TForm1.Image6MouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
begin
Image6.Visible:=false;
end;
но после  как курсор мышки убираешь картинка обратно не возвращается, как сделать чтобы она обратно возвращалась?


 
unknown ©   (2007-02-23 00:08) [1]


>
> Lonix   (22.02.07 23:49)

есть такая фишка как mouse_leave.
В http://www.google.com/ поищи - найдешь.


 
Lonix   (2007-02-23 00:18) [2]

там выдает одну страницу и не чего путного нет. Может статью знаешь где про это рассказывают?


 
unknown ©   (2007-02-23 00:51) [3]


> Lonix   (23.02.07 00:18) [2]
>
> там выдает одну страницу

Да ну??

> Может статью знаешь где про это рассказывают?

А вот давай, ты сам поищешь, а?
Хотя нет, вот тебе подсказка
http://www.google.ru/search?hl=ru&q=mouse_leave&btnG=%D0%9F%D0%BE%D0%B8%D1%81%D0%BA+%D0%B2+Google&lr=
Мало?


 
Германн ©   (2007-02-23 01:30) [4]


> Lonix   (22.02.07 23:49)
>
> Как сделать так чтобы когда наводишь мышкой на картинку
> она исчезала, точнее я знаю этот код вот он:
> procedure TForm1.Image6MouseMove(Sender: TObject; Shift:
>  TShiftState; X,
>  Y: Integer);
> begin
> Image6.Visible:=false;
> end;
> но после  как курсор мышки убираешь картинка обратно не
> возвращается, как сделать чтобы она обратно возвращалась?
>

А подумать если? Или голова только кости и больше ничего? Причём тут MouseMove?
В Делфи для этого и ему подобного введены события CM_MOUSEENTER  и     CM_MOUSELEAVE и введены они в TControl"e! А TImage его наследник.


 
Германн ©   (2007-02-23 01:32) [5]


> В Делфи для этого и ему подобного введены события

Очепятка. Не события а сообщения.


 
sniknik ©   (2007-02-23 01:36) [6]

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


...
type
 TMyPanel = class(TPanel)
 private
   procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
   procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
 end;

 TPanel = class(TMyPanel);

 TForm1 = class(TForm)
   Panel1: TPanel;
   Image1: TImage;
 private
 public
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TMyPanel.CMMouseEnter(var Message: TMessage);
begin
 inherited;
 Form1.Image1.Visible:= false;
end;

procedure TMyPanel.CMMouseLeave(var Message: TMessage);
begin
 inherited;
 Form1.Image1.Visible:= true;
 Self.Visible:= true;
end;

...



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

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

Наверх





Память: 0.46 MB
Время: 0.068 c
15-1171677913
Tirael
2007-02-17 05:05
2007.03.18
AC3


15-1171890958
TIF
2007-02-19 16:15
2007.03.18
Оцените работу WEB-дизайнера (меня то есть :-)


15-1172335041
BM
2007-02-24 19:37
2007.03.18
Допустим в Windows XP...


4-1162868692
Grademax
2006-11-07 06:04
2007.03.18
Как определить HWND кнопки расположенной на чужом окне


15-1172433448
RASkov
2007-02-25 22:57
2007.03.18
Behold TV





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский