Текущий архив: 2008.02.17;
Скачать: CL | DM;
Вниз
WM_MOUSEENTER и ​WM_MOUSELEAVE без компонента Найти похожие ветки
← →
Тоник (2008-01-23 22:00) [0]как использовать WM_MOUSEENTER и ​WM_MOUSELEAVE без создания наследующего компонента, а то у меня при наследовании теряются функции image(в нем есть доп.функционал).
← →
имя (2008-01-23 22:06) [1]Удалено модератором
← →
Сергей М. © (2008-01-23 22:07) [2]
> а то у меня при наследовании теряются функции image(в нем
> есть доп.функционал).
Пора перестать плодить код и заняться чтением букваря.
← →
Тоник (2008-01-23 22:13) [3]если подключать Imageex то теряется возможность загружать png в image, а мне без png Никуда!!!
← →
Сергей М. © (2008-01-23 22:16) [4]Не подключай - не потеряется.
Разве тебя кто-то насилует с этим самым "подключением"/ ?)
← →
KilkennyCat © (2008-01-23 22:20) [5]а я вообще ничего не понял....
← →
Сергей М. © (2008-01-23 22:23) [6]Я тоже)
← →
Тоник (2008-01-23 22:39) [7]млин вы чего...ок
у меня в моей проге добавлен pngimage для работы с png. он внедряется в image и появляется возможность открывать png.
также мне нужно делать кнопки по картинкам которые обрабатывались enter and leave, раньше использовал imageex, это был наследник Image. но сейчас когда подключаю imageex то image перестает загружать png. вот меня и интересует как просто создать обработчики которые отлавливали бы leave enter.
← →
Efir (2008-01-23 22:45) [8]А чё за компонент то imageex.
← →
Сергей М. © (2008-01-23 22:49) [9]
> мне нужно делать кнопки по картинкам
Ты в канцелярии трудишься ?
← →
Тоник (2008-01-23 23:12) [10]
unit ImageEx;
interface
uses
Classes, Controls, ExtCtrls, Messages;
type
TImageEx = class(TImage)
private
FOnMouseLeave: TNotifyEvent;
FOnMouseEnter: TNotifyEvent;
procedure CMMouseEnter(var msg: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;
published
property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents("Standard", [TImageEx]);
end;
procedure TImageEx.CMMouseEnter(var msg: TMessage);
begin
inherited;
if assigned(FOnMouseEnter) then
FOnMouseEnter(self);
end;
procedure TImageEx.CMMouseLeave(var msg: TMessage);
begin
inherited;
if assigned(FOnMouseLeave) then
FOnMouseLeave(self);
end;
end.
← →
Тоник (2008-01-23 23:13) [11]
> Ты в канцелярии трудишься ?
именно там и тружусь
← →
Тоник (2008-01-23 23:26) [12]решил проблему,тему можно удалять
← →
KilkennyCat © (2008-01-24 00:19) [13]
> решил проблему,
а она была? ;)
А удалять тему - лишать наследников наследства.
← →
имя (2008-01-24 10:57) [14]Удалено модератором
Страницы: 1 вся ветка
Текущий архив: 2008.02.17;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.015 c
