Текущий архив: 2004.06.13;
Скачать: CL | DM;

Вниз

Хочу чтобы при наведении мышкой на DBgrid - появлялась Form1.   Найти похожие ветки 

← →
lemon   (2004-06-02 03:53) [0]

Как сделать, чтобы при наведении мышкой на DBgrid1 - появлялась Form1. А когда мышку убирал с грида - эта форма исчезала.
Заранее благодарен за ответы.

---

← →
Ozone ©   (2004-06-02 05:56) [1]


 TMyDBGrid = class(TDBGrid)
 private
  FOnMouseLeave: TNotifyEvent;
  FOnMouseEnter: TNotifyEvent;
  procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
  procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
 protected
  procedure MouseEnter; dynamic;
  procedure MouseLeave; dynamic;
 public
 published
  property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
  property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
 end;

var
 Form1: TForm1;
 DbGrid1 : TMyDBGrid;

implementation

uses Unit2;

{$R *.dfm}

procedure TMyDBGrid.CMMouseEnter(var Msg: TMessage);
begin
    MouseEnter;
end;

procedure TMyDBGrid.CMMouseLeave(var Msg: TMessage);
begin
    MouseLeave;
end;

procedure TMyDBGrid.MouseEnter;
begin
    if Assigned(FOnMouseEnter) then
       FOnMouseEnter(Self);
    Form2.Show;
end;

procedure TMyDBGrid.MouseLeave;
begin
    if Assigned(FOnMouseLeave) then
      FOnMouseLeave(Self);
    Form2.Hide;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    DbGrid1 := TMyDbGrid.Create(Application);
    DbGrid1.Parent := Form1;
end;


---

← →
lemon   (2004-06-02 06:23) [2]

СПАСИБО!!!

---

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

Текущий архив: 2004.06.13;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.034 c