今天12:00结贴,up有分。四分之一。1/4。用delphi怎么画出来!? 1 给点代码。四分之一。如图: — ,象word的公式编辑器。怎么画出来。谢谢! 4 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 可以用shape画,只要不是在edit中输入。 procedure TForm1.Button1Click(Sender: TObject);var moleculeheight:integer;beginmoleculeheight:=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;这样可以画出来,如果想做成其他样子,就要做一些变换了,到时候在联系我 可以用word做成你想要的大小,之后就可以放到d6的memoedit,listbox 中你可以是一是很方便的比如m的立方,四次方都行 给FORM加一个LABEL组件,设置AutoSize=False,WordWrap=True 然后拉动宽度只够放一个“1”,高度拉长,然后设置Caption='1 - 4',就是你要的效果 今天生日,放分! FTP自动更新程序,怎样把ini文件集成到程序内部。(在线等) 关于showmodal的问题。 请问大家一个很基础的问题!! 如何将打印内容输出到外界文本里面去? DELPHI循环语句从字符到日期的转换 如何COPY文件? 这两个结构一样么!?我为什么收到的数据都不对!急需答案!! 怎样备份数据库? 请问如何隐藏windows的任务栏!??急!!! 用SOCKET实文件传输,那位仁兄会!快救救小弟吧!!! 高手来帮帮我这刚出道的新手啊!
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;这样可以画出来,如果想做成其他样子,就要做一些变换了,到时候在联系我
edit,listbox 中
你可以是一是
很方便的比如m的立方,四次方都行