求教高手：如何将所有的memo都有一功能(50分)

希望鼠标浮到memo上自动显示内容，
procedure Tformtest.memo1MouseMove(Sender: TObject;
Shift: TShiftState;
X,
Y: Integer);
begin
memo1.ShowHint:=true;
memo1.Hint:=memo1.Text;
end;

现求如何将所有的memo都有此功能，
===========================================================================
我已解决问题,答案如下,多谢各位高手的大力支持.
===========================================================================
procedure Tformtest.FormMouseMove(Sender: TObject;
Shift: TShiftState;
X,
Y: Integer);
begin
if (sender is tmemo) then
begin
(Sender as TMemo).ShowHint:=true;
(Sender as TMemo).Hint:=(Sender as TMemo).Text;
end;
end;

继承下写个组件呗

procedure Tformtest.memo1MouseMove(Sender: TObject;
Shift: TShiftState;
X,
Y: Integer);
begin
with Sender as TMemodo
begin
ShowHint:=true;
Hint:=memo1.Text;
end;
end;
所有的Memo都用这个

不知道你为什么要写这两句代码。直接在属性里设好了呀。效果跟你这样写的一样的
写在属性里的话，可以N个控件一起设好了。

将所有memo的MouseMove事件都设成都设成Memo1.MouseMove

procedure SetStateSave(AOwner: TWincontrol);
var
i:integer;
begin
with AOwnerdo
for I := 0 to ComponentCount - 1do
begin
if Components is TMemo then
(Components as TMemo).ShowHint:= true;
(Components as TMemo).Hint:=(Components as TMemo).Text;
end;
end;

Hint:=memo1.Text;不知这句有否问题呢,当所有都设成memo1.mousemove时.所显示的是不是就是所对应的memo内容.

===========================================================================
我已解决问题,答案如下,多谢各位高手的大力支持.
===========================================================================
procedure Tformtest.FormMouseMove(Sender: TObject;
Shift: TShiftState;
X,
Y: Integer);
begin
if (sender is tmemo) then
begin
(Sender as TMemo).ShowHint:=true;
(Sender as TMemo).Hint:=(Sender as TMemo).Text;
end;
end;

最后将所有memo的MouseMove事件都设成都设成FormMouseMove

多谢各位高手的大力支持.