Solved

TDHTMLEdit event problem

Posted on 2001-08-02
1
218 Views
Last Modified: 2010-04-06
TDHTMLEdit event problem

How to add Onmousemove event to TDHTMLEdit. It has just Ononmousemove event :

procedure TForm1.DHTMLEdit1onmousemove(Sender: TObject);

But I want that it is like that :

procedure TForm1.DHTMLEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
-----------------------------------------------
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    DHTMLEdit1: TDHTMLEdit;
    procedure DHTMLEdit1onmousemove(Sender: TObject);
    procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.DHTMLEdit1onmousemove(Sender: TObject);
begin

end;

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin

end;

end.
0
Comment
Question by:gfdas
1 Comment
 
LVL 2

Accepted Solution

by:
vbmn earned 150 total points
Comment Utility
try something like that :

type
 TMyEventProc = procedure(Sender: TObject; SomeString: String) of Object;

 TMyControl = class(TCustomControl)
 private
   FMyEvent: TMyEventProc;
 protected
   procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
 published
   property MyEvent: TMyEventProc read FMyEvent write FMyEvent;
 end;
0

Featured Post

What Security Threats Are You Missing?

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …
You have products, that come in variants and want to set different prices for them? Watch this micro tutorial that describes how to configure prices for Magento super attributes. Assigning simple products to configurable: We assigned simple products…

743 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

15 Experts available now in Live!

Get 1:1 Help Now