Скачать: CL | DM;

проблема с событием.   Найти похожие ветки 

← →
Vista   (2008-01-09 05:35) [0]

Ку всем. Такая проблема с событиями: нужно сделать так, что бы при наведении курсора на компонент Image1, он менял картинку. Делаю так, не катит(((
вот беда
type TImage1=class(TImage)

public
 procedure CMMouseEnter (var Message: TMessage); message CM_MOUSEENTER;
 procedure CMMouseLeave (var Message: TMessage); message CM_MOUSELEAVE;

end;

var
 Form2: TForm2;
 Image1:TImage1;
implementation

{$R *.dfm}
procedure TImage1.CMMouseEnter (var Message: TMessage);
begin
image1.Picture.LoadFromFile("2.bmp");
//при наведении курсора, картинка не меняется(
end;

procedure TImage1.CMMouseLEAVE (var Message: TMessage);
begin
image1.Picture.LoadFromFile("2(2).bmp");
//тут тоже(
end;

---

← →
Vista   (2008-01-09 05:37) [1]

Компилится все ок. А вот события не происходят(

---

← →
{RASkov} ©   (2008-01-09 06:24) [2]

> [0] Vista   (09.01.08 05:35)
> image1.Picture.LoadFromFile("2(2).bmp");

Убери

И конечно же это не весь код.... не видно как ты дальше используешь TImage1....

---

← →
Vista   (2008-01-09 12:24) [3]

Блин....в учебнике так сухо про это описали((. С Labelами работает норм.

>не видно как ты дальше используешь TImage1....

да я его не использую больше. Мне он нужен только для смены рисунка при наводе на компонент Image1, или  я чего-то непонимаю?

---

← →
sniknik ©   (2008-01-09 12:44) [4]

проблема не с событиями, проблема в том что не используется/не показывается экземпляр этого нового класса... (предположительно...)
кода создания так попросту нет, а у несуществующего обьекта какие могут быть события?

> Блин....в учебнике так сухо про это описали
не бери с него пример...

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c