Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];

Вниз

Работа с Image ами   Найти похожие ветки 

 
XPatriot()   (2002-10-10 16:46) [0]

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


 
Skier   (2002-10-10 16:51) [1]

>XPatriot()
Лови сообщения :
- CM_MOUSEENTER
- CM_MOUSELEAVE


 
XPatriot()   (2002-10-10 17:17) [2]

Ты не мог бы по подробнее... Зарание спасибо...


 
.   (2002-10-10 17:52) [3]

type
TfmAbout = class(TForm)
procedure m_in(var Msg: TMessage); message CM_MOUSEENTER;
procedure m_out(var Msg: TMessage); message CM_MOUSELEAVE;

procedure TForm1.m_in(var Msg: TMessage);
begin
---
end;

procedure TForm1.m_out(var Msg: TMessage);
begin
---
end;


 
Pat   (2002-10-10 18:48) [4]

>TfmAbout = class(TForm)
Только не для формы, а для TImage


 
XPatriot()   (2002-10-10 21:09) [5]

Прошу меня простить, но я ничего не понял...


 
.   (2002-10-10 21:11) [6]

хе...

тебе в примерах лучше будет?


 
XPatriot()   (2002-10-10 21:24) [7]

Наверное :)


 
.   (2002-10-10 21:32) [8]

unit Unit1;

interface

uses
Windows, Messages, Forms, Classes, Controls, ExtCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
procedure m_in(var msg: TMessage); message CM_MOUSEENTER;
procedure m_out(var msg: TMessage); message CM_MOUSELEAVE;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.m_in(var msg: TMessage);
begin
Panel1.Caption := "mouse in";
end;

procedure TForm1.m_out(var msg: TMessage);
begin
Panel1.Caption := "mouse out";
end;

end.

сделай новый Application
добавь на форму TPanel
и замени код формы на этот


 
XPatriot()   (2002-10-10 21:35) [9]

Огромное спасибо.


 
XPatriot()   (2002-10-10 21:57) [10]

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


 
.   (2002-10-10 22:07) [11]

хум...
можешь посмотреть
http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988624704&n=16


 
-   (2002-10-10 22:08) [12]

-



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

Форум: "Основная";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.57 MB
Время: 0.037 c
1-68854
Демонов Е.В.
2002-10-10 14:25
2002.10.21
Вопрос о синтаксисе.


1-68723
BillyJeans
2002-10-11 08:24
2002.10.21
Не могу создать TQRLabel в QReport...


8-68884
Sokrates
2002-06-23 04:27
2002.10.21
Преобразование JPEG в BMP


1-68822
zevs_a
2002-10-09 15:04
2002.10.21
Rebyata Pomogite esho raz....


1-68807
vugo
2002-10-09 13:21
2002.10.21
Отправка почты под Exchange 5.5





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский