0

我正在创建一个 Delphi 2007 应用程序，使用 Tnt 组件（带有 unicode 的 Compenents）。我有一个表格：

edit         : TTntEdit;
updown       : TTntUpDown

thouse 组件的设置为：

edit.OnKeyPressed := edKeyPress;
edit.OnKExit := edExit;
updown.Max := 900;
updown.Min := 300;
updown.Assosiate := edit;
updown.onClick := updownClick;

procedure TForm.edKeyPress(Sender: TObject;
     var Key: Char);
begin
    if Key = #13 then
    begin
        Key := #0;
        SetValue(edit, updown, some_global_variable );
    end;
end;


procedure TForm.edExit(Sender: TObject);
begin
    SetValue(edit, updown, some_global_variable);
end;

procedure TForm.SetValue(ED: tTntEdit;UD: tUpDown;var CardValue: real);
var
    rVal             : real;
begin
    if MainForm.CheckRealStr(ED.Text,rVal,'.') or
      MainForm.CheckRealStr(ED.Text,rVal,',') then
    begin

        if rVal <= (UD.Min/10) then rVal := (UD.Min/10);
        if rVal >= (UD.Max/10) then rVal := (UD.Max/10);
        CardValue := rVal;

        UD.Position := Round(CardValue*10);
        ED.Text :=  FormatFloat('0.0', UD.Position/10 );
    end 
    else 
        ED.Text :=  FormatFloat('0.0', UD.Position/10 );
end;

procedure TForm.updownClick(Sender: TObject;
    Button: TUDBtnType);
begin
    edit.Text :=  FormatFloat('0.0', updown.Position/10 );
end;

如您所见，UpDown 的位置可能在 300 到 900 之间，这意味着 edit.Text 从 '30.0' 到 '90,0'。如果 Text 设置为 89.8 并且我们使用 updown 的向上箭头来增加它的位置，那么编辑中的文本将更改如下：'89.9'->'90.0'->'900' 和停止。当 edit.text 从 '90.0' 变为 '900' 时，甚至不会调用 updownClick 事件！

所以这是我的问题：

  1. 为什么会出现值“900”；
  2. 为什么不调用 updownClick 事件；
4

1 回答 1

1

消除

updown.Assosiate := edit;

要么是 UpDown 控件更改值，要么您通过自定义代码进行。

对于同一个问题，有两个相互矛盾的大师没有什么好处。如果您是定制的，SetValue那么不要让UpDown's 的内置函数妨碍您。

并且更好地使用一些现成的带有对浮点数的原生支持的旋转按钮编辑。

PS。您可能希望进行设置Edit.OnExit，以便它解析用户输入的文本并UpDown.Value进行相应调整

于 2013-07-23T11:11:47.330 回答