|
Вопрос # 5 273/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
Прикладываю исходник, там я пытался сделать что бы при наведении на 1 картинку появлялась вторая. У меня получилось, но почему то 2 картинка не исчезает. Если можете исправьте пожалуйста.
К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)
 |
Вопрос задал: Степан (статус: Посетитель)
Вопрос отправлен: 10 мая 2011, 13:12
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 11; последнее сообщение — 10 мая 2011, 14:40; участников в обсуждении: 3.
|
Эхо Унитазного Бачка (статус: 1-ый класс), 10 мая 2011, 13:56 [#2]:
Свой обработчик удали и сделай так:
Изначально
Image1.Visible := true;
Img.Visible := false;
procedure TForm1.Image1MouseEnter(Sender: TObject);
begin
image1.visible := false;
Img.Visible := true;
end;
procedure TForm1.ImgMouseLeave(Sender: TObject);
begin
image1.visible := true;
Img.Visible := false;
end;
|
|
min@y™ (статус: Доктор наук), 10 мая 2011, 13:57 [#3]:
2Админ: Андрюха, пора бы написать более точные правила о формулировке вопросов. А то это ваще...
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Степан (статус: Посетитель), 10 мая 2011, 14:10 [#4]:
987654: в 7 версии видимо нет таких обработчиков: MouseEnter и MouseLeave
|
|
|
Степан (статус: Посетитель), 10 мая 2011, 14:18 [#5]:
987654: конечная цель сделать эффект кнопкам. Наводя курсор мыши на первую картинку, она пропадает, а на её месте появляется другая, убирая курсор мыши всё становится в исходное положение.
|
|
|
min@y™ (статус: Доктор наук), 10 мая 2011, 14:21 [#6]:
Цитата (Степан):
конечная цель сделать эффект кнопкам. Наводя курсор мыши на первую картинку, она пропадает, а на её месте появляется другая, убирая курсор мыши всё становится в исходное положение.
Да таких компонентов 100500 мильёнов штук. Скачай несколько да посмотри исходники. Ссылку дать или сам найдёшь?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 10 мая 2011, 14:30 [#8]:
Цитата (Степан):
Дать.
На.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Эхо Унитазного Бачка (статус: 1-ый класс), 10 мая 2011, 14:35 [#9]:
На примере TLabel:
(*///////////////////////////////////////////////////////*)
(*// Author: Briculski Serge
(*// E-Mail: bserge@airport.md
(*// Date: 26 Apr 2000
(*///////////////////////////////////////////////////////*)
unit BS_Label;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TBS_Label = class(TLabel)
private
{ Private declarations }
FOnMouseLeave: TNotifyEvent;
FOnMouseEnter: TNotifyEvent;
procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Custom', [TBS_Label]);
end;
{ TBS_Label }
procedure TBS_Label.CMMouseEnter(var Message: TMessage);
begin
if Assigned(FOnMouseEnter) then
FOnMouseEnter(Self);
end;
procedure TBS_Label.CMMouseLeave(var Message: TMessage);
begin
if Assigned(FOnMouseLeave) then
FOnMouseLeave(Self);
end;
end.
|
|
|
Эхо Унитазного Бачка (статус: 1-ый класс), 10 мая 2011, 14:39 [#10]:
Прости, сразу не увидел пост про эффект к кнопке. Я несколько лет назад писал такой компонент. Давай почту, я тебе готовый исходник дам. Обрабатывает Три состояния визуальных.
|
|
|
Степан (статус: Посетитель), 10 мая 2011, 14:40 [#11]:
987654: 3ojiotou@gmail.com
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
