procedure   TForm1.Button1Click(Sender:   TObject);
var
  hpen:THandle;
  hdc: THandle;

begin
  hpen := CreatePen(PS_SOLID, 100,clred);
  hdc :=getdc(0);
  SetROP2(hdc, R2_MASKPEN);
  SelectObject(hdc,   hpen);
  LineTo(hdc,400,400);

end;


试过多次了,将hdc :=image1.Canvas.handle;后就可以直接在image的画布上画线了,可是总不能实现半透明的效果,如何才能搞定呢?
新手初练,请多关照。