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




Вниз

Как узнать что мышь вошла/вышла с компонента, если у этого компонента нет события OnMouseMove? 


Lenidus   (2002-03-08 00:53) [0]

Господа Мастера помогите.Как узнать что мышь вошла/вышла с компонента, если у этого компонента нет события OnMouseMove?



Johnmen   (2002-03-08 01:37) [1]

Поройся в конфе - такой вопрос был !



Delphimun   (2002-03-08 07:45) [2]

Получаешь координаты курсора(GetCursorPos) и высчитываешь над координатами твоего компонента находится он или нет(сначало высчитываешь кординаты форма, а потом координаты компонента на ней...)



copyr25   (2002-03-09 00:11) [3]

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.




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




Наверх








Память: 0.75 MB
Время: 0.02 c
1-80545           DmitryPV              2002-03-08 14:54  2002.03.25  
Создание нескольких экземпляров формы


1-80499           Artem K.              2002-03-12 10:38  2002.03.25  
Запись динамического массива в файл


1-80532           kserg@ukr.net         2002-03-13 12:09  2002.03.25  
TComboBox.OnChange - непонятно что считать изменением?


3-80446           dr.Flex               2002-02-27 21:11  2002.03.25  
BDE 5.2 MSI Merge Module, как же эту прелесть с инсталить


6-80651           Velocity              2002-01-07 11:03  2002.03.25  
Нууу... вопрос по сокетам <совсем маленький>