请问如何能在memo中显示图片？

RT

解决方案 »

  1.   

    呵呵，前两天刚在超级猛料看见过！用Memo显示图片，你可以自己改改这个控件，处理memo的 WM_Paint消息，画个图片。typeTMyMemo = class(TMemo)protectedprocedure WMPaint(var Message: TWMPaint); message WM_PAINT;end;　procedure TMyMemo.WMPaint(var Message: TWMPaint);varMCanvas: TControlCanvas;DrawBounds : TRect;Begininherited;MCanvas:=TControlCanvas.Create;DrawBounds := ClientRect; // Work with temporary TRect record.TryMCanvas.Control:=Self;With MCanvas doBeginBrush.Color := clBtnFace;FrameRect( DrawBounds );InflateRect( DrawBounds, -1, -1);FrameRect( DrawBounds );FillRect ( DrawBounds );MoveTo ( 33, 0 );Brush.Color := clWhite;LineTo ( 33, ClientHeight );PaintImages;//定义的画图片过程end;finallyMCanvas.Free;End;end;　　procedure TMyMemo.PaintImages;varMCanvas: TControlCanvas;DrawBounds : TRect;i, j : Integer;OriginalRegion : HRGN;ControlDC : HDC;beginMCanvas:=TControlCanvas.Create;DrawBounds := ClientRect; // Work with temporary TRect record.tryMCanvas.Control:=Self;ControlDC := GetDC ( Handle );MCanvas.Draw(0, 1, Application.Icon);finallyMCanvas.Free;end;end;
      

  2.   

    用Memo显示图片，你可以自己改改这个控件，处理memo的 WM_Paint消息，画个图片。typeTMyMemo = class(TMemo)protectedprocedure WMPaint(var Message: TWMPaint); message WM_PAINT;end;　procedure TMyMemo.WMPaint(var Message: TWMPaint);varMCanvas: TControlCanvas;DrawBounds : TRect;Begininherited;MCanvas:=TControlCanvas.Create;DrawBounds := ClientRect; // Work with temporary TRect record.TryMCanvas.Control:=Self;With MCanvas doBeginBrush.Color := clBtnFace;FrameRect( DrawBounds );InflateRect( DrawBounds, -1, -1);FrameRect( DrawBounds );FillRect ( DrawBounds );MoveTo ( 33, 0 );Brush.Color := clWhite;LineTo ( 33, ClientHeight );PaintImages;//定义的画图片过程end;finallyMCanvas.Free;End;end;　　procedure TMyMemo.PaintImages;varMCanvas: TControlCanvas;DrawBounds : TRect;i, j : Integer;OriginalRegion : HRGN;ControlDC : HDC;beginMCanvas:=TControlCanvas.Create;DrawBounds := ClientRect; // Work with temporary TRect record.tryMCanvas.Control:=Self;ControlDC := GetDC ( Handle );MCanvas.Draw(0, 1, Application.Icon);finallyMCanvas.Free;end;end;