Форум: "Основная";
Текущий архив: 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.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.085 c