请问：在memo里面怎样加入声音和图片？(100分)

在memo里面怎样加入声音，就是敲击键盘时有不同的音效和背景图片，是贴在后面，上面可以打字那种，而且不会闪？
小弟在此先谢了。[?]

memo的keydown事件里写。
case key of
vk_a:调用发声函数。
vk_b:调用发声函数。
end

找第三方控件

请再具体点好吗？
另外那些控件哪里有啊，可以介绍几个相关的吗
或者介绍一下具体做法也行。先谢了。

高手门快来啊!!

keypress
case key of
ord(0)..ord(9): 异步播放声音；
ord(a)..ord(z):异步播放声音；
ord(A)..ord(Z):异步播放声音；
end;
背景，可以重画嘛d

up

再UP

up

up

up

请问各位大虾，delphi里能不能调用winap播放器的！

请高手指点一下，就像QQ上的聊天背景一样

加入声音如上，实际严格来说不是加到Memo中的。。。。。
如果要 贴图 需要 定义一个 Memo子类，处理memo的 WM_Paint消息，画个图片。
type
TMyMemo = class(TMemo)
protected
procedure WMPaint(var Message: TWMPaint);
message WM_PAINT;//消息处理句柄
end;

procedure TMyMemo.WMPaint(var Message: TWMPaint);
var
MCanvas: TControlCanvas;
DrawBounds : TRect;
begin
inherited;
//调用上层消息处理过程
MCanvas:=TControlCanvas.Create;
//建立一个画板
DrawBounds := ClientRect;
Try
MCanvas.Control:=Self;
With MCanvasdo
begin
Brush.Color := clBtnFace;
FrameRect( DrawBounds );
InflateRect( DrawBounds, -1, -1);
FrameRect( DrawBounds );
FillRect ( DrawBounds );
MoveTo ( 33, 0 );
Brush.Color := clWhite;
LineTo ( 33, ClientHeight );
PaintImages;//定义的画图片过程
end;
finally
MCanvas.Free;
end;
end;
procedure TMyMemo.PaintImages;//画图方法
var
MCanvas: TControlCanvas;
DrawBounds : TRect;
i, j : Integer;
OriginalRegion : HRGN;
ControlDC : HDC;
begin
MCanvas:=TControlCanvas.Create;
DrawBounds := ClientRect;
// Work with temporary TRect record.
try
MCanvas.Control:=Self;
ControlDC := GetDC ( Handle );
MCanvas.Draw(0, 1, Application.Icon);
finally
MCanvas.Free;
end;

代码摘自《超级猛料》