在编辑的时候,我们在窗体上可以看到控件的name属性,这样看起来更直观些
解决方案 »
- Fastreport 4.0 Chart
- 关于2个stringgrid ,滚动关联的问题。
- 问个菜鸟问题,刚入道
- 复制遇到的几个问题
- 我想在由全部为七位数字组成的数据库里将含有三个偶数的数据过滤出来
- 请做过物业管理的兄弟进来一看....能处理不同的分摊方式和收费管理的.项目外包.
- 老婆中午没有做饭家里只有啤酒喝充饥散分
- 我今天有病!!!!!!!!!!!
- 请问怎样去掉windows2000 server的开机屏幕和关机屏幕!该死的金上毒霸,卸了之后还留下这么大一个尾巴让你难受!
- 怎么在delphi中扑捉消息
- 初学者问题,郁闷啊,如何将一个表中的所有数据存到一个动态二维数组中啊??????????
- 如何读取dll里的jpeg资源文件
VAR e,a1,a2,a3:BYTE;
M:integer;
z:extended;
value:extended;
begin
BUF[0]:=$50;
BUF[1]:=$80;
BUF[2]:=$00;
BUF[3]:=$00;
E:=(BUF[0] SHL 1)+(BUF[1] SHR 7)-126;
a1:=BUF[1] AND $FF;
a2:=BUF[2] AND $FF;
a3:=BUF[3] AND $FF;
M:=(a1 shr 4)*1048576+(a1 and $0f)*65536+(a2 shr 4)*4096+(a2 and $0f)*256+(a3 shr 4)*16+(a3 and $0f);
value:=(power(2,E));
z:=(value * m)div $1000000;
showmessage(floattostr(z));
end;
其中E为指数,M为尾数,Z为最后要的数据结果。可是最后输出的结果不正确,不知道是怎么回事,请各位大哥指点一下。
show component captions
procedure TForm1.Edit1Enter(Sender: TObject);
begin
edit1.HideSelection := true;
edit1.Hint := edit1.Name;
end;
or
ShowHint:=True;
Hint:=Txx.name;
运行期的时候可以这样
edit1.hint:=Edit1.name;
edit1.showhint:=True;
show component captions多谢大家的帮忙,解决,买单