是否能用memo来显示图象？

[icandoit]

[sundayboys]

呵呵，你还是下载一个RichEdit增强控件吧，CSDN上就有。

[GoodHope]

肯定不能。

[laza]

用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; // Work with temporary TRect record.
Try
MCanvas.Control:=Self;
With MCanvas do
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;
end;

[bill_lasker]

自画还差不多。

[Nicrosoft]

当然可以，只要是windows的窗口（memo也是windows窗口），就可以画图。

[jingpingyi]

应该不能。
Memo用于处理文本的。

[Manwill]

在memo上动态生成一个Image就可以了。或者在Memo上
Meme.Canvas.draw（。。。。）把

[Kingron]

2 Manwill(风玉树)　：
tmemo有canvas属性吗？