Событие MouseMove в Image

[XE5]

Сообщение от kion3

Или вы действительно подумали, что мне нравится писать всюкую ахинею на форумы? :D

Писать ахинею может и не нравится, а вот страдать ахинеей по моему Вам аж наслаждение доставляет. Уже бы давно освоили свежую версию делфи, и не занимались бы половой жизнью с мозгами форумчан. Только не нужно в ответ писать всякую чушь типа, я привык, D7 самая крутая среда, и т.д., и т.п.

[kion3]

Сообщение от XE5

Писать ахинею может и не нравится, а вот страдать ахинеей по моему Вам аж наслаждение доставляет. Уже бы давно освоили свежую версию делфи, и не занимались бы половой жизнью с мозгами форумчан. Только не нужно в ответ писать всякую чушь типа, я привык, D7 самая крутая среда, и т.д., и т.п.

Я не защищаю эту среду. Я просто разъясню вам ситуацию. Я студент. У меня курсовой проект. Программа обучения старая, поэтому мне приходится изучать эту хрень т.к. на другой не разрешают..... Надеюсь на ваше понимание. Я бы вообще писал бы его на какой-нибудь Java, вот только это не моя воля... А D7 - реально не о чём, полностью с вами согласен.

[Stilet]

и у меня ничего не получилось

Ну так похвастайся наработками и опиши какие ошибки всплывают
Допустим наработки вроде есть, ну а что именно не получается? Какие ошибки и т.д.?

[XE5]

Сообщение от kion3

т.к. на другой не разрешают...

Знакомая ситуация. Мне самому Dos впаривали, когда уже во всю XP использовалась. Слать в известное место надо учителей с такой программой.

[kion3]

Сообщение от Stilet

Ну так похвастайся наработками и опиши какие ошибки всплывают
Допустим наработки вроде есть, ну а что именно не получается? Какие ошибки и т.д.?

Уже всё получилось Давно уже... просто отписать забыл. Надо было по мимо 3-ёх событий: MouseMove, MouseUp и MouseDown для Image, прописать также события MouseMove (тоесть когда курсор возвращается из Image на форму обратно) и FormShow для самой формы. Ну и код поменялся, примерно так:


procedure TForm5.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Image1.Tag <> 2 then
begin
Image1.picture.loadfromfile('Наведе ниеКурсором.bmp');
Image1.Tag:=2
end
end;

procedure TForm5.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Image1.Tag <> 3 then
begin
Image1.picture.loadfromfile('Нажати еНаКнопку.bmp');
Image1.Tag:=3
end
end;

procedure TForm5.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Image1.Tag <> 2 then
begin
Image1.picture.loadfromfile('Наведе ниеКурсором.bmp');
Image1.Tag:=2
end
end;

procedure TForm5.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Image1.Tag <> 1 then
begin
Image1.picture.loadfromfile('Обычна яКнопка.bmp');
Image1.Tag:=1
end;
end;

procedure TForm5.FormShow(Sender: TObject);
begin
Image1.picture.loadfromfile('Обычна яКнопка.bmp');
Image1.Tag:=1;
end;

procedure TForm5.Image1Click(Sender: TObject);
begin
Form5.Close; //Обычная функция кнопки....
Image1.picture.loadfromfile('Обычна яКнопка.bmp');
Image1.Tag:=1
end;

Вот как-то так... Благодарю всех за помощь.

[kion3]

Сообщение от XE5

Знакомая ситуация. Мне самому Dos впаривали, когда уже во всю XP использовалась. Слать в известное место надо учителей с такой программой.

В этом вы правы.... учительница у меня - полная идиотка, преподавателем её назвать нельзя, да и программистом тоже. Она ставит высокий балл за курсовой проект только в том случае, если программа красивая Вот я и придумал эту хрень с "Утипутикрасивенькими" кнопочками.

[Аватар]

ТС, вам тоже до гения далеко. А ученику обзывающего учителя идиотом грош цена в базарный день. Имхо

[kion3]

Сообщение от Аватар

ТС, вам тоже до гения далеко. А ученику обзывающего учителя идиотом грош цена в базарный день. Имхо

К сожалению вы не знаете этого "учителя", так бы и вы поняли, что её нельзя назвать учителем. А с идиотом возможно я действительно погорячился.

[XE5]

По решению. Перехват события движения мыши по форме, и детектирование его как выход на пределы Image не самое правильное решение. Если мышь переместиться с кнопки в иной контрол, отличный от самой формы, то этот финт не сработает. А если быстро дёрнуть мышью, то по моему событие не сработает вообще. Вариантов решения два, и оба описаны выше по теме. Если версия делфи критична, то это свой контрол, написанный на базе исходников контролов от XE, если не критична, то соответственно исполнение программы на XE и выше.

[kion3]

Сообщение от XE5

По решению. Перехват события движения мыши по форме, и детектирование его как выход на пределы Image не самое правильное решение. Если мышь переместиться с кнопки в иной контрол, отличный от самой формы, то этот финт не сработает. А если быстро дёрнуть мышью, то по моему событие не сработает вообще. Вариантов решения два, и оба описаны выше по теме. Если версия делфи критична, то это свой контрол, написанный на базе исходников контролов от XE, если не критична, то соответственно исполнение программы на XE и выше.

Ну если мышка перемещается в тот самый иной контрол (например, если я делаю Image для фона на пол формы), то я просто копипастом вставляю такой же код в него.