今天12：00结贴，up有分。四分之一。1/4。用delphi怎么画出来！？

Question

1                    
给点代码。四分之一。如图：  — ，象word的公式编辑器。怎么画出来。谢谢！
                            4

Answer 1

可以用shape画，只要不是在edit中输入。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var moleculeheight:integer;
begin
moleculeheight:=Canvas.TextHeight('1');
canvas.TextOut(100,100,'1');
canvas.MoveTo(100-5,100+moleculeheight);
canvas.LineTo(100+moleculeheight,100+moleculeheight);
canvas.TextOut(100,100+moleculeheight+2,'4');
end;这样可以画出来，如果想做成其他样子，就要做一些变换了，到时候在联系我

Answer 3

可以用word做成你想要的大小，之后就可以放到d6的memo
edit,listbox   中
你可以是一是
很方便的比如m的立方，四次方都行

Answer 4

给FORM加一个LABEL组件，设置AutoSize=False,WordWrap=True 然后拉动宽度只够放一个“1”，高度拉长，然后设置Caption='1 - 4'，就是你要的效果