procedure TUpDownEdit.WMSize(var Msg: TWMSize);

begin

  Edit.Width := Width - 15;

  UpDown.Left := Edit.Width + 1;

  UpDown.Height := Height;

  inherited;

end;

end.

上一页  [1] [2] [3] [4]