| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как узнать что мышь вошла/вышла с компонента, если у этого компонента нет события OnMouseMove? [D4, D5, D6, Win95/98, Win2k, WinXP]
Lenidus © (2002-03-08 00:53:00)Господа Мастера помогите.Как узнать что мышь вошла/вышла с компонента, если у этого компонента нет события OnMouseMove?
copyr25 (2002-03-09 00:11:00) [1]unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
procedure WndProc(var Message : TMessage); override;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WndProc(var Message : TMessage);
begin
if Message.LParam = Longint(Label1) then
begin
if (Message.Msg = CM_MOUSELEAVE) then
Label1.Color := clSilver;
if (Message.Msg = CM_MOUSEENTER) then
Label1.Color := clRed;
end;
inherited WndProc(Message);
end;
end.
Delphimun (2002-03-08 07:45:00) [2]Получаешь координаты курсора(GetCursorPos) и высчитываешь над координатами твоего компонента находится он или нет(сначало высчитываешь кординаты форма, а потом координаты компонента на ней...)
Johnmen (2002-03-08 01:37:00) [3]Поройся в конфе - такой вопрос был !
| |
