Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.048 c
14-1085687764
барбос
2004-05-27 23:56
2004.06.13
Scripter Studio


14-1085381996
guest_Dmitry
2004-05-24 10:59
2004.06.13
Возможно ли в html файле запретить копирование?


1-1085831723
ltexcimer
2004-05-29 15:55
2004.06.13
case и char


1-1085928166
Ivolg
2004-05-30 18:42
2004.06.13
Таблица


3-1085006232
Bes
2004-05-20 02:37
2004.06.13
"соединение" нескольких баз...