請問各位前輩一項問題： 我現在正在開發一個像是MSN一樣的討論室功能，希望能放在進銷存系統中，一來可以讓各位發現問題時即時通報；二來是期望能在實際應用時可以當即時傳訊用。現在遇到一個問題，就是我想載入像MSN的表情圖案在memo中時，發現裡面沒有Canvas這個屬性～那請問各位前輩是否有辦法解決這樣子的問題吶？謝謝！

------
林壽山
網站: http://superlevin.ifengyuan.tw
mail: superlevin@gmail.com

You can get the device context for the memo and draw on it using api during the WM_PAINT message handler for the memo, e.g.    

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;    type
  TMyMemo = class(TMemo)
  private
    procedure Paint(var Message: TWMPaint); message WM_PAINT;
  end;      TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    Memo: TMyMemo;
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.FormCreate(Sender: TObject);
begin
    Memo := TMyMemo.Create(self);
    Memo.Parent := self;
    Memo.Align  := alClient;
end;    procedure TForm1.FormDestroy(Sender: TObject);
begin
    Memo.Free;
end;    procedure TMyMemo.Paint(var Message: TWMPaint);
var
    Wnd: HWND;
    DC: HDC;
begin
    inherited;
    Wnd := Handle;
    DC := GetDeviceContext(Wnd);
    try
        Arc(DC,0,0,100,100,0,0,100,100);
    finally
        ReleaseDC(Wnd,DC);
    end;
end;    end.