如何在窗体控件上显示“根号” 以及其它数学常用符号??? 如何在窗体控件上显示“根号” 以及其它数学常用符号???先谢谢各位看帖的朋友! 谢谢!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 窗体控件显示根号?什么根号?你在控件的caption属性上面写你要的“根号”(前提该界面控件有caption) 那直接在caption属性上面写你要的数字也可以在代码里面动态的写或者改变 自己用canvas画个根号出来吧,根号下面的表达式,长度不确定,高度也不确定(如果是分数).所以这样的控件估计很少,不太好做. 用Ole的方式,嵌入MathType公式 {以下代码纯粹因为对本问题好奇而测试的}{平方根}procedure TForm1.Button1Click(Sender: TObject);begin Self.Canvas.TextOut(50, 50, '√'); Self.Canvas.TextOut(50, 50+Self.Font.Height, ' __');end; 我的想法:用两个Label控件。一个显示“/” 另一个显示 “---”, Label1.Font.size := 20; Label1.Caption := '√'; Label1.Top := 70; Label1.Left := 20; lbl := TLabel.Create(Self); With Lbl do begin parent := self; Autosize := true; Font := Label1.Font; Top := Label1.Top - Label1.Height+4; Left := Label1.Left + Label1.Width; Caption := '____'; end; lal := TLabel.Create(Self); With lal do begin parent := self; Autosize := true; Font.Size := 15; Top := label1.Top -10; Left := Label1.Left + label1.width div 2 - 10; Caption := inttostr(2); end; 救命!!! 请问大家,如何通过程序设置弹出的IE窗口的大小? 请问个取字符串的问题 ADO+ACCESS 网络版怎么实现?谢谢!给贴有分! 请问怎样在一个string里加上回车换行呢? 请问如何用ADOQuery实现动态查询? ICS控件组哪里有下?谢谢! 如何隐藏Word中的菜单栏以外的所有工具条?急...... 问一个很菜的问题,文本框中的text如何靠右?就象计算器的显示那样 为什么我的pagecontrol的SHEET上的组件,点击都没有反应? report builder 做报表生成PDF文件中文乱码? 汉字编码转换如 \u674e 转换为 李,怎么做?
你在控件的caption属性上面写你要的“根号”(前提该界面控件有caption)
也可以在代码里面动态的写或者改变
{以下代码纯粹因为对本问题好奇而测试的}
{平方根}
procedure TForm1.Button1Click(Sender: TObject);
begin
Self.Canvas.TextOut(50, 50, '√');
Self.Canvas.TextOut(50, 50+Self.Font.Height, ' __');
end;
Label1.Caption := '√';
Label1.Top := 70;
Label1.Left := 20;
lbl := TLabel.Create(Self);
With Lbl do
begin
parent := self;
Autosize := true;
Font := Label1.Font;
Top := Label1.Top - Label1.Height+4;
Left := Label1.Left + Label1.Width;
Caption := '____';
end;
lal := TLabel.Create(Self);
With lal do
begin
parent := self;
Autosize := true;
Font.Size := 15;
Top := label1.Top -10;
Left := Label1.Left + label1.width div 2 - 10;
Caption := inttostr(2);
end;