急，一个简单的问题,请朋友帮忙，回答正确就给分。

“矩形”:在form上画一个距形

解决方案 »

  1.   

    矩形？在Form上放一个RichEdit或者Memo，设置BorderStyle为bsNone不就是你需要的吗？
      

  2.   

    开始让richedit不可见，点击后可见，效果出来了
      

  3.   

    RichEdit或者Memo，设置BorderStyle为bsNone
      

  4.   

    1.memo或richedit
    2.使用form.canvas,一切自己画
      

  5.   

    procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    var
      edtInput: TEdit;
    begin
      edtInput        := TEdit.Create(Self);
      edtInput.Parent := Self;
      edtInput.Top    := X;
      edtInput.Left   := Y;
      edtInput.SetFocus;
    end;
    可能还要释放资源和控件生成时的位置判断
      

  6.   

    richedit
    memo
    简单设置一下就能达到你的效果
      

  7.   

    如果没什么特殊的要求的话呢，就用rainsea(飞龙在天)的方法。像你所说的那三点要求，他的方法就可以了，简单实用。还有，你要给分哦。....哈...