Исчезновение

← →
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 его наследник.

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

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

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

... 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; ...

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