Платные хостинги     Раскрутка сайта     Книги по программированию

OnMouseEnter, OnMouseExit, TSpeedButton

- Как правильно создать события OnMouseEnter, OnMouseExit для TSpeedButton?

- Проще помойму новый компонент написать

- А что вообще ты хочешь от этих событий?

- Изменить Glyph по соотв. событиям.

- Я делал так: Есть сообшения WМ_CMMOUSEENTER и WM_CMMOUSELEAVE (точно не помню, посмотри в исходнике компонента TLabel), отлови их.

- CM_MOUSELEAVE и CM_MOUSEENTERС ними я и писал Код unit MouseOver;interfaceuses  Windows, Messages, SysUtils, Classes, Controls, ExtCtrls;type  TMouseOver = class(TImage)  private    FFirst: string;    FSecond: string;  protected    procedure CMMouseLeave(var msg : TMessage); message CM_MOUSELEAVE;    procedure CMMouseEnter(var msg : TMessage); message CM_MOUSEENTER;  public  published  property PFirst: string read FFirst write FFirst;  property PSecond: string read FSecond write FSecond;  end;procedure Register;implementationprocedure Register;begin  RegisterComponents('Samples', [TMouseOver]);end;procedure TMouseOver.CMMouseEnter(var msg : TMessage);begin  picture.LoadFromFile(FFirst);end;procedure TMouseOver.CMMouseLeave(var msg : TMessage);begin  picture.LoadFromFile(FSecond);end;end.highlightSyntax('delphiGE2ZWJ','delphi');Только здесь TImage а не TSpeedButton

- Всем большое спасибо.

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD