请问各位老大，1。LABEL控件的CAPTION属性如何实现自动换行？2。怎样检查EDIT的TEXT中的输入是否全为0~9而没有其他字符？3.combobox怎

geyufly · 2002-04-19

请问各位老大，1。LABEL控件的CAPTION属性如何实现自动换行？2。怎样检查EDIT的TEXT中的输入是否全为0~9而没有其他字符？3.combobox怎样才能设置成只读？(50分)<br />请问各位老大，1。LABEL控件的CAPTION属性如何实现自动换行？2。怎样检查EDIT的TEXT中的输入是否全为0~9而没有其他字符？3.combobox怎样才能设置成只读？

kifo · 2002-04-19

关于0-9的问题。

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (not (key in ['0'..'9'])) and (ord(key)<>8) then
key:=chr(0);
end;

另，当你只希望另人输入8位时，这个你可能用得上，

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.MaxLength := 8;
end;

netkk · 2002-04-19

1: WordWrap = True
2: 用TMaskEdit
3: Style = csDropDownList

renyi · 2002-04-19

1、自动换行好象不行，不过可以使用编程控制。
2、procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9'],#8,#46) then key:=#0;
end;

3、如果你只想让用户从ComboBox中选择的话，楼上的第3点就可以。

rainxy2002 · 2002-04-19

1: WordWrap = True
2: Try
StrToInt(Edit1.Text);
Except
Showmessage('错了！');
End;
3: Style = csDropDownList

jrq · 2002-04-19

[

] 楼上都解决了！可以结贴了！[

]

Alex_Y · 2002-04-19

label的CAPTION换行较麻烦,我告诉你如何实现,具体代码我也没有,
首先建立一个新组建,在COMPONET下,NEW COMPONENT,然后继承TLABEL,
TWorpLabel
然后设置新属性 PROPERTY WORDWRP GET XXXXX WRITE NNNN

四库全书 · 2002-04-19

lable的换行：用staticText控件（delphi自代）

zhaixiaobo · 2002-04-19

label自動換行還可以寫語句實現，如：
label.caption:='jdjdj'#13#10'fkjfjfj';

geyufly · 2002-04-27

接受答案了.

wsn · 2002-04-27

zhaixiaobo的最简单
用这个就得了

请问各位老大，1。LABEL控件的CAPTION属性如何实现自动换行？2。怎样检查EDIT的TEXT中的输入是否全为0~9而没有其他字符？3.combobox怎

geyufly

Unregistered / Unconfirmed

kifo

Unregistered / Unconfirmed

netkk

Unregistered / Unconfirmed

renyi

Unregistered / Unconfirmed

rainxy2002

Unregistered / Unconfirmed

jrq

Unregistered / Unconfirmed

Alex_Y

Unregistered / Unconfirmed

四库全书

Unregistered / Unconfirmed

zhaixiaobo

Unregistered / Unconfirmed

geyufly

Unregistered / Unconfirmed

wsn

Unregistered / Unconfirmed

Similar threads