大家帮看看,我这么写为什么不行啊,不起作用,急......

Question

我想在一个Tedit里加一个Tupdownprocedure Tform1.FormActivate(Sender: TObject);
var
  up_down_button:Tupdown;
begin
  up_down_button:=Tupdown.create(nil);
  up_down_button.Parent:=edit1;
  up_down_button.Align:=alright;
  up_down_button.Position:=0;
  up_down_button.Min:=-1000;
  up_down_button.Max:=1000;
  up_down_button.Increment:=1;
  up_down_button.Associate:=edit1;
  up_down_button.ArrowKeys:=true;
  up_down_button.Thousands:=true;
end;为什么不起作用啊
放到Tform1.create里也不行

Answer 1

设置up_down_button的Visual为True看看。

Answer 2

var
  up_down_button:Tupdown;
begin
  up_down_button:=Tupdown.create(nil);
  up_down_button.Parent:=self;//edit1;
  //up_down_button.Align:=alright;
  up_down_button.Position:=0;
  up_down_button.Min:=-1000;
  up_down_button.Max:=1000;
  up_down_button.Increment:=1;
  up_down_button.Associate:=edit1;
  up_down_button.ArrowKeys:=true;
  up_down_button.Thousands:=true;

Answer 3

To:unsigned(僵哥（当程序语言成为普及的第三语言之后……）) 
你说的那种做法和我直接加没有区别了，我现在的意思是把Tupdown控件生成在Edit1里面，所以有这句up_down_button.Parent:=edit1;这种方法能实现吗？

Answer 4

Tedit可以做别的控件的parent，但是它不能作为容器（不像Panel,form等），所以parent设置为Tedit的都没办法显示出来...

Answer 5

To:heluqing(鉴之小河〖挣大钱娶美女〗),可以将Tupdown控件生成在Edit控件之内
但是就不能实现功能
To:hellolongbin(一个人[网络能给的不就是个数字吗]) 
我就是你那种方法做的（详见代码）
但是Edit1里的值不变

Answer 6

真晕
显示是可以显示
关键是起不到Tupdown控件的功能

Answer 7

不知记得清不清楚...好像和taborder有关系...updown会去改前面一个tab order的conrol...其实即使不行...加上updown control的up down event,再去修改你的edit不就好了...

Answer 8

procedure TForm1.Button4Click(Sender: TObject);
var
  up_down_button:Tupdown;
begin
  up_down_button:=Tupdown.create(edit1);
  up_down_button.Parent:=edit1;
  up_down_button.Align:=alright;
  up_down_button.Position:=0;
  up_down_button.Min:=-1000;
  up_down_button.Max:=1000;
  up_down_button.Increment:=1;
  up_down_button.Visible:=true;
  up_down_button.Associate:=edit1;
  up_down_button.ArrowKeys:=true;
end;